网吧论坛 › 软件交流 › 禁止屏幕保护VBS代码

风一样的男孩 发表于 2009-7-25 14:54:35

禁止屏幕保护VBS代码

做母盘忘记关屏保的朋友可以使用,以下代码存为.vbs运行
Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run "CONTROL.EXE desk.cpl,,1"
WScript.Sleep 1000
WshShell.SendKeys "{Up}"
WshShell.SendKeys "{Up}"
WshShell.SendKeys "{Up}"
WshShell.SendKeys "{Up}"
WshShell.SendKeys "{Up}"
WshShell.SendKeys "{Up}"
WshShell.SendKeys "{Up}"
WshShell.SendKeys "{Up}"
WshShell.SendKeys "{Up}"
WshShell.SendKeys "{Up}"
WshShell.SendKeys "{Up}"
WshShell.SendKeys "{Up}"
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "{Enter}"

剑二十三 发表于 2009-8-24 06:51:40

查看完整版本: 禁止屏幕保护VBS代码