环境:windows
前言
笔记本的Fn键失灵了,虽然电脑自带了Fn与Ctrl键切换的功能,但为了使用Fn而牺牲左边的Ctrl键,简直不可接受。Fn提供的功能也是我适应白天和晚上不能缺少的功能。
网友们说这种情况可能拆下键盘,清理下金手指就好了,但一来麻烦,二来不一定能好。
实现
要替代Fn的组合键,就要设置快捷键,而windows下设置快捷键最方便的工具莫过于autohotkey了。而且可以发送按键,直接发送Fn+F5不就可以调整亮度了吗,so easy! 分分钟搞定!
然而,现实很残酷!Fn的按键没有相应的编码?!而且抓取不到!且各硬件厂家的实现不一?
好吧,换个思路?能调整屏幕亮度就成!找到可使用wmi来调整屏幕亮度,powershell的代码如下:
::将屏幕的亮度设置为50,最小值为0,最大值为100 (Get-WmiObject -Namespace root/WMI -Class WmiMonitorBrightnessMethods).WmiSetBrightness(1,50) ::获取当前屏幕亮度 (Get-Ciminstance -Namespace root/WMI -ClassName WmiMonitorBrightness).CurrentBrightness
vbscript的代码如下:
\' 将屏幕的亮度设置为50,最小值为0,最大值为100 On Error Resume Next strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\wmi") Set colItems = objWMIService.ExecQuery("Select * from WmiMonitorBrightnessMethods",,48) For Each objItem in colItems objItem.WmiSetBrightness(1, 50) WScript.Echo "" Next
\'获取当前屏幕亮度 On Error Resume Next strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\wmi") Set colItems = objWMIService.ExecQuery("Select * from WmiMonitorBrightness",,48) For Each objItem in colItems WScript.Echo "CurrentBrightness: " & objItem.CurrentBrightness WScript.Echo "" Next
转化为Autohotkey后的代码如下:
;设置屏幕亮度 SetBrightNess(iSetBrigthNess) { iSetBrigthNess := Min(100, iSetBrigthNess) ;不大于100 iSetBrigthNess := Max(0, iSetBrigthNess) ; 不小于0 strComputer := "." objWMIService := ComObjGet("winmgmts:\\" . strComputer . "\root\wmi") colItems := objWMIService.ExecQuery("Select * from WmiMonitorBrightnessMethods", ComObjMissing(), 48) For objItem in colItems { objItem.WmiSetBrightness(1, iSetBrigthNess) } return iSetBrigthNess }
;获取屏幕亮度 GetCurBrightNess() { strComputer := "." objWMIService := ComObjGet("winmgmts:\\" . strComputer . "\root\wmi") colItems := objWMIService.ExecQuery("Select * from WmiMonitorBrightness", ComObjMissing(), 48) iCurrentBrightness := 0 For objItem in colItems { ;~ MsgBox, % "-----------------------------------" ;~ . "Win32_OperatingSystem instance" ;~ . "-----------------------------------" ;~ . "Caption: " . objItem.CurrentBrightness iCurrentBrightness := objItem.CurrentBrightness } return iCurrentBrightness }
完整的Autohotkey代码如下:
;Alt+LCtrl+F1 静音 !>^F1::Send {Volume_Mute} ;Alt+LCtrl+F2 降低音量 !>^F2::Send {Volume_Down} ;Alt+LCtrl+F3 增加音量 !>^F3::Send {Volume_Up} ;Alt+LCtrl+Left 上一首 !>^Left::Send {Media_Prev} ;Alt+LCtrl+Down 暂停、播放 !>^Down::Send {Media_Play_Pause} ;Alt+LCtrl+Right 下一首 !>^Right::Send {Media_Next} ;Alt+LCtrl+Up 停止 !>^Up::Send {Media_Stop} !>^F5:: result := GetCurBrightNess() --result ;~ MsgBox % "Result: " --result SetBrightNess(result) return ;Alt+LCtrl+F6 增加亮度 !>^F6:: result := GetCurBrightNess() ++result SetBrightNess(result) return ;Alt+LCtrl+ESC 退出程度 !>^Esc::ExitApp ;获取屏幕亮度 GetCurBrightNess() { strComputer := "." objWMIService := ComObjGet("winmgmts:\\" . strComputer . "\root\wmi") colItems := objWMIService.ExecQuery("Select * from WmiMonitorBrightness", ComObjMissing(), 48) iCurrentBrightness := 0 For objItem in colItems { ;~ MsgBox, % "-----------------------------------" ;~ . "Win32_OperatingSystem instance" ;~ . "-----------------------------------" ;~ . "Caption: " . objItem.CurrentBrightness iCurrentBrightness := objItem.CurrentBrightness } return iCurrentBrightness } ;设置屏幕亮度 SetBrightNess(iSetBrigthNess) { iSetBrigthNess := Min(100, iSetBrigthNess) ;不大于100 iSetBrigthNess := Max(0, iSetBrigthNess) ; 不小于0 strComputer := "." objWMIService := ComObjGet("winmgmts:\\" . strComputer . "\root\wmi") colItems := objWMIService.ExecQuery("Select * from WmiMonitorBrightnessMethods", ComObjMissing(), 48) For objItem in colItems { objItem.WmiSetBrightness(1, iSetBrigthNess) } return iSetBrigthNess }
参考资料:
1. https://docs.microsoft.com/zh-cn/windows/desktop/WmiSdk/calling-a-method 告诉了我在autohotkey中可以使用
"
objItem.WmiSetBrightness(1, iSetBrigthNess)
"来调用WmiSetBtightness()的函数,此前使用别的方式调用,返回了错误信息0x8004102F
2. http://www.yfvb.com/help/wmi/index.htm?page=wmi_error_constants.htm wmi编程手册,中文版,可以先学习下基础知识
3. https://docs.microsoft.com/zh-cn/windows/desktop/WmiSdk/swbemservicesex-put 对工具的帮助不是很大,但有个印象
4. https://docs.microsoft.com/zh-cn/windows/desktop/WmiSdk/creating-a-wmi-script 基础知识,了解了解
5.https://docs.microsoft.com/zh-cn/windows/desktop/WmiSdk/swbemobject 基础知识,了解了解
6.https://blog.csdn.net/ONE_SIX_MIX/article/details/80286421 对本文的帮助非常大,这个是c++的解决方案,但我一来不想安装vs2017,二来还有可以直接发送按键就能实现一部分功能,而这些,在c++中不清楚如何处理,想尽快搞个可用的工具。
7.https://www.jianshu.com/p/41206522387b 对本工具的帮助也非常大,之前只找到了powershell版本的可用代码,在autohotkey中调用powershell,来实现功能,可实际证明,这样太慢了,实在不好用,学习了这个以后直接在脚本中调用wmi,速度快多了。也就是目前可用的版本了
延伸思考
-
wmi可以监听进程的创建、退出消息。这个可以做启动客户端后,自动启动后台服务、停止服务的功能,而优化电脑的性能
-
autohotkey可以根据窗口的标题来执行动作,那么可以去掉win7桌面的删除文件时的确认窗口