程序在等待一段时间后如何调用屏幕保护程序！！！

Question

程序在等待一段时间后如何调用屏幕保护程序！！！

Answer 1

模块：
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Declare Function GetDesktopWindow Lib "user32" () As Long
Const WM_SYSCOMMAND = &H112&
Const SC_SCREENSAVE = &HF140&
Public Function StartScreenSaver() As Boolean
'如何让您的电脑进入待命状态 (Win98) 或启动屏幕保护程序 (Win95)？
Dim hwnd&
On Error Resume Next
hwnd& = GetDesktopWindow()
Call SendMessage(hwnd&, WM_SYSCOMMAND, SC_SCREENSAVE, 0&)
StartScreenSaver = (Err.Number = 0)
'要使用时直接呼叫 StartScreenSaver 即可！例如：StartScreenSaver
End Function

Answer 2

也可以这样的：Public Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByRef lpvParam As Any, ByVal fuWinIni As Long) As Long

Answer 3

注册表中的:
HKEY_CURRENT_USER\Control Panel\Desktop 下的 SCRNSAVE.EXE 这个字符串值，它存放的是当前屏幕保护程序(.scr)的路径。

Answer 4

但是我的winme中没有这个健，即使新建一个，也是不起作用！！