编程实现关闭电脑显示器

 

对于笔记本用户来说，关闭显示器可不是一件简单的事！
在这里跟大家介绍一种关闭电脑显示器的方法！通过编程实现，我有已经编译OK的可执行程序，比较小，只有400kb。若大家需要这个小程序或源代码，请与我联系！
这个小程序同样是调用API函数，这里是VB的代码！代码如下：
Private Declare Function SendScreenMessage Lib "user32" _
   Alias "SendMessageA" _
  (ByVal hwnd As Long, _
   ByVal wMsg As Long, _
   ByVal wParam As Long, _
   lParam As Any) As Long
Private Const MONITOR_ON = -1&
Private Const MONITOR_LOWPOWER = 1&
Private Const MONITOR_OFF = 2&
Private Const SC_MONITORPOWER = &HF170&
Private Const WM_SYSCOMMAND = &H112
'关闭 显示器
Private Function MonitorOff(Form As Form)
    
    Call SendScreenMessage(Form.hwnd, WM_SYSCOMMAND, SC_MONITORPOWER, ByVal MONITOR_OFF)
End Function
'开启显示器
Private Function MonitorOn(Form As Form)
    
    Call SendScreenMessage(Form.hwnd, WM_SYSCOMMAND, SC_MONITORPOWER, ByVal MONITOR_ON)
End Function

在启动程序时就调用开启显示器。
当按回车键时就自动结束程序。
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Call MonitorOn(Form1)
Unload Me
Else
Call MonitorOff(Form1)
End If
End Sub