How to get the phone number from callerID

[Apostolos Doudakmanis]

Hi

i made a program (vb.net 2015) for modem 56K v.92 to detect the incoming calls and return the phone number

This is a test program. The result of its operation will be part of a larger program

Dim WithEvents Modem As New IO.Ports.SerialPort

Public Delegate Sub myDelegate(ByVal buff() As Byte)

Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
Button1.Text = "Open" 'change button's text
Button2.Text = "Send"
ComboBox1.Items.AddRange(IO.Ports.SerialPort.GetPortNames) 'get all serial port names
End Sub

Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As FormClosingEventArgs) Handles Me.FormClosing
If Button1.Text = "Close" Then Button1.PerformClick() 'if the port is open close it
End Sub

Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
Button1.Enabled = False
If Button1.Text = "Open" Then
'open the port
If Not (ComboBox1.SelectedItem Is Nothing) Then
SerialPort1.PortName = ComboBox1.SelectedItem.ToString

With SerialPort1
.BaudRate = 9600
.DataBits = 8
.Parity = IO.Ports.Parity.None
.StopBits = IO.Ports.StopBits.One
.WriteTimeout = 2
.ReadTimeout = 0
End With

Try
SerialPort1.Open() 'try open
Button1.Text = "Close" 'opened
Catch ex As Exception
MsgBox("Port did not open")
End Try

End If
Else
'close the port
If SerialPort1.IsOpen Then SerialPort1.Close()
Button1.Text = "Open"
End If
Button1.Enabled = True
End Sub

Private Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button2.Click
Try
SerialPort1.Write("AT+VCID=1" & vbCr) 'should return OK AT#CID=1 or AT+VCID=1
Catch ex As Exception
Debug.WriteLine(ex.InnerException)
End Try
End Sub

Private Sub DataReceived(ByVal sender As Object, ByVal e As IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
If SerialPort1.BytesToRead > 0 Then 'are there bytes to read, s/b
Dim buff(SerialPort1.BytesToRead - 1) As Byte 'get a buffer to hold bytes

SerialPort1.Read(buff, 0, buff.Length) 'read the bytes
Me.BeginInvoke(New myDelegate(AddressOf SerialPortDelegate), buff)
End If
End Sub

Public Sub SerialPortDelegate(ByVal buff() As Byte)
RichTextBox1.AppendText(System.Text.Encoding.ASCII.GetString(buff, 0, buff.Length))
RichTextBox1.AppendText(SerialPort1.ReadExisting)
End Sub


When i have a incoming call the programm write the "RING", but don't write the phone number.

I don't know if i forget something to write in the program

Continue reading...