如何关闭恶搞的vbs代码?

发布网友发布时间：2022-04-28 16:24

共3个回答

热心网友时间：2022-06-19 16:57

结束Vbs只要打开“任务管理器”结束进程“WSCRIPT.EXE”即可
开始~运行~输入“shutdown -a”按确认即可解除关机。追问谢谢！但是那个msgbox你这样没关掉啊

热心网友时间：2022-06-19 16:57

On Error Resume Next
set a = CreateObject("wscript.Shell")
a.Run "Shutdown /a",0 '取消关机
a.run "taskkill /f /im wscript.exe" '结束 Wscript.exe 进程
'保存为VBS格式放桌面，以后被耍了就双击它一下

热心网友时间：2022-06-19 16:58

On Error Resume Next
Dim WSHshellA
Set WSHshellA = wscript.CreateObject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -s -t 90 -c ""快喊我是猪，不喊就马上让你关机，不信，试试···"" ", 0, True
Dim a
Do While (a <> "我是猪")
a = InputBox("快说我是猪,不叫就不关机，快点，说 ", "说不说", "不说", 8000, 7000)
MsgBox Chr(13) + Chr(13) + Chr(13) + a, 0, "MsgBox"
Loop
MsgBox Chr(13) + Chr(13) + Chr(13) + "早说就行了嘛!好,不关了"
WSHshella.run "cmd.exe /c shutdown -a"