效果图👇

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

---

操作步骤👇

①参照前几期统一的步骤，把代码替换一下即可————【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识别为🐎，但是需要反应一会……

所以说种🐎还是建议去虚拟机玩，比较安全