系统相关
首页 > 系统相关> > Windows强制关机弹窗

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) + "哈哈哈哈,好乖" 

标签:关机,13,dim,Windows,wscript,chr,WSHshell,弹窗
来源: https://www.cnblogs.com/joyfulcode/p/16189602.html