OK
 
OK
 
RING A
 
DATE = 0509
TIME = 0414
NMBR = 06506773573
 
RING A

Private Sub Form_Load()
  If Not axComm.PortOpen Then   ' Open the comm port if not already open
    axComm.PortOpen = True
  End If
 
  If Not axComm.PortOpen Then
    MsgBox "cannot open comm port "
    End
  End If
 
  axComm.RThreshold = 1  ' Generates a receive event on every character received
  axComm.InputLen = 1    ' Read the receive buffer 1 char. at a time
 
  axComm.Output = "ATZ" + Chr$(13) 'Zurücksetzen
  doLog axComm.Input
 
  axComm.Output = "AT#CID=1" + Chr$(13) 'CallerID einschalten
  doLog axComm.Input
End Sub
 
Private Sub axComm_OnComm()
 
  Dim intEvent As Integer
  intEvent = axComm.CommEvent
 
  doLog ("Event! " + Str(intEvent)) ' ist 6 = RING
  doLog ("OutPut: " + axComm.Input) ' ist ""
  doLog ("LastNumber: " + axComm.InBufferCount) ' ist 0
 
End Sub