Yusuf Furkan BAL
Kilopat
- 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.
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:
