Windows强制关机弹窗

必须输入特定字符才可解除关机计划

将以下代码保存为.vbs文件双击即可执行

on error resume next 

dim WSHshellA 

set WSHshellA = wscript.createobject("wscript.shell") 

WSHshellA.run "cmd.exe /c shutdown -r -t 180 -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) + "早说就行了嘛" 

dim WSHshell 

set WSHshell = wscript.createobject("wscript.shell") 

WSHshell.run "cmd.exe /c shutdown -a",0 ,true 

msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈，好乖"