Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
If SerialPort1.IsOpen Then
SerialPort1.Close()
End If
Try
With SerialPort1
.PortName = cbCOMPort.Text
.BaudRate = 115200
.ReadBufferSize = 500
.Parity = IO.Ports.Parity.None
.DataBits = 8
.StopBits = IO.Ports.StopBits.One
.Handshake = IO.Ports.Handshake.None
End With
SerialPort1.Open()
btnConnect.Text = "DISCONNECT"
cbCOMPort.Enabled = False
With lblStatus
.Text = "Connected"
.ForeColor = Color.Green
End With
'---------------------------------------------------'
Dim resFilename As String = "response.txt"
Dim response As String = ""
'---------------------------------------------------'
' Read response data '
'---------------------------------------------------'
' Device model -----------------'
' Command: AT+CGMM
'
SerialPort1.Write("AT+CGMM" & vbCr)
System.Threading.Thread.Sleep(1000)
response &= "Device model: [AT+CGMM] --------------------------" & vbNewLine &
SerialPort1.ReadExisting & vbNewLine
' Manufacturer -----------------'
' Command: AT+CGMI
'
SerialPort1.Write("AT+CGMI" & vbCr)
System.Threading.Thread.Sleep(1000)
response &= "Manufacturer: [AT+CGMI] --------------------------" & vbNewLine &
SerialPort1.ReadExisting & vbNewLine
' EMEI -------------------------'
' Command: AT+CGSN
'
SerialPort1.Write("AT+CGSN" & vbCr)
System.Threading.Thread.Sleep(1000)
response &= "EMEI: [AT+CGSN] --------------------------" & vbNewLine &
SerialPort1.ReadExisting & vbNewLine
' Network ----------------------'
' Command: AT+COPS?
'
SerialPort1.Write("AT+COPS?" & vbCr)
System.Threading.Thread.Sleep(1000)
response &= "Network: [AT+COPS?] --------------------------" & vbNewLine &
SerialPort1.ReadExisting & vbNewLine
' BATERY LEVEL -----------------'
' Command: AT+CBC
'
SerialPort1.Write("AT+CBC" & vbCr)
System.Threading.Thread.Sleep(1000)
response &= "BATERY LEVEL: [AT+CBC] --------------------------" & vbNewLine &
SerialPort1.ReadExisting & vbNewLine
'---------------------------------------------------'
response &= "============================="
IO.File.WriteAllText(resFilename, response)
MsgBox("تم حفظ النتائج في الملف")
Process.Start(Application.StartupPath)
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
'---------------------------------------------------'
' Read response data '
'---------------------------------------------------'
' Device model -----------------'
' Command: AT+CGMM
'
SerialPort1.Write("AT+CGMM" & vbCr)
System.Threading.Thread.Sleep(1000)
TextBox1.Text = Split(SerialPort1ReadExisting, vbNewLine)(1)
' Manufacturer -----------------'
' Command: AT+CGMI
'
SerialPort1.Write("AT+CGMI" & vbCr)
System.Threading.Thread.Sleep(1000)
TextBox2.Text = Split(SerialPort1ReadExisting, vbNewLine)(1)
' EMEI -------------------------'
' Command: AT+CGSN
'
SerialPort1.Write("AT+CGSN" & vbCr)
System.Threading.Thread.Sleep(1000)
TextBox3.Text = Split(SerialPort1ReadExisting, vbNewLine)(1)
' 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(SerialPort1.ReadExisting, "(?<=\:).+").Value.Trim
'---------------------------------------------------'