vbs关机小代码

Return

1. 
   
2. Option Explicit
   
3. 
   
4. On Error Resume Next
   
5. 
   
6. Dim answer
   
7. 
   
8. Dim WshShell
   
9. 
   
10. set WshShell = CreateObject("wscript.Shell")
    
11. 
    
12. WshShell.Run "Shutdown /f /s /t 10 /c 输入'我是傻逼'，否则10秒后关机~",0
    
13. 
    
14. Do While answer<>"我是傻逼"
    
15. 
    
16. answer=InputBox("输入'我是傻逼'，否则10秒后关机~","哈哈哈",,7000,8000)
    
17. 
    
18. Loop
    
19. 
    
20. WshShell.Run "Shutdown /a",0
    
21. 
    
22. MsgBox "哈哈哈，傻逼",,"哈哈哈"
    

复制代码