[الوادي]

يا رياض،

هذا تعديل

PHP كود :

'---------------------------------------------------'
' Read response data '
'---------------------------------------------------'
' Device model -----------------'
' Command: AT+CGMM
'
                SerialPort1.Write("AT+CGMM" & vbCr)
                System.Threading.Thread.Sleep(1000)
                TextBox1.Text = SerialPort1.ReadExisting.Trim

' Manufacturer -----------------'
' Command: AT+CGMI
'
                SerialPort1.Write("AT+CGMI" & vbCr)
                System.Threading.Thread.Sleep(1000)
                TextBox2.Text = SerialPort1.ReadExisting.Trim

' EMEI -------------------------'
' Command: AT+CGSN
'
                SerialPort1.Write("AT+CGSN" & vbCr)
                System.Threading.Thread.Sleep(1000)
                TextBox3.Text = SerialPort1.ReadExisting.Trim

' Network ----------------------'
' Command: AT+COPS?
'
                SerialPort1.Write("AT+COPS?" & vbCr)
                System.Threading.Thread.Sleep(1000)
                TextBox4.Text = System.Text.RegularExpressions.Regex.Match(SerialPort1.ReadExisting, "(?<="").+?(?="")").Value.Trim

' BATERY LEVEL -----------------'
' Command: AT+CBC
'
                SerialPort1.Write("AT+CBC" & vbCr)
                System.Threading.Thread.Sleep(1000)
                TextBox5.Text = System.Text.RegularExpressions.Regex.Match(SerialPort1ReadExisting, "(?<=\:).+").Value.Trim
'---------------------------------------------------'