.vbs Uzantılı Komutlarda ''Deyim Sonu Gerekli'' Hatası

Katılım
3 Ağustos 2018
Mesajlar
864
Daha fazla  
Cinsiyet
Erkek
.vbs uzantılı bir dosya oluşturdum, yukarıda belirttiğim hatayı veriyor. Nasıl olacak bir yardımcı olursanız sevinirim. Ayrıca CMD komut ekranından shutdown -t yapmaya çalışıyorum yapamadım, komut aşağıda hatalarım. Nedenini söylerseniz sevinirim.


x=MsgBox("Windows bu dosyayı açamıyor" , 1+48, "Dosya uzantısı hatası")
x=Msgbox("Açılamıyor Açabilmek İçin WinRar çalıştırılıyor" , 1+64, "Dosya uzantısı hatası")
x=Msgbox("Opened WinRar" , 0+64, "Runing WinRar")
x=Msgbox("Dosya açılıyor" , 1+64, "WinRar")
x=Msgbox("Virüs Tespit Edildi Defender bilgisayarınızı taramaya başlıyacak" , 0+16, "Microsoft Defender")
x=Msgbox("%1" , 0+0, "Microsoft Defender")
x=Msgbox("%5" , 0+0, "Microsoft Defender")
x=Msgbox("%10" , 0+0, "Microsoft Defender")
x=Msgbox("%15" , 0+0, "Microsoft Defender")
x=Msgbox("%20" , 0+0, "Microsoft Defender")
x=Msgbox("%30" , 0+0, "Microsoft Defender")
x=Msgbox("%40" , 0+0, "Microsoft Defender")
x=Msgbox("%50" , 0+0, "Microsoft Defender")
x=Msgbox("%65" , 0+0, "Microsoft Defender")
x=Msgbox("%75" , 0+0, "Microsoft Defender")
x=Msgbox("%88" , 0+0, "Microsoft Defender")
x=Msgbox("%90" , 0+0, "Microsoft Defender")
x=Msgbox("%100" , 0+0, "Microsoft Defender")
x=Msgbox("Dosya kaldırıldı" , 0+64, "Windows Defender")
x=Msgbox("Silinen dosya bir sistem dosyası olduğu tespit edildi" , 1+16, "Windows")
x=Msgbox("Silinen dosyayı windows tekrar yüklemek üzere bilgisayarı tekrar başlatacak" , 1+48, "Windows")
x=Msgbox("Yeniden başlatmayı onaylıyormusunuz?" , 1+16, "Kapanıyor")
x=Msgbox("Kapatılıyor" , 1+16, "Kapanıyor")

If WScript.Arguments.Named.Exists("elevated") = False Then
CreateObject("Shell.Application").ShellExecute "wscript.exe", """" & WScript.ScriptFullName & """ /elevated", "", "runas", 1
WScript.Quit
Else
Set oShell = CreateObject("WScript.Shell")
oShell.CurrentDirectory = CreateObject("Scripting.FileSystemObject").GetPare ntFolderName(WScript.ScriptFullName)
End If

Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("C:\WINDOWS\system32\cmd.exe")
WshShell.SendKeys "shutdown -t {enter} "
WshShell.SendKeys "{enter}"

Okuduysanız ne yapmaya çalıştığımı anlamışsınızdır.
 
Son düzenleyen: Moderatör:
GetParentFolderName kısmında arada boşluk kalmış onu silmelisiniz.

olacak.
Evet boşluğu yanlış koymuşum ama istediğim şey olmadı satırlar iki kez görüntülendi ve cmd shutdown -t komudunu çalıştırmadı.
Aslında yapmaya çalıştığım şey hata raporlarından sonra cmd'nin açılıp bilgisayarı yeniden başlatması, yanlış yazdığım bir komut mu var?
 

Bu konuyu görüntüleyen kullanıcılar

Bu siteyi kullanmak için çerezler gereklidir. Siteyi kullanmaya devam etmek için çerezleri kabul etmelisiniz. Daha Fazlasını Öğren.…