请问如何编程关闭显示器 和 调整屏幕亮度?
显卡的设计界面中都有调整视频亮度对比度的功能,请问我如何编程实现?
[解决办法]
Option Explicit
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
[解决办法]
调整屏幕亮度需要使用这个API:
SetDeviceGammaRamp
代码很简单,查一下MSDN
[解决办法]
http://www.google.com/search?q=VB%20SetDeviceGammaRamp&hl=zh-CN&lr=&nxpt=10.134210891149857244538
自己看看
