用run()和idle()函数能调用window xp系统的屏保吗？

[heima11]

其实我要的功能很简单　我的意思就是向window xp等系统那样　可以在你不用鼠标和键盘的时候，ＰＢ程序自动调用系统的屏保　能实现吗？还请大家帮忙哦
在线等ＩＮＧ．．．．．．．．．．．．．．

[heima11]

就是调用系统的计算器喽。
有人告诉我用这个　什么意思　我好象听说过ＶＢ里面有过时钟哦　大家帮忙看看哦

[hongxiuxie]

可能嘘嘘兔说的对, 不过, 即使是PB写的程序, 长时间不动鼠标, 屏保也会自动弹出

[嘘嘘兔]

调用系统屏保：
定义实例变量 String li_active,li_Screen,li_Security

在Idle事件中：

1）读取系统原始信息

RegisTryGet("Hkey_Current_user\control Panel\Desktop","ScreenSaveActive",RegString!,li_Active)
RegisTryGet("Hkey_Current_user\control Panel\Desktop","SCRNSAVE.EXE",RegString!,li_Screen)
RegisTryGet("Hkey_Current_user\control Panel\Desktop","ScreenSaverIsSecure",RegString!,li_security)

2）按你软件中的设置修改注册表并调用屏幕保护程序

RegisTrySet("Hkey_Current_user\control Panel\Desktop","ScreenSaveActive",RegString!,'1') // 是否起用屏保 '1'为启用，‘0’为不启用
RegisTrySet("Hkey_Current_user\control Panel\Desktop","ScreenSaverIsSecure",RegString!,'1') //是否启用密码 ‘0’为否，‘1’为是

send(handle(w_main),274,61760,0) //发出命令调用屏保

在 Close 事件中：

3）恢复系统原始设置

RegisTrySet("Hkey_Current_user\control Panel\Desktop","ScreenSaveActive",RegString!,li_Active)
RegisTrySet("Hkey_Current_user\control Panel\Desktop","SCRNSAVE.EXE",RegString!,li_Screen) RegisTrySet("Hkey_Current_user\control Panel\Desktop","ScreenSaverIsSecure",RegString!,li_security)

[rocksan]

application: idle(秒)
idle()事件中run(路径\屏保名)
应该可以的！

[qianfl]

windows自己就会调用了，干吗要用自己的程序去调？

[一怒倾城]

脱裤子放屁 :)