请教如何关闭监视器（无信号输入）◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎

Question

各位高手有谁懂得用VB6编写 关闭监视器的程序－－目的是
（1）使监视器没有信号输入（就像电源管理中的“XX分钟之后关闭监视器”的效果一样！而不只是黑屏。
（2）要有恢复功能来启用监视器。
（3）鼠标和键盘事件都不能启用已经（用该程序）关闭了的监视器，必须由程序才能启用
（4）最重要的是要能在 WinXP,2000下运行，其次是能在98，ME运行！！！！
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
一经测试成功－－立即给分！！－－－决不食言

Answer 1

Option ExplicitPrivate Declare Function SendMessage Lib "user32" Alias _
        "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As _
        Long, ByVal wParam As Long, lParam As Any) As Long
Const WM_SYSCOMMAND = &H112&
Const SC_MONITORPOWER = &HF170&SendMessage Me.hwnd, WM_SYSCOMMAND, SC_MONITORPOWER, ByVal 2& ''关闭显示器SendMessage Me.hwnd, WM_SYSCOMMAND, SC_MONITORPOWER, ByVal -1& ''打开显示器

Answer 2

hongsongboy(红松)的办法的确可以关闭和恢复显示器，
  只是一遇到鼠标和键盘事件，显示器就会开启了。
  请问有没有办法可以令 鼠标和键盘事件 都不能够影响显示器当前的状态吗？（前提是－－不能禁用鼠标或键盘！！）
  
  谢。

Answer 3

现在换个角度思考－－
因为当显示器的设置超出它所能支持的范围时－－显示器就会被迫关闭
例如某显示器只支持最高 1024×768×32bit × 75Hz刷新频率
－－现在要改变（升高） 分辨率 或 刷新频率 使得显示器超负荷而关闭！
－－当需要再次启用时－－就把显示器的设置恢复原值。现在本人需要 “更改刷新频率”的方法！！！！！！！！
请问有哪位高手可以帮帮忙，实现上述功能（最好有VB源码！E-mail: [email protected]  ）
－－－－－－－－---------- 谢 ：)

Answer 4

楼主好高啊，这样的话不怕显示器烧坏了。而且在正常运行下好像windows对这些东西都有保护。

Answer 5

给楼主一个办法，用timer 控制，每0。5秒钟关闭一次，即使动鼠标键盘显示器也反应不过来。而且打开更简单了