请问大家如何立刻运行屏保？

Question

发送 SYSCOMMAND消息即可!
SendMessage(Handle, WM_SYSCOMMAND, SC_SCREENSAVE, 0) ;

Answer 1

我对API不懂，我声明了SendMessage函数，原句照抄到事件中，可运行不了，报“变量未定义”错

Answer 2

Private Declare Function SendMessage Lib "user32" _
Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg _
As Long, ByVal wParam As Long, ByVal lParam As Long) _
As Long
Const WM_SYSCOMMAND = &H112&
Const SC_SCREENSAVE = &HF140&Private Sub Command2_Click()
Dim result As Long
result = SendMessage(Form1.hWnd, WM_SYSCOMMAND, SC_SCREENSAVE, 0&)
End Sub

Answer 3

Perfect! I didn't define WM_SYSCOMMAND & SC_SCREENSAVE.