Capture Data From PBX

Option Explicit
 
' Select the right COM port in the Properties of the control!
 
Private Sub Form_Load()
MSComm1.Settings = "9600,n,8,1"
MSComm1.InputLen = 0
MSComm1.RThreshold = 1
MSComm1.CommPort = 1
MSComm1.PortOpen = True
End Sub
 
Private Sub MSComm1_OnComm()
Dim strinput As String
strinput = MSComm1.Input
List1.AddItem strinput
End Sub
 
 
'
Private Sub Command1_Click()
  MSComm1.PortOpen = True
  MSComm1.Output = "AT" & Chr$(13)
  Do
    DoEvents
  Loop Until MSComm1.InBufferCount > 1
  Text1.Text = MSComm1.Input
'Write to a filesystem object (.txt)
WriteToFile
 
'Extract the capture string then save to Table fields
SaveToDb
 
End Sub
 
Function WriteToFile()
'codes goes here
'codes for writing to a .txt file for logging the output data of PBX
'its column oriented ,(callid, time, date, mins, etc) 
'End Function
 
Sub SaveToDB()
'codes goes here
'so extract those strings and save it to database
use ADO, ODBC etc for this, its pretty easy
End Sub