【VBScript恶搞代码】终极整蛊1.0版本（附源码）

article/2025/9/23 21:14:05

前言👇

本篇可能就是一次小实战吧，把之前学过的一些知识汇总在一起

虽然复杂了一点，但是快乐会翻倍，亲测好评

另外，这次整蛊对电脑是没有危害的，敬请放心使用

代码赶得有点急，先将就着看吧，后续会补充注释和具体操作步骤

转载请注明出处！

效果图👇

弹窗+语音整蛊，最后自动关机

操作步骤👇

①参照前几期统一的步骤，把代码替换一下即可————【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"