شماره تماس گيرنده

[majidsoft]

با سلام
من از اين كد براي نشان دادن شماره تلفن استفاده مي كنم

Private WithEvents MSComm1 As New MSCommLib.MSCommClass
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
MSComm1.Settings = "9600, N, 8, 1"
MSComm1.CommPort = 3
If MSComm1.PortOpen = False Then
MSComm1.PortOpen = True
End If
MSComm1.RThreshold = 0
MSComm1.InputLen = 0
MSComm1.Output = "ATC#‎ID=1" & Chr(13)
'MSComm1.Output = "ATC#‎ID=1"
End Sub
Private Sub MSComm1_OnComm() Handles MSComm1.OnComm
Dim Buffer As String
Dim start, l As Integer
Buffer = Replace(MSComm1.Input, Chr(13), "")
Buffer = Replace(Buffer, Chr(10), "")
If InStr(Buffer, "NMBR") Then
start = InStr(Buffer, "NMBR")
l = Len(Buffer) - (start + 1)
ListBox1.Items.Add(Mid(Buffer, InStr(Buffer, "NMBR") + 5, l)) ' add each ID to a listBox
End If
MsgBox(MSComm1.Input)
End Sub

ولي amp را نمي شناسد
وقتي كه فقط از mscomm.inupt در message box استفاده مي كنم فقط رشته ring vh را چاپ مي كند
اگر كسي را بهتري نيز بلده ممنون مي شم برام بذاره
با تشكر

[majidsoft]

با سلام
آقا يعني كسي تا حالا با كالر آيدي كار نكرده