سلام
من یک مودم gsm دارم که نمیتونم با کد زیر شناسایی کنمش. اگه ممکنه به من کمک کنید.
Dim serialport As New IO.Ports.SerialPort
For i = 0 To 256
Try
With serialport
.PortName = "COM" & i
.BaudRate = 115200
.Parity = Parity.None
.DataBits = 8
.StopBits = StopBits.One
.Handshake = Handshake.RequestToSend
.DtrEnable = True
.RtsEnable = True
.NewLine = vbCrLf
End With
serialport.Open()
serialport.WriteLine("AT" & Chr(13))
Threading.Thread.Sleep(5000)
If serialport.ReadExisting.ToUpper.Contains("OK") Then
' ProgressBar1.Value = 256
TextBox1.Text += serialport.ReadExisting
MsgBox("Modem Is On " & i)
End If
Catch ex As Exception
End Try
ProgressBar1.Value = i
Next i
If serialport.ReadExisting.ToUpper.Contains("OK") = False Then MsgBox("Modem is Not port")
serialport.Close()