如何录制作声卡里发出的声音

比如语聊的时候，比如qq发出的声音，比如播放mp3的声音。  如何录下来。我试了 mmcontrol控件和 windows的api   mci  都做到了录音，但录到的都是麦克风里的声音。而电脑发出的声音一点也没有我的代码如下：Option Explicit
Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrcommand As String) As Long
Private Sub Command1_Click()
    mciExecute ("open c:\msg.wav alias sound")
    mciExecute ("set sound any input")
    mciExecute ("set sound any output")
    mciExecute ("record sound overwrite")
End SubPrivate Sub Command2_Click()
mciExecute ("stop sound")
mciExecute ("save sound")
mciExecute ("close sound")
End Sub