软件中关闭显示器???????

Question

怎样才能在软件中关闭显示器, 并能再次启动显示器?
就像系统的电源管理程序一样, 但不是用鼠标或键盘恢复显示器

Answer 1

Option Explicit
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_MONITORPOWER = &HF170&Private Sub Form_Load()
SendMessage Me.hWnd, WM_SYSCOMMAND, SC_MONITORPOWER, 1&  '据MSDN，这个参数如果是1，显示器进入低功耗；2，则表示关闭显示器。
End Sub

Answer 2

怎么唤醒，是不是改成0？VB代码计算器 3.7.4 欢迎下载试用下载地址：
华军软件 http://www.onlinedown.net/soft/7545.htm