1461
社区成员
- 全部
请教如何关闭监视器（无信号输入）◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎
各位高手有谁懂得用VB6编写 关闭监视器的程序－－目的是
（1）使监视器没有信号输入（就像电源管理中的“XX分钟之后关闭监视器”的效果一样！而不只是黑屏。
（2）要有恢复功能来启用监视器。
（3）鼠标和键盘事件都不能启用已经（用该程序）关闭了的监视器，必须由程序才能启用
（4）最重要的是要能在 WinXP,2000下运行，其次是能在98，ME运行！！！！
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
一经测试成功－－立即给分！！－－－决不食言
（1）使监视器没有信号输入（就像电源管理中的“XX分钟之后关闭监视器”的效果一样！而不只是黑屏。
（2）要有恢复功能来启用监视器。
（3）鼠标和键盘事件都不能启用已经（用该程序）关闭了的监视器，必须由程序才能启用
（4）最重要的是要能在 WinXP,2000下运行，其次是能在98，ME运行！！！！
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
一经测试成功－－立即给分！！－－－决不食言
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
Tadpole0510 2003-10-10
又疯了。。。。
高高兴兴的晶晶 2003-09-28
up
学习
学习
Bugs1984 2003-09-28
现在－－－－－－－－－
需要 “更改刷新频率”的方法！！！！！！！！
需要 “更改刷新频率”的方法！！！！！！！！
aha99 2003-09-26
给楼主一个办法，用timer 控制，每0。5秒钟关闭一次，即使动鼠标键盘显示器也反应不过来。而且打开更简单了。。。
aha99 2003-09-26
设置不能成功。。。
aha99 2003-09-26
楼主好高啊，这样的话不怕显示器烧坏了。而且在正常运行下好像windows对这些东西都有保护。
Bugs1984 2003-09-25
现在换个角度思考－－
因为当显示器的设置超出它所能支持的范围时－－显示器就会被迫关闭
例如某显示器只支持最高 1024×768×32bit × 75Hz刷新频率
－－现在要改变（升高） 分辨率 或 刷新频率 使得显示器超负荷而关闭！
－－当需要再次启用时－－就把显示器的设置恢复原值。
现在本人需要 “更改刷新频率”的方法！！！！！！！！
请问有哪位高手可以帮帮忙，实现上述功能（最好有VB源码！E-mail: bugs1984@21cn.com ）
－－－－－－－－---------- 谢 ：)
因为当显示器的设置超出它所能支持的范围时－－显示器就会被迫关闭
例如某显示器只支持最高 1024×768×32bit × 75Hz刷新频率
－－现在要改变（升高） 分辨率 或 刷新频率 使得显示器超负荷而关闭！
－－当需要再次启用时－－就把显示器的设置恢复原值。
现在本人需要 “更改刷新频率”的方法！！！！！！！！
请问有哪位高手可以帮帮忙，实现上述功能（最好有VB源码！E-mail: bugs1984@21cn.com ）
－－－－－－－－---------- 谢 ：)
jlum99 2003-09-24
关闭显示器在汇编里还是比较方便的,VB不知道.
Gelim 2003-09-24
楼主的要求很苛刻啊！UP！
踏平扶桑 2003-09-24
截取到鼠标和键盘事件
Bugs1984 2003-09-24
hongsongboy(红松)的办法的确可以关闭和恢复显示器，
只是一遇到鼠标和键盘事件，显示器就会开启了。
请问有没有办法可以令 鼠标和键盘事件 都不能够影响显示器当前的状态吗？（前提是－－不能禁用鼠标或键盘！！）
谢。
只是一遇到鼠标和键盘事件，显示器就会开启了。
请问有没有办法可以令 鼠标和键盘事件 都不能够影响显示器当前的状态吗？（前提是－－不能禁用鼠标或键盘！！）
谢。
lndlwwh830 2003-09-24
关注
hxy2003 2003-09-24
GZ
hongsongboy 2003-09-24
Option Explicit
Private 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& ''打开显示器
Private 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& ''打开显示器
jintianatxd 2003-09-24
关注。
