Board logo

标题: [求助]求一个改变屏幕保护设置的批处理! [打印本页]

作者: 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不会,太感谢你了。