[MAG]

مشكلتي عند أستقبال المكالمة يتم تشغيل الصوت لثانيتين ويتوقف

PHP كود :

Dim fileByte As Byte()
    Dim offset As Integer = 44  

        Dim fileByte() As Byte = My.Computer.FileSystem.ReadAllBytes("C:\v.wav")

        ' set buffer size
        modemPort.WriteBufferSize = 8000

        ' set timeout
        modemPort.ReadTimeout = 2000


        modemPort.Open()

        ' initialize modem
        modemPort.Write("ATZ" & vbCrLf)

        ' enable DTR
        modemPort.DtrEnable = True

        ' Voice mode
        modemPort.Write("AT+FCLASS=8" & vbCrLf)

        ' txtPhone.text has the phone number to call
        modemPort.Write("ATA" & vbCrLf)

        ' 16 bit 8 khz PCM
        modemPort.Write("at+vsm=0" & vbCrLf)

        ' disable silence detection
        modemPort.Write("AT+VSD8,0" & vbCrLf)

        ' hardware flo control
        modemPort.Write("AT+FLO=2" & vbCrLf)

        ' enter voice transmit data state
        modemPort.Write("AT+VTX" & vbCrLf)

        modemPort.Write(fileByte, offset, fileByte.Length - offset)

        ' hang up
        modemPort.Write("ATH" & vbCrLf)