查看: 37  |  回复: 0
  VB6 代码管家-录制声音
楼主
发表于 2024年12月8日 21:54
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

Private Sub Command1_Click() '录制
	mciSendString "set wave bitpersample 8", "", 0, 0 '设为8位
	mciSendString "set wave samplespersec 5000", "", 0, 0 '设置录制频率为5000
	mciSendString "set wave channels 2", "", 0, 0 '设为立体声
	mciSendString "set wave format tag pcm", "", 0, 0 '实现PCM格式(不一定正确)
	'----------------------------------------初始化
	mciSendString "close movie", 0&, 0, 0
	mciSendString "open new type WAVEAudio alias movie", 0&, 0, 0
	mciSendString "record movie", 0&, 0, 0
	'----------------------------------------开始录音
End Sub

Private Sub Command2_Click() '保存
	mciSendString "stop movie", 0&, 0, 0
	mciSendString "save movie C:\123.wav", 0&, 0, 0
	mciSendString "close movie", 0&, 0, 0
End Sub


您需要登录后才可以回帖 登录 | 立即注册
【本版规则】请勿发表违反国家法律的内容,否则会被冻结账号和删贴。
用户名: 立即注册
密码:
2020-2024 MaNongKu.com