Visual Basic - ¿Obtener los puertos COM de mi equipo?

Life is soft - evento anual de software empresarial
   
Vista:

¿Obtener los puertos COM de mi equipo?

Publicado por PGF (28 intervenciones) el 05/12/2007 17:45:19
Alquien sabe como puedo obtener los puertos COM que hay en mi equipo, por ejemplo para cargarlos en un combo.

Y como puedo saber los COM de una conexion a traves de Terminal Server?

Gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
información
Otras secciones de LWP con contenido de Visual Basic
- Código fuente de Visual Basic
- Cursos de Visual Basic
- Temas de Visual Basic
- Chat de Visual Basic
información
Códigos de Visual Basic
- ProgressCircle
- Solitario
- Wake on Lan

RE:¿Obtener los puertos COM de mi equipo?

Publicado por Richard Montero (25 intervenciones) el 06/12/2007 00:10:49
PGF:

Podés hacerlo de la siguiente manera:

Option Explicit
'En tu formulario agregá un Combo llamado Combo1
'También agregá el objeto 'Microsof Comm Control llamado MSComm1
'En el evento load del formulario agregá la rutina siguiente:

Private Sub Form_Load()
Dim i As Integer
Combo1.Clear
For i = 1 To 8 'Buscar 8 puertos
With Combo1
Select Case VerificarPtos(i)
Case 1 'El puerto existe y está libre
.AddItem "COM" & i
Case 2 'El puerto existe y está ocupado
.AddItem "COM" & i & " - Utilizado"
End Select
End With
Next i
End Sub

'Create la siguiente función
Function VerificarPtos(Pto) As Integer
On Error GoTo ErrPto
With MSComm1
.CommPort = Pto
.PortOpen = True
If .PortOpen Then
'El puerto existe y está disponible
VerificarPtos = 1
Else
'El puerto existe y está ocupado
VerificarPtos = 2
End If
.PortOpen = False
End With
Exit Function
ErrPto:
VerificarPtos = 0
End Function

Saludos

Richard
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar