+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : إستفسار حول طريقة الحصول على رقم المحمول (/showthread.php?tid=40075)
إستفسار حول طريقة الحصول على رقم المحمول - عبد العزيز البسكري - 22-11-21
السلام عليكم و رحمة الله و بركاته
فضل و ليس أمر .. أنا حقا بحاجة إلى مساعدة في حل هذه المشكلة
مع هاتفي المحمول .. أكتب هذا الرمز يدويًا (* 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
بارك الله فيكم مقدما و جزاكم خير الجزاء إن شاء الله