ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 3668|回复: 8

[原创] 快速使系统实现静音与消除静音

[复制链接]

TA的精华主题

TA的得分主题

发表于 2009-4-10 13:52 | 显示全部楼层 |阅读模式
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
因为每天都要坐在电脑前面数小时,进行项目开发,为了减轻工作压力,通常会偷偷的打开音箱,在线听歌,这两个程序是为了方便领导来到办公室的时候,可以快速地关闭在线收听的音乐而作的小程序,将两个程序的快捷方式拖入任务栏就行了,一个程序是“静音”,另外一个是“开声”,有哪位朋友需要订制实用的应用程序,也可以随时与自己联系,各位长时间工作的IT一族,记得要适时舒缓紧张的神经啊   ^_^

快速打开与关闭声音.rar

164.09 KB, 下载次数: 23

评分

1

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2009-4-10 16:43 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
已经重新上传了,是配对的,呵呵~~~

快速打开与关闭声音.rar

328.12 KB, 下载次数: 42

TA的精华主题

TA的得分主题

发表于 2009-4-10 19:31 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2009-4-11 00:15 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2009-4-11 06:28 | 显示全部楼层
谢谢分享!
这个好,省得我经常半夜关音响,怕吵得别人了!

TA的精华主题

TA的得分主题

发表于 2009-4-11 07:46 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2009-4-11 08:35 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
呵呵,很实用,宿舍很安静,就需要这东西。

TA的精华主题

TA的得分主题

发表于 2019-1-30 19:21 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2019-8-23 11:35 | 显示全部楼层
  1. // 由 PE Explorer 创建 1.96 (www.heaventools.com)
  2. // 文件名称: C:\Users\Administrator\Desktop\静音.exe
  3. // 已创建  : 23.08.2019 11:33
  4. // 类型     : 导入


  5. function mixerSetControlDetails(hmxobj: HMIXEROBJ;
  6.       pmxcd: PMixerControlDetails; fdwDetails: DWORD): MMRESULT; stdcall;
  7.       external 'winmm.dll' name 'mixerSetControlDetails' index 118;

  8. function mixerOpen(phmx: PHMIXER; uMxId: UINT; dwCallback, dwInstance,
  9.       fdwOpen: DWORD): MMRESULT; stdcall;
  10.       external 'winmm.dll' name 'mixerOpen' index 117;

  11. function mixerGetNumDevs: UINT; stdcall;
  12.       external 'winmm.dll' name 'mixerGetNumDevs' index 115;

  13. function mixerGetLineInfo(hmxobj: HMIXEROBJ; pmxl: PMixerLineA;
  14.       fdwInfo: DWORD): MMRESULT; stdcall;
  15.       external 'winmm.dll' name 'mixerGetLineInfoA' index 113;

  16. function mixerGetLineControls(hmxobj: HMIXEROBJ; pmxlc: PMixerLineControlsA;
  17.       fdwControls: DWORD): MMRESULT; stdcall;
  18.       external 'winmm.dll' name 'mixerGetLineControlsA' index 111;

  19. function mixerClose(hmx: HMIXER): MMRESULT; stdcall;
  20.       external 'winmm.dll' name 'mixerClose' index 105;

复制代码

参考:
https://www.codeproject.com/Arti ... ixer-Functions-Demo
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-11-28 08:15 , Processed in 0.037868 second(s), 12 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表