VB调用mciSendString录音后爆音非常大，不知道怎么办

[天一亮就跑]

mciSendString("Open New Type WaveAudio Alias Wave", "", 0, 0)
mciSendString("Set Wave Time Format ms", "", 0, 0)
mciSendString("Set Wave Format tag pcm", "", 0, 0)
mciSendString("Set Wave Channels 1", "", 0, 0)
mciSendString("Set Wave Samplespersec 16000", "", 0, 0)
mciSendString("Set Wave BitsperSample 16", "", 0, 0)
mciSendString("Record Wave", "", 0, 0)
。。。
mciSendString("Stop Wave", "", 0, 0)
SaveFile = "Save Wave " & Chr(34) & App.Path & "\1.wav" & Chr(34)
mciSendString(SaveFile, "", 0, 0)
mciSendString("Close Wave", "", 0, 0)

用wmp打开，发现成固定频率的沙沙声。
是不是设置的Samplespersec 等有问题？
或者麦克风的问题？
ps：或者能否给我一个更好的录音方案？这个方法需要修复wav，很麻烦。

[贝隆]

不是软件的问题，是麦或者环境的问题。

[东方之珠]

录音的时候选择“线路音量”或者“立体声混音”。