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

Bugs1984 2003-09-23 10:28:36

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

...全文

546 15 打赏收藏转发到动态举报

写回复

用AI写文章

15 条回复

切换为时间正序

请发表友善的回复…

发表回复

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 ）
－－－－－－－－---------- 谢：)

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

打赏
举报

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& ''打开显示器

jintianatxd 2003-09-24