通过声卡发声?如何做到???? :)

Question

【VB声明】
  Private Declare Function Beep Lib "kernel32" Alias "Beep" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long【说明】
  用于生成简单的声音 【返回值】
  Long，TRUE（非零）表示成功，否则返回零。会设置GetLastError 【备注】
  在windows95中，这个函数简单的播放默认系统响铃【参数表】
  dwFreq ---------  Long，声音频率（从37Hz到32767Hz）。在windows95中忽略  dwDuration -----  Long，声音的持续时间，以毫秒为单位。如为-1，表示一直播放声音，直到再次调用该函数为止。在windows95中会被忽略

Answer 1

Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Private Sub Command1_Click()
    'KPD-Team 1999
    'URL: http://www.allapi.net/
    'E-Mail: [email protected]
    ' Attempt to play a note at 800 Hz for 2 seconds.  This will only
    ' behave this way on Windows NT/2000; users of Windows 95/98 will only hear the
    ' default sound.
    Dim retval As Long  ' return value
    retval = Beep(800, 2000)  ' ideally, an 800 Hz tone for 2 seconds
End Sub

Answer 2

要想通过声卡发声我看只能用DirectSound
由于我正在学习DIRECTX编程，所以代码一时间也写不出来。你可以买一盘Directx开发包，安装后 samples\Multimedia\VBSamples\DSound目录里就有你需要的代码。

Answer 3

to Jneu(沧海桑田):
  使用BEEP只能发出DEFAULT BEEP,我用的是WIN ME.除了BEEP还有什么?