求写一个程序,一点击或一按快捷键即可直接进入屏幕保护

Question

如题

Answer 1

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As LongConst WM_SYSCOMMAND = &H112&
Const SC_MONITORPOWER = &HF170&
Const SC_SCREENSAVE = &HF140& 
Private Sub Command1_Click()
SendMessage Me.hwnd, WM_SYSCOMMAND, SC_MONITORPOWER, ByVal 2& '关闭显示器
End SubPrivate Sub Command2_Click()
SendMessage Me.hwnd, WM_SYSCOMMAND, SC_SCREENSAVE, 0   '屏幕保护
End Sub

Answer 2

TO(人一定要靠自已)
怎么设置快捷键
如:F11关闭显示器,F12屏幕保护
并把这个程序在开机的时候就隐藏运行
一按F11就关闭显示器
一按F12就屏幕保护