• 新浪微博:
  • 微信 :
按键精灵电脑版
立即下载

软件版本:2014.05
软件大小:21.6M
更新时间:07-04

按键精灵安卓版
立即下载

软件版本:3.3.1
软件大小:62.5M
更新时间:5-24

按键精灵iOS版
立即下载

软件版本:1.3.5
软件大小:29.2M
更新时间:06-14

最新企业版UiBot
立即下载

软件版本:3.3
软件大小:282M
更新时间:08-06

快捷导航

登录 后使用快捷导航
没有帐号? 注册

登录 注册
发新话题 回复该主题

[分享源码] 系统麦克录音 - API源码 [复制链接]

1#

系统麦克录音




小风群:300275325
女神群:372452500(安卓,ISO,PC)全包揽,女神小敏期待你的加入。
总贴入口<<<<<<<




只需2行代码就可以让你的脚本实现录音功能,不要拿它做坏事哟。源码使用API编写,无需任何插件。主功能代码已经封装成子程序。方便新手童鞋使用。看到“母语言”渐渐不同往日,以后会定期发资源的,想学习WINAPI可以看这里>> API中文在线。另外有问题的同学,可以加群,表示大家支持一下男神的群?OK?




代码中参数详解:


声道:1为单声道 2为立体声


比特位:8位 或 16位


比特率: 打开自己的声音管理器自己看主流比特率比如 44100 、48000 、96000 、192000


别名:自定义的文本,用于区别不同的媒体对象,方便异步操作媒体。



文件名:保存成WAV 格式声音文件。




  1. Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringW"(ByVal lpszCommand As Long,ByVal lpszReturnString As Long,ByVal cchReturn As Long,ByVal hwndCallback As Long) As Long





  2. Call 开始录音(2, 16, 44100, "我的录音")
  3. Delay 5000
  4. call 停止并保存("c:\新录音.wav","我的录音")



  5. Sub 开始录音(声道,比特位,比特率,别名)
  6. If 声道 > 2 or 声道 < 1 Then
  7. 声道=2
  8. End If

  9. If 比特位 <> 8 and 比特位 <> 16 Then
  10. 比特位=16
  11. End If

  12. mciSendString "close " & 别名, 0, 0, 0
  13. mciSendString "open new type WAVEAudio alias "& 别名, 0, 0, 0
  14. If mciSendString("record " & 别名, 0, 0, 0) <> 0 Then
  15. MessageBox "打开录音设备失败!"
  16. End If
  17. End Sub


  18. Sub 停止并保存(文件名,别名)
  19. mciSendString "stop " & 别名, 0, 0, 0
  20. mciSendString "save " & 别名 & " " & 文件名, 0, 0, 0
  21. If mciSendString("close " & 别名, 0, 0, 0) <> 0 Then
  22. MessageBox "操作失败!"
  23. End If
  24. End Sub
复制代码


    已有2评分我要评分查看所有评分

    最后编辑风__琪仙 最后编辑于 2016-09-07 23:50:46
    2#

    66666

    3#


    4#

    444454545

    5#

    脚本实现录音功能

    6#

    dashen!!!!!

    7#

    阿大声道阿萨德阿萨德

    8#

    谢谢分享!

    9#

    79987979

    10#

    啊啊

    11#

    看看

    12#

    很好,很实用。多谢楼主分享!!

    <font color="Red">温故而知新
    13#


    14#

    录YIN的api吧

    15#

    dwadwdaw

    16#

    fchjfjfj

    17#

    顶 不知道能不能用移动按键上

    18#

    系统麦克录音 - API源码

    19#

    学习学习,哎,不会

    20#

    我就看看看看啊看

    发新话题 回复该主题