🚀 go-pugleaf

���ڱ���Ȳ������ˣ����ܶ����������ˣ����������ͣ��
Sub PlayWave(WaveFile As String)
    Dim errorCode As Integer
    Dim returnStr As Integer
    Dim errorStr As String * 256
    Dim MCIWaveOpenParms As MCI_WAVE_OPEN_PARMS
    Dim MCIPlayParms As MCI_PLAY_PARMS
    MCIWaveOpenParms.dwCallback = 0
    MCIWaveOpenParms.wDeviceID = 0
    MCIWaveOpenParms.lpstrDeviceType = "waveaudio"
    MCIWaveOpenParms.lpstrElementName = WaveFile
    MCIWaveOpenParms.lpstrAlias = 0
    MCIWaveOpenParms.dwBufferSeconds = 0
    errorCode = mciSendCommandA(0, MCI_OPEN, MCI_OPEN_TYPE Or MCI_OPEN_ELEMENT, MCIWaveOpenParms)
    If errorCode = 0 Then
        MCIPlayParms.dwCallback = 0
        MCIPlayParms.dwFrom = 0
        MCIPlayParms.dwTo = 0
        errorCode = mciSendCommandA(MCIWaveOpenParms.wDeviceID, MCI_PLAY, MCI_WAIT, MCIPlayParms)
        errorCode = mciSendCommandA(MCIWaveOpenParms.wDeviceID, MCI_CLOSE, 0, 0)
    End If
End Sub

--

�� ��Դ:��BBS ˮľ�廪վ smth.org��[FROM: 202.204.2.151]