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
回复评论