【VBScript恶搞代码】终极整蛊1.0版本（附源码） |
您所在的位置：网站首页 › abantes病毒源码 › 【VBScript恶搞代码】终极整蛊1.0版本（附源码） |
【VBScript恶搞代码】终极整蛊1.0版本（附源码）
|
前言👇
本篇可能就是一次小实战吧，把之前学过的一些知识汇总在一起 虽然复杂了一点，但是快乐会翻倍，亲测好评 另外，这次整蛊对电脑是没有危害的，敬请放心使用 代码赶得有点急，先将就着看吧，后续会补充注释和具体操作步骤 转载请注明出处！ 效果图👇弹窗+语音整蛊，最后自动关机
①参照前几期统一的步骤，把代码替换一下即可————【VBScript恶搞代码】电脑自爆警告 ②最后把vbs文件包装一个exe文件————【VBScript恶搞代码】将vbs文件伪装成exe文件 源码奉上👇 dim wsh,kg,fk set wsh=wscript.createobject("wscript.shell") for a=1 to 100 step 10 kg="" fk="" b=100-a for k=0 to b kg=kg+" " next for f=2 to a fk=fk+"■" next c=int(a)-1 wsh.popup fk&kg&"正在远程下载攻击代码，进度："&c&"%",1,"正在远程下载攻击代码（请勿强制关闭关闭计算机）",1 next wsh.popup fk&" "&"100%",2,"100%",1 msgbox "准备工作完成，点击确定开始攻击" Set obj = createobject("wscript.shell") obj.Run "cmd" '延迟500ms，留给电脑时间反应 wscript.sleep 500 obj.SendKeys "color 2 {enter}" obj.SendKeys "tree c:/ {enter}" obj.Run "cmd" '延迟500ms，留给电脑时间反应 wscript.sleep 500 obj.SendKeys "color 2 {enter}" obj.SendKeys "tree c:/ {enter}" obj.Run "cmd" '延迟500ms，留给电脑时间反应 wscript.sleep 500 obj.SendKeys "color 2 {enter}" obj.SendKeys "tree c:/ {enter}" msgbox"有恶意代码正在进入windows系统，请及时阻止",64,"windows安全中心警告" msgbox"有恶意代码正在进入windows系统，请及时阻止",64,"windows安全中心警告" msgbox"有恶意代码正在进入windows系统，请及时阻止",64,"windows安全中心警告" msgbox"windows系统申请启动防火墙",2,"windows安全中心警告" msgbox"启动防火墙失败！",64,"windows安全中心警告" msgbox"防火墙受到不明ip地址攻击！",16,"windows安全中心警告" msgbox"攻击主机ip地址不明，防火墙已经瘫痪",16,"windows安全中心警告" msgbox"你的电脑正在被其他主机攻击",16,"windows安全中心警告" for a=1 to 100 step 10 kg="" fk="" b=100-a for k=0 to b kg=kg+" " next for f=2 to a fk=fk+"■" next c=int(a)-1 wsh.popup fk&kg&"正在提取本地shell权限，进度："&c&"%",1,"管理员权限提取中……（请勿强制关闭关闭计算机）",1 next wsh.popup fk&" "&"100%",2,"100%",1 msgbox "成功进入本地计算机，获得管理员权限" msgbox "你的电脑已经被其他的主机占领",16,"windows安全中心警告" msgbox "windows系统即将崩溃",64,"windows安全中心警告" obj.Run "cmd" '延迟500ms，留给电脑时间反应 wscript.sleep 500 obj.SendKeys "color 2 {enter}" obj.SendKeys "tree c:/ {enter}" obj.Run "cmd" '延迟500ms，留给电脑时间反应 wscript.sleep 500 obj.SendKeys "color 2 {enter}" obj.SendKeys "tree c:/ {enter}" obj.Run "cmd" '延迟500ms，留给电脑时间反应 wscript.sleep 500 obj.SendKeys "color 2 {enter}" obj.SendKeys "tree c:/ {enter}" for a=1 to 100 step 10 kg="" fk="" b=100-a for k=0 to b kg=kg+" " next for f=2 to a fk=fk+"■" next c=int(a)-1 wsh.popup fk&kg&"正在从目录中读取文件，进度："&c&"%",1,"本地文件提取中（强制关闭关闭计算机可能会导致敏感文件丢失）",1 next wsh.popup fk&" "&"100%",2,"100%",1 msgbox "你的计算机已经被占领",64,"提示" msgbox "您的windows帐号在其他IP地址下登录",64,"提示" msgbox "你已被管理员移除出信任IP名单",16,"提示" msgbox "您没有本计算机的访问权限，请退出！",16,"提示" CreateObject("SAPI.SpVoice").Speak"电脑即将关机，电脑即将关机，5，4，3，2，1，0" wsh.run"cmd.exe /c shutdown -s -f -t 0" 补充说明👇虽然windows会将生成的exe识别为🐎，但是需要反应一会…… 所以说种🐎还是建议去虚拟机玩，比较安全
|
【本文地址】
今日新闻 |
推荐新闻 |