14-12-13, 06:04 PM
مشكلتي عند أستقبال المكالمة يتم تشغيل الصوت لثانيتين ويتوقف
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)