PC中关闭监视器的原理是什么？

[吾爱相随]

PC里关闭监视器的原理是什么？它是怎么实现的呢？谁能说说看？

[drifter250771]

是说显示器休眠吧，
控制显卡停止输出信号就行了

[phoenixYiYou]

同意楼上的！

[Mnky]

一个API
::SendMessage(::GetForegroundWindow(), WM_SYSCOMMAND, SC_MONITORPOWER, -1);

[45Ter]

来晚了，顶，楼上的没错！

[chensijian]

嗯，控制应该不难，很简单的条件

[abc40]

Private Declare Function GetForegroundWindow Lib "user32" () As Long '获得前台窗口的句柄。这里的“前台窗口”是指前台应用程序的活动窗口
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&
Dim A_time As String
Private Sub Command1_Click()
A_time = CDate(Time) 'CDate函数能够将有效的日期或是时间表达式转换成为Date类型并返回结果。必须的。任何有效的日期表达式(如 Date()或Now())
Timer1.Enabled = True
Form1.Hide
End Sub
Private Sub Form_Load()
Timer1.Interval = 1000
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
If Time = DateAdd("s", Val(Text1.Text), A_time) Then SendMessage GetForegroundWindow, WM_SYSCOMMAND, SC_MONITORPOWER, 2
End Sub

'DateAdd(interval, number, date)
'interval 必要。字符串表达式，是所要加上去的时间间隔。
'number 必要。数值表达式，是要加上的时间间隔的数目。其数值可以为正数（得到未来的日期），也可以为负数（得到过去的日期）。
'date 必要。Variant (Date) 或表示日期的文字，这一日期还加上了时间间隔。
'设置

'Interval 参数具有以下设定值:

'设置 描述
'yyyy 年
'q 季
'm 月
'y 一年的日数
'd 日
'w 一周的日数
'ww 周
'h 时
'n 分钟
's 秒

[abc40]

以上修改参数，你爱什么时关就什么关