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

想要调用系统屏幕保护，主要是发送一个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

原文转自：http://www.ltesting.net