请教如何关闭监视器(无信号输入)◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎

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

...全文
546 15 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
15 条回复
切换为时间正序
请发表友善的回复…
发表回复
Tadpole0510 2003-10-10
  • 打赏
  • 举报
回复
又疯了。。。。
  • 打赏
  • 举报
回复
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
  • 打赏
  • 举报
回复
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& ''打开显示器

jintianatxd 2003-09-24
  • 打赏
  • 举报
回复
关注。

1,488

社区成员

发帖
与我相关
我的任务
社区描述
VB API
社区管理员
  • API
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧