阿杰 发表于 2010-9-19 08:09:07

打开关闭显示器的源代码


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 Sub Command1_Click()
    Call SendScreenMessage(Me.hwnd, WM_SYSCOMMAND, SC_MONITORPOWER, ByVal MONITOR_ON)
End Sub
Private Sub Command2_Click()
    Call SendScreenMessage(Me.hwnd, WM_SYSCOMMAND, SC_MONITORPOWER, ByVal MONITOR_LOWPOWER)
    Timer1.Enabled = True
    'Call SendScreenMessage(Me.hwnd, WM_SYSCOMMAND, SC_MONITORPOWER, ByVal 0)
End Sub
Private Sub Timer1_Timer()
    Command1_Click
    Timer1.Enabled = False
End Sub

ok100fen 发表于 2010-9-19 18:41:44

有用代码

3q

a2010xxb 发表于 2010-9-24 01:00:02

:o 好猥琐

马大哈 发表于 2010-9-24 12:42:17

...远程省电用?

zmh886 发表于 2010-10-18 02:56:44

关闭显示器 我单独生成了个EXE 用来晚上挂游戏时关显示器。破游戏 待机就掉线 用 关闭显示器电源代码就不掉

没直接按电源开关的原因是电源开关基本报废

upring 发表于 2015-9-11 11:58:16

开心进步每一天
页: [1]
查看完整版本: 打开关闭显示器的源代码