Intento establecer la comunicación entre dos ordenadores conectados por puerto serie (COM).
Para abrir el puerto lo hago así:
Dim puerto As IO.Ports.SerialPort = Nothing
Me.puerto = New IO.Ports.SerialPort
Me.puerto.PortName = Me.cmbPuertoCOM.Text
Me.puerto.BaudRate = 9600
Me.puerto.Parity = IO.Ports.Parity.None
Me.puerto.DataBits = 8
Me.puerto.StopBits = 1
If Me.comEAN.IsOpen Then
Me.comEAN.Close()
Else
Me.comEAN.Open()
EndIf
El problema llega cuando hay veces que me dice que no puedo abrir el puerto y veo que realmente no está abierto por ningún otro proceso. Esto me ha llegado a pasar incluso tras ejecutar el programa después de encender el ordenador.
En PowerShell con la orden:
Get-WMIObject Win32_SerialPort
Me dice que el StatusInfo es 2 y por lo que he buscado pone que es Unknown (Desconocido). Si voy al Administrador de Dispositivos y deshabilito y vuelvo a habilitar el puerto, cuando vuelvo a ejecutar el código de PowerShell me dice que el StatusInfo es 3. He actualizado el controlador del puerto COM pero sigue igual. De hecho hay veces que sin apagar el ordenador aunque me abra el puerto y pueda ejecutar el programa, si pasa un tiempo y no estoy haciendo nada en el ordenador hay veces que le vuelve a pasar.
Por si sirve de algo, para cerrar el puerto pongo:
Me.puerto.Close()
Me.puerto.Dispose()
Me gustaría saber si o bien hay alguna manera de deshabilitar y volver a habilitar el puerto desde código, o poder saber el StatusInfo del puerto ya que ese programa se ejecuta con otro más que también se conecta a otro puerto COM del mismo ordenador y que sí que funciona bien.
Win32_SerialPort
desde tu programa si eso te sirve