快捷调整音量v1.3 弥补没有快捷键的键盘

Smr

# 快捷调整音量v1.3  弥补没有快捷键的键盘
# 闲来无事分享一下自己的小程序，公司电脑没有快捷键，有了这个就方便调整音量，习惯了，还是很方便的，现在分享出来，给大家看看。# 以前分享过一次，现在更新一下   https://125.confly.eu.org/forum.php?mod=viewthread&tid=14651629   (出处: 精易论坛)

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
热键标识
自身句柄	整数型
文件名	文本型

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

' # 版本更新内容 V1.3
' # 修正重复运行不显示程序
' # 修正快捷键显示错误
' # 代码优化
' # 修正重复运行后托盘图标消失
' #
' ——运行流程——
' 0、基础运行环境
' 1、最小化
' 2、 禁止重复
' 3、注册热键
' 4、读取启动项
' 5、托盘图标
' 6、功能子程序
自身句柄 ＝ _启动窗口.取窗口句柄 ()
文件名 ＝ 窗口_句柄取进程名 (自身句柄)
_启动窗口.位置 ＝ 2
程序_禁止重复运行 (“音量调节V1.3”, 真, “程序已经运行”, #信息图标, 真)
窗口_热键注册 (_启动窗口.取窗口句柄 (), 2, #PageDown键, &_按钮3音量减_被单击, 1)
窗口_热键注册 (_启动窗口.取窗口句柄 (), 2, #PageUp键, &_按钮2音量加_被单击, 2)
窗口_热键注册 (_启动窗口.取窗口句柄 (), , #Pause键, &_按钮1静音_被单击, 3)
如果 (注册项是否存在 ( #现行用户, “Software\Microsoft\Windows\CurrentVersion\Run\音量调整”) ＝ 真)
开机启动.选中 ＝ 真
开机启动.选中 ＝ 假

置托盘图标 ( #托盘图标数据, “快捷音量调节软件”)

子程序名	返回值类型	公开	备 注
_开机启动_被选择

如果 (注册项是否存在 ( #现行用户, “Software\Microsoft\Windows\CurrentVersion\Run\音量调整”) ＝ 假)
写注册项 ( #现行用户, “Software\Microsoft\Windows\CurrentVersion\Run\音量调整”, 取运行目录 () ＋ “\” ＋ 文件名)
开机启动.选中 ＝ 真
信息框 (文件名 ＋ #换行符 ＋ “已添加启动项”, 0, , _启动窗口)
删除注册项 ( #现行用户, “Software\Microsoft\Windows\CurrentVersion\Run\音量调整”)
开机启动.选中 ＝ 假
信息框 (文件名 ＋ #换行符 ＋ “已取消启动项”, 0, , _启动窗口)

子程序名	返回值类型	公开	备 注
_打开程序_被选择

_启动窗口.可视 ＝ 真
_启动窗口.位置 ＝ 0

子程序名	返回值类型	公开	备 注
__启动窗口_托盘事件
参数名	类 型	参考	可空	数组	备 注
操作类型	整数型

如果真 (操作类型 ＝ #双击 )
_启动窗口.可视 ＝ 真
_启动窗口.位置 ＝ 0

如果真 (操作类型 ＝ #单击右键 )
弹出托盘菜单 (菜单)

子程序名	返回值类型	公开	备 注
_最小化_被选择

_启动窗口.位置 ＝ 2

子程序名	返回值类型	公开	备 注
_退出程序_被选择

_启动窗口.销毁 ()
撤销热键 (取窗口句柄 (), 热键标识)

子程序名	返回值类型	公开	备 注
__启动窗口_将被销毁

窗口_热键卸载所有 (_启动窗口.取窗口句柄 ())
托盘图标_销毁 ()

子程序名	返回值类型	公开	备 注
_按钮1静音_被单击

音量_静音 (取窗口句柄 ())

子程序名	返回值类型	公开	备 注
_按钮2音量加_被单击

音量_增加 (取窗口句柄 ())

子程序名	返回值类型	公开	备 注
_按钮3音量减_被单击

音量_减少 (取窗口句柄 ())

子程序名	返回值类型	公开	备 注
_时钟1_周期事件

如果真 (_启动窗口.位置 ＝ 2)
_启动窗口.可视 ＝ 假

i支持库列表	支持库注释
shellEx	扩展功能支持库一

.版本 2<br /> .支持库 shellEx<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 热键标识<br /> .程序集变量 自身句柄, 整数型<br /> .程序集变量 文件名, 文本型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> ' # 版本更新内容 V1.3<br /> ' # 修正重复运行不显示程序<br /> ' # 修正快捷键显示错误<br /> ' # 代码优化<br /> ' # 修正重复运行后托盘图标消失<br /> ' #<br /> ' ——运行流程——<br /> ' 0、基础运行环境<br /> ' 1、最小化<br /> ' 2、 禁止重复<br /> ' 3、注册热键<br /> ' 4、读取启动项<br /> ' 5、托盘图标<br /> ' 6、功能子程序<br /> <br /> 自身句柄 ＝ _启动窗口.取窗口句柄 ()<br /> 文件名 ＝ 窗口_句柄取进程名 (自身句柄)<br /> <br /> _启动窗口.位置 ＝ 2<br /> 程序_禁止重复运行 (“音量调节V1.3”, 真, “程序已经运行”, #信息图标, 真)<br /> <br /> 窗口_热键注册 (_启动窗口.取窗口句柄 (), 2, #PageDown键, &_按钮3音量减_被单击, 1)<br /> 窗口_热键注册 (_启动窗口.取窗口句柄 (), 2, #PageUp键, &_按钮2音量加_被单击, 2)<br /> 窗口_热键注册 (_启动窗口.取窗口句柄 (), , #Pause键, &_按钮1静音_被单击, 3)<br /> <br /> <br /> .如果 (注册项是否存在 (#现行用户, “Software\Microsoft\Windows\CurrentVersion\Run\音量调整”) ＝ 真)<br />     开机启动.选中 ＝ 真<br /> .否则<br />     开机启动.选中 ＝ 假<br /> .如果结束<br /> <br /> <br /> 置托盘图标 (#托盘图标数据, “快捷音量调节软件”)<br /> <br /> <br /> .子程序 _开机启动_被选择<br /> <br /> <br /> .如果 (注册项是否存在 (#现行用户, “Software\Microsoft\Windows\CurrentVersion\Run\音量调整”) ＝ 假)<br />     写注册项 (#现行用户, “Software\Microsoft\Windows\CurrentVersion\Run\音量调整”, 取运行目录 () ＋ “\” ＋ 文件名)<br />     开机启动.选中 ＝ 真<br />     信息框 (文件名 ＋ #换行符 ＋ “已添加启动项”, 0, , _启动窗口)<br /> .否则<br />     删除注册项 (#现行用户, “Software\Microsoft\Windows\CurrentVersion\Run\音量调整”)<br />     开机启动.选中 ＝ 假<br />     信息框 (文件名 ＋ #换行符 ＋ “已取消启动项”, 0, , _启动窗口)<br /> .如果结束<br /> <br /> <br /> .子程序 _打开程序_被选择<br /> <br /> _启动窗口.可视 ＝ 真<br /> _启动窗口.位置 ＝ 0<br /> <br /> .子程序 __启动窗口_托盘事件<br /> .参数 操作类型, 整数型<br /> <br /> <br /> .如果真 (操作类型 ＝ #双击)<br />     _启动窗口.可视 ＝ 真<br />     _启动窗口.位置 ＝ 0<br /> .如果真结束<br /> <br /> .如果真 (操作类型 ＝ #单击右键)<br />     弹出托盘菜单 (菜单)<br /> .如果真结束<br /> <br /> <br /> .子程序 _最小化_被选择<br /> <br /> _启动窗口.位置 ＝ 2<br /> <br /> .子程序 _退出程序_被选择<br /> <br /> _启动窗口.销毁 ()<br /> 撤销热键 (取窗口句柄 (), 热键标识)<br /> <br /> .子程序 __启动窗口_将被销毁<br /> <br /> 窗口_热键卸载所有 (_启动窗口.取窗口句柄 ())<br /> 托盘图标_销毁 ()<br /> <br /> .子程序 _按钮1静音_被单击<br /> <br /> 音量_静音 (取窗口句柄 ())<br /> <br /> .子程序 _按钮2音量加_被单击<br /> <br /> 音量_增加 (取窗口句柄 ())<br /> <br /> .子程序 _按钮3音量减_被单击<br /> <br /> 音量_减少 (取窗口句柄 ())<br /> <br /> .子程序 _时钟1_周期事件<br /> <br /> .如果真 (_启动窗口.位置 ＝ 2)<br />     _启动窗口.可视 ＝ 假<br /> .如果真结束

快手

能不能给个源码

zqs5357

好东西啊！我好想好想用了

电速极光

2446789312 发表于 2022-5-20 19:07

我像你一样汗颜，没谁了。

电速极光

kmskik 发表于 2022-5-20 17:36
高人，就是要吧简单的问题复杂化！

明白人，哈哈哈。不这样的话他怎么显摆他会写个小软件呢？是吧

电速极光

xbwdl 发表于 2022-5-20 16:44
鼠标点两下就能解决的事情非要搞这么复杂

不这样的话他怎么显摆他会写个小软件呢？你说是不是啊 兄台

电速极光

wuqingg 发表于 2022-5-20 15:57
大兄弟你的电脑没有这个嘛？

不这样的话他怎么显摆他会写个小软件呢？

电速极光

我发现你就喜欢脱裤子放屁，没技术还爱炫。就这种玩意儿，Windows自己的右下角图标调节音量不行？得打开你这个调？

飞宇

不错 想法终于上来了。。。

huben

感谢分享，很给力！~