7,763
社区成员
发帖
与我相关
我的任务
分享如何调用系统屏保设置窗口以及启动默认屏保？
一般的屏保安装程序在把scr文件复制到系统目录后，会自动打开系统的屏幕保护设置窗口，用VB怎么实现啊？
另外如何立刻启动默认的屏保？用"SendMessage Me.hwnd, WM_SYSCOMMAND, SC_SCREENSAVE, 0&"没反应。。。
另外如何立刻启动默认的屏保？用"SendMessage Me.hwnd, WM_SYSCOMMAND, SC_SCREENSAVE, 0&"没反应。。。
...全文
请发表友善的回复…
发表回复
hanwen6 2008-10-19
- 打赏
- 举报
这个不是很难。
Option Explicit
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Const WM_SYSCOMMAND = &H112
Const SC_SCREENSAVE = &HF140&
Public Sub ScreenRun(ByVal hwnd As Long)
SendMessage hwnd, WM_SYSCOMMAND, SC_SCREENSAVE, 0
End Sub
Option Explicit
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Const WM_SYSCOMMAND = &H112
Const SC_SCREENSAVE = &HF140&
Public Sub ScreenRun(ByVal hwnd As Long)
SendMessage hwnd, WM_SYSCOMMAND, SC_SCREENSAVE, 0
End Sub
happy_sea 2008-07-23
- 打赏
- 举报
呵呵，有缘者得之，全给你！
LWMWORK 2008-07-23
- 打赏
- 举报
问题对我来说太难！
抢分喽！！！
抢分喽！！！
happy_sea 2008-07-23
- 打赏
- 举报
问题已自己解决，没有朋友进来接分吗？
