标题: [求助]求一个改变屏幕保护设置的批处理！
[打印本页]
作者: skywalker
时间: 2007-11-27 10:38
标题: [求助]求一个改变屏幕保护设置的批处理！
在winXP中，因为要用foxbase，经常进入全屏幕的提示符模式，这种情况下，如果用的时间较长，就会进入windows的屏幕保护，动一下鼠标后，提示符模式就会出现乱码、花屏的现象。为防止这样，每次进入foxbase前都要将屏幕保护设为“无”。
求一个批处理（或两个），一个可以将屏保设为“无”，另一个可以设为winXP的默认屏保。或者可以用批处理自动判断。
感谢ing！
作者: skywalker
时间: 2007-11-28 14:31
没有人知道么？
不可能的。
不能沉下去了，自己顶一下！
作者: fastslz
时间: 2007-11-28 17:30
笨办法rundll32.exe + vbs sendkeys,只是现在没时间
作者: HAT
时间: 2007-11-28 20:29
笨办法
@echo off
rem 禁用屏保
reg export "HKEY_CURRENT_USER\Control Panel\Desktop" %temp%\MySave.reg
reg delete "HKEY_CURRENT_USER\Control Panel\Desktop" /v SCRNSAVE.EXE /f
@echo off
rem 启用屏保
reg import %temp%\MySave.reg
作者: mkd
时间: 2007-11-28 20:53
reg add "HKCU\Control Panel\Desktop" /v ScreenSaveActive /d 0 /f
reg add "HKCU\Control Panel\Desktop" /v ScreenSaveActive /d 1 /f
作者: fastslz
时间: 2007-11-28 22:14
修改注册表可能重启后才生效,这个是VBS,自己看吧
set ws=wscript.createobject("wscript.shell")
ws.run "rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,1"
wscript.sleep 2000
ws.sendkeys("{home}")
wscript.sleep 500
ws.sendkeys("{tab 2}")
wscript.sleep 500
ws.sendkeys("%a")
wscript.sleep 1000
ws.sendkeys("%{f4}")
作者: skywalker
时间: 2007-11-29 17:46
感谢fastslz大大。
能再写一个开启屏保的代码吗？
选择winxp默认屏保，时间是2分钟。
作者: fastslz
时间: 2007-11-29 19:07
set ws=wscript.createobject("wscript.shell")
ws.run "rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,1"
wscript.sleep 2000
ws.sendkeys("{home}")
wscript.sleep 500
ws.sendkeys("{Down 1}")
wscript.sleep 500
ws.sendkeys("{tab 3}")
wscript.sleep 500
ws.sendkeys("2")
wscript.sleep 500
ws.sendkeys("%a")
wscript.sleep 500
ws.sendkeys("%{f4}")
每个电脑上屏保不一，红色部分自己改一下，也就是下箭头按几下到Windows默认位置
不推荐用VBS一旦窗口失去焦点容易出现误操作
作者: skywalker
时间: 2007-12-13 17:13
感谢，感谢……
完全可以正常使用。
我批处理才刚入门，vbs不会，太感谢你了。