Lunes 23 de Diciembre de 2024, 01:17
SoloCodigo
Bienvenido(a),
Visitante
. Por favor,
ingresa
o
regístrate
.
¿Perdiste tu
email de activación?
Inicio
Foros
Chat
Ayuda
Buscar
Ingresar
Registrarse
SoloCodigo
»
Foros
»
Programación General
»
Visual Basic 6.0 e inferiores
(Moderador:
F_Tanori
) »
Listar Los Puertos Del Equipo
« anterior
próximo »
Imprimir
Páginas: [
1
]
Autor
Tema: Listar Los Puertos Del Equipo (Leído 1088 veces)
MindEye
Miembro MUY activo
Mensajes: 185
Listar Los Puertos Del Equipo
«
en:
Jueves 19 de Febrero de 2004, 02:53 »
0
- Como puedo obtener una lista de todos los puertos disponible en el Equipo.
- Gracias
Tweet
Brroz
Miembro de PLATA
Mensajes: 1058
Re: Listar Los Puertos Del Equipo
«
Respuesta #1 en:
Jueves 19 de Febrero de 2004, 09:43 »
0
A ver si esto te vale.
Código: Text
Private Sub ChkPorts()
Dim intCanal As Integer
Dim int1 As Integer
On Error GoTo Err_PtoPar
For int1 = 1 To 16
intCanal = FreeFile
Open "LPT" & int1 For Input As intCanal
Close intCanal
Next int1
PtoCom:
On Error GoTo Err_PtoCom
For int1 = 1 To 16
intCanal = FreeFile
Open "COM" & int1 For Input As intCanal
Close intCanal
Next int1
Exit Sub
Err_PtoPar:
If Err.Number = 53 Then
MsgBox int1 - 1 & " puerto(s) paralelo(s)"
Resume PtoCom
End If
Exit Sub
Err_PtoCom:
If Err.Number = 53 Then MsgBox int1 - 1 & " puerto(s) com"
End Sub
Abur.
MindEye
Miembro MUY activo
Mensajes: 185
Re: Listar Los Puertos Del Equipo
«
Respuesta #2 en:
Jueves 19 de Febrero de 2004, 16:45 »
0
- Gracias, pero que hay de los puertos USB, y los virtuales que esten creados
Brroz
Miembro de PLATA
Mensajes: 1058
Re: Listar Los Puertos Del Equipo
«
Respuesta #3 en:
Jueves 19 de Febrero de 2004, 17:47 »
0
No lo sé. Chau.
Imprimir
Páginas: [
1
]
« anterior
próximo »
SoloCodigo
»
Foros
»
Programación General
»
Visual Basic 6.0 e inferiores
(Moderador:
F_Tanori
) »
Listar Los Puertos Del Equipo