调用屏幕保护 40Star（原作）

调用屏幕保护 40Star（原作）

- 中国WEB开发者网络 (http://www.webasp.net)
-- 技术教程 (http://www.webasp.net/article/)
--- 调用屏幕保护 40Star（原作） (http://www.webasp.net/article/5/4641.htm)

-- 作者：未知
-- 发布日期： 2003-07-12

想要调用系统屏幕保护，主要是发送一个WM_SYSCOMMAND消息即可。

    Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Int32, ByVal wMsg As Int32, ByVal wParam

As Int32, ByVal lParam As Int32) As Int32
    Private Const HWND_BROADCAST = &HFFFF&
    Private Const WM_SYSCOMMAND = &H112
    Private Const SC_SCREENSAVE = &HF140&

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        SendMessage(HWND_BROADCAST, WM_SYSCOMMAND, SC_SCREENSAVE, 0)
    End Sub

webasp.net