禁止屏幕保护VBS代码

风一样的男孩

做母盘忘记关屏保的朋友可以使用,以下代码存为.vbs运行

1. Dim WshShell
2. Set WshShell = CreateObject("WScript.Shell")
3. WshShell.Run "CONTROL.EXE desk.cpl,,1"
4. WScript.Sleep 1000
5. WshShell.SendKeys "{Up}"
6. WshShell.SendKeys "{Up}"
7. WshShell.SendKeys "{Up}"
8. WshShell.SendKeys "{Up}"
9. WshShell.SendKeys "{Up}"
10. WshShell.SendKeys "{Up}"
11. WshShell.SendKeys "{Up}"
12. WshShell.SendKeys "{Up}"
13. WshShell.SendKeys "{Up}"
14. WshShell.SendKeys "{Up}"
15. WshShell.SendKeys "{Up}"
16. WshShell.SendKeys "{Up}"
17. WshShell.SendKeys "{TAB}"
18. WshShell.SendKeys "{TAB}"
19. WshShell.SendKeys "{Enter}"

复制代码