اخوتي الاعزاء
وجدت كود إظهار رقم المتصل وقمت بتطبيقه حرفيا
ولكن لم يحدث شي سوا انه يكتب لي في صندوق النص (Ring)
مع ان خدمة إظهار الرقم موجودة لدي
فماهو الخطأ في الكود التالي:
ارجوا المساعدة
Public Sub GetPhoneNumber(Data As String)
Dim StartingPosition, PhoneNumber, LastPosition
Text1.Text = Text1.Text + Data
If Asc(Right$(Data, 1)) = 0 Then
Data = Left$(Data, (Len(Data) - 1))
End If
TempText = TempText + Data
StartingPosition = InStr(TempText, "NMBR=")
Select Case NMBRFound
Case False
If StartingPosition <> 0 Then
TempText = ""
NMBRFound = True
End If
Case True
LastPosition = InStr(TempText, Chr(13))
If LastPosition <> 0 Then
PhoneNumber = Left$(TempText, (Len(TempText) - 1))
Label1.Caption = "رقم المتصل:" + PhoneNumber
TempText = ""
NMBRFound = False
End If
End Select
End Sub
Private Sub Form_Load()
Dim CommPort
On Error GoTo ErrHandle
NMBRFound = False
MSComm1.PortOpen = True
If Err Then Exit Sub
MSComm1.Output = "ATZ" & vbCrLf
MSComm1.Output = "AT#CID=1" & vbCrLf
Exit Sub
ErrHandle:
MsgBox "رقم المنفذ خطأ أو المنفذ مفتوح مسبقا", vbOKOnly + vbCritical
End Sub
Private Sub MSComm1_OnComm()
Select Case MSComm1.CommEvent
Case comEvReceive
Dim Buffer As Variant
Buffer = MSComm1.Input
GetPhoneNumber (StrConv(Buffer, vbUnicode))
End Select
End Sub