Red de conocimiento informático - Conocimiento del nombre de dominio - Cómo detectar automáticamente los números de puerto serie disponibles en el código de programa específico de vb

Cómo detectar automáticamente los números de puerto serie disponibles en el código de programa específico de vb

j = 0

Para i = 1 a 16 Paso 1

Si comISP.PortOpen = True Entonces 'cierre primero el puerto serie

comISP.PortOpen = False

End If

comISP.i

On Error Resume Next 'Indica que cuando ocurre un error durante el tiempo de ejecución, el control irá a la declaración después de la declaración donde ocurrió el error y continúe ejecutando. Utilice este formulario en lugar de On Error GoTo al acceder a objetos.

comISP.PortOpen = True

Si Err.Number lt;gt; 8002 Entonces 'El número de puerto serie no es válido. PortOpen = False

Siguiente i

Si j gt; = 1 Entonces

cboPort.Text = "COM" amp j 'Abre automáticamente la cadena más pequeña disponible; Número de puerto de línea

comISP. CommPort = j

comISP.PortOpen = True

cmdOpenCom.Caption = "Cerrar el puerto serie"

shpCOM.FillColor = vbGreen

Si Err.Number = 8005 Entonces 'El puerto serie está abierto.vbExclamation '

comISP.PortOpen = False

cboPort.Text = ""

cmdOpenCom. Caption = "Abrir puerto serie"

shpCOM.FillColor = vbRed

End If

End If

End If

上篇: La conferencia diaria del jardín de infantes (invierno) tiene como tema 下篇: ¿Existe alguna diferencia entre Deyang Bank y Deyang Commercial Bank?

Artículos populares