GPRS MODEM - G-388U - VOICE CALL

[cool_Taurus]

Private Sub Dial(Number As String)
   Dim lsPart As String
   Dim lsData As String
   Dim lnStart As Double
   Dim lbConnecting As Boolean
   Dim lbTalking As Boolean
   Dim lbCancel As Boolean
   
   MSComm1.InputLen = 0
   
   If MSComm1.PortOpen = False Then MSComm1.PortOpen = True
   MSComm1.InBufferCount = 0
   
   Call Send("ATZ" & vbCrLf)
   If Not VerifySuccess(Receive, True) Then Exit Sub
   
   Call Send("ATE0" & vbCrLf)
   If Not VerifySuccess(Receive, True) Then Exit Sub

   '
   Call Send("ATD09229466199;" & vbCrLf)
'   If Not VerifySuccess(Receive, True) Then Exit Sub
   
   CancelButton.Enabled = Not CancelFlag
   DialButton.Enabled = CancelFlag
   
   lsData = ""
   lnStart = Timer
   Do Until 1 = 0
      DoEvents
      lsPart = ""
      lsPart = p_strBuffer
      p_strBuffer = ""
      If lsPart = "" Then
         
         If InStr(lsData, vbCrLf & "OK") > 0 Then
            Me.Caption = "Call Center"
            Exit Do
         End If
         
         If InStr(lsData, vbCrLf & "CONNECT") > 0 Then
            Me.Caption = "Call Center"
            Exit Do
         End If
         
         If InStr(lsData, vbCrLf & "BUSY") > 0 Then
            Me.Caption = "Call Center"
            Exit Do
         End If
         
         If InStr(lsData, vbCrLf & "NO ANSWER") > 0 Then
            Me.Caption = "Call Center"
            Exit Do
         End If
         
         If InStr(lsData, vbCrLf & "NO CARRIER") > 0 Then
            Me.Caption = "Call Center"
            Exit Do
         End If
         
         If InStr(lsData, vbCrLf & "NO DIALTONE") > 0 Then
            Me.Caption = "Call Center"
            Exit Do
         End If
         
'         If lbConnecting = False Then
'            If InStr(lsData, vbCrLf & "BUSY") > 0 Then
'               Me.Caption = Me.Caption & " » " & "Connecting..."
'               lbConnecting = True
'            End If
'         End If
'         If lbTalking = False Then
'            If InStr(lsData, vbCrLf & "^CONN:") > 0 Then
'               Me.Caption = Me.Caption & " » " & "Talking..."
'               lbTalking = True
'            End If
'         End If
'         If InStr(lsData, vbCrLf & "BUSY") > 0 Then
'            Me.Caption = "Call Center"
'            Exit Do
'         End If
      End If
      lsData = lsData & lsPart
     
      If CancelFlag Then
         Call Send("ATH0" & vbCrLf)
         CancelFlag = False
         lbCancel = True
      End If
'      Exit Do
   Loop
   
   'Call Send("+++" & vbCrLf)
   'If Not VerifySuccess(Receive, True) Then Exit Sub
   
   Call Send("ATH0" & vbCrLf)
   If Not VerifySuccess(Receive, True) Then Exit Sub
   
   CancelFlag = lbCancel
   If CancelFlag Then CancelFlag = False

   CancelButton.Enabled = CancelFlag
   DialButton.Enabled = Not CancelFlag
   
   MSComm1.DTREnable = True
   MSComm1.PortOpen = False
End Sub


mga bro patulong nman... lagi aq error CMEE+ 257...
ano b ang tama pra mterminate q ung modem pg ngbusy n cia...