22-11-21, 09:47 PM
السلام عليكم و رحمة الله و بركاته
فضل و ليس أمر .. أنا حقا بحاجة إلى مساعدة في حل هذه المشكلة
مع هاتفي المحمول .. أكتب هذا الرمز يدويًا (* 99 #) لعرض رقم هاتفي .. وستظهر هذه الرسالة بدون أي مشكلة (MSISDN: 213773155213)
كنت أرغب في الحصول على رقم هاتفي بهذا الكود :
كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Me.SerialPort1.PortName = "COM3
Me.SerialPort1.BaudRate = "1200
If Not (Me.SerialPort1.IsOpen = True) Then
Me.SerialPort1.Open()
End If
Me.SerialPort1.Write("AT+CUSD=1," & Convert.ToString(Chr(34)) & "*99#" & Convert.ToString(Chr(34)) & ",15" & System.Environment.NewLine)
System.Threading.Thread.Sleep(7000)
Me.RichTextBox1.Text = System.Text.RegularExpressions.Regex.Match(Me.SerialPort1.ReadExisting, "(?<=\:).+").Value.Trim
End Sub
من المفروض تكون النتيجة هكذا تماما :
MSISDN: 213773155213
بارك الله فيكم مقدما و جزاكم خير الجزاء إن شاء الله