易语言如何禁用麦克风,只禁用/启用 麦克风

九千七

易语言如何禁用麦克风,只禁用/启用 麦克风

guoge110

.版本 2

.DLL命令 waveInGetNumDevs, 公开, "winmm.dll", "waveInGetNumDevs", 整数型
.DLL命令 waveInMessage, 公开, "winmm.dll", "waveInMessage", 整数型, 整数型, 整数型, 整数型, 整数型
.DLL命令 waveInOpen, 公开, "winmm.dll", "waveInOpen", 整数型, 整数型, 整数型, 整数型, 整数型, 整数型
.DLL命令 waveInClose, 公开, "winmm.dll", "waveInClose", 整数型, 整数型

.常量 WIM_CLOSE = 533
.常量 WIM_DATA = 534
.常量 WIM_OPEN = 532
.常量 MMSYSERR_NOERROR = 0

.子程序 禁用麦克风, 逻辑型
.局部变量 设备数量, 整数型
.局部变量 设备句柄, 整数型
.局部变量 返回值, 整数型

设备数量 = waveInGetNumDevs()
如果 (设备数量 <= 0) 则
    返回 (假)
结束

返回值 = waveInOpen (设备句柄, 0, 0, 0, 0, 0)
如果 (返回值 != MMSYSERR_NOERROR) 则
    返回 (假)
结束

返回值 = waveInClose (设备句柄)
如果 (返回值 != MMSYSERR_NOERROR) 则
    返回 (假)
结束

返回 (真)
.子程序结束

.子程序 启用麦克风, 逻辑型
.局部变量 设备数量, 整数型
.局部变量 设备句柄, 整数型
.局部变量 返回值, 整数型

设备数量 = waveInGetNumDevs()
如果 (设备数量 <= 0) 则
    返回 (假)
结束

返回值 = waveInOpen (设备句柄, 0, 0, 0, 0, 1)
如果 (返回值 != MMSYSERR_NOERROR) 则
    返回 (假)
结束

返回值 = waveInClose (设备句柄)
如果 (返回值 != MMSYSERR_NOERROR) 则
    返回 (假)
结束

返回 (真)
.子程序结束
   

熬夜

https://bbs.125.la/forum.php?mod=viewthread&tid=14822783

九千七

熬夜 发表于 2025-6-16 10:47
https://bbs.125.la/forum.php?mod=viewthread&tid=14822783

这个不行的试过了已经

熬夜

https://www.eyuyan.la/post/14660.html

熬夜

demo-2.zip (37.79 KB, 下载次数: 1)

昨天 13:40 上传

点击文件名下载附件

九千七

熬夜 发表于 2025-6-16 13:40

这个是设置音量的啊大哥 要的是禁用麦克风,只禁用/启用 麦克风

九千七

九千七 发表于 2025-6-16 14:11
这个是设置音量的啊大哥 要的是禁用麦克风,只禁用/启用 麦克风

我找到了一个 但是关闭麦克风的同时把音频什么的全关闭了

九千七

九千七 发表于 2025-6-16 13:17
这个不行的试过了已经

都试过了