打开关闭显示器的源代码

阿杰

1. 
   
2. 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
   
3. Private Const MONITOR_ON = -1&
   
4. Private Const MONITOR_LOWPOWER = 1&
   
5. Private Const MONITOR_OFF = 2&
   
6. Private Const SC_MONITORPOWER = &HF170&
   
7. Private Const WM_SYSCOMMAND = &H112
   
8. Private Sub Command1_Click()
   
9.     Call SendScreenMessage(Me.hwnd, WM_SYSCOMMAND, SC_MONITORPOWER, ByVal MONITOR_ON)
   
10. End Sub
    
11. Private Sub Command2_Click()
    
12.     Call SendScreenMessage(Me.hwnd, WM_SYSCOMMAND, SC_MONITORPOWER, ByVal MONITOR_LOWPOWER)
    
13.     Timer1.Enabled = True
    
14.     'Call SendScreenMessage(Me.hwnd, WM_SYSCOMMAND, SC_MONITORPOWER, ByVal 0)
    
15. End Sub
    
16. Private Sub Timer1_Timer()
    
17.     Command1_Click
    
18.     Timer1.Enabled = False
    
19. End Sub
    
20. 
    

复制代码

ok100fen

有用代码

3q

a2010xxb

好猥琐

马大哈

...远程省电用?

zmh886

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

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

upring

开心进步每一天