欢迎来到老马的领地~ 这是“压风式散热底座”发明者的个人网站：) 本人QQ:80524554,用户群1:562279766
刚刚开着门窗,电视也开着,结果巨多的小虫子飞进来,扑在本本屏幕和电视机屏幕上.
电视机是42寸的液晶,原理与本本的LCD相同,也是用的高频灯管提供光源.
老婆和丈母娘受不了了,出去买灭害灵了,我关了电视和灯,然后等电脑的屏幕关闭.
但是没等关闭,十几只虫子就扑在了屏幕上,到处地爬,还有几只飞在我身上钻进衣服了,弄得我速度地脱掉衣服拍虫子,汗.
于是就为了速度关闭显示器,写程序吧..............嘿嘿.
代码很简单,就几句代码:
编译后,生成个快捷方式,再指定一个快捷键,要快速关闭显示器的话按这个快捷键就可以了,程序会自动退出,也不需要临时去改电源管理了,哈哈
********************* 2012-06-29更新了一下,上传代码 **********************
代码里有编译好的EXE,WIN7下测试OK.
http://www.m5home.com/blog//uploadfiles/r20120629_50921.rar
电视机是42寸的液晶,原理与本本的LCD相同,也是用的高频灯管提供光源.
老婆和丈母娘受不了了,出去买灭害灵了,我关了电视和灯,然后等电脑的屏幕关闭.
但是没等关闭,十几只虫子就扑在了屏幕上,到处地爬,还有几只飞在我身上钻进衣服了,弄得我速度地脱掉衣服拍虫子,汗.
于是就为了速度关闭显示器,写程序吧..............嘿嘿.
代码很简单,就几句代码:
Option Explicit
Private Const WM_SYSCOMMAND As Long = &H112
Private Const SC_MONITORPOWER As Long = &HF170&
Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" ( _
ByVal hwnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
ByRef lParam As Any) As Long
Private Sub Timer1_Timer()
Timer1.Enabled = False
SendMessage HWND_BROADCAST, WM_SYSCOMMAND, SC_MONITORPOWER, ByVal 2&
Unload Me
End Sub
Private Const WM_SYSCOMMAND As Long = &H112
Private Const SC_MONITORPOWER As Long = &HF170&
Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" ( _
ByVal hwnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
ByRef lParam As Any) As Long
Private Sub Timer1_Timer()
Timer1.Enabled = False
SendMessage HWND_BROADCAST, WM_SYSCOMMAND, SC_MONITORPOWER, ByVal 2&
Unload Me
End Sub
编译后,生成个快捷方式,再指定一个快捷键,要快速关闭显示器的话按这个快捷键就可以了,程序会自动退出,也不需要临时去改电源管理了,哈哈
********************* 2012-06-29更新了一下,上传代码 **********************
代码里有编译好的EXE,WIN7下测试OK.
http://www.m5home.com/blog//uploadfiles/r20120629_50921.rar
添加评论
GB2312 https://www.m5home.com/blog/trackback.php?id=15&encode=gb2312
UTF-8 https://www.m5home.com/blog/trackback.php?id=15&encode=utf-8
因为我第一个参数用的不是HWND_BROADCAST,由于我用的是WIN2003,所以之前没注意,哇哈哈.
现在改一下,添加整个工程上来算了:)
//
代码里有,下载代码吧.或者自己去API浏览器里复制,或网上找,方法太多啦.