• Domingo 22 de Diciembre de 2024, 21:07
« anterior próximo »
Páginas: [1]

Autor Tema:  Listar Los Puertos Del Equipo  (Leído 1087 veces)

MindEye

  • Miembro MUY activo
  • ***
  • Mensajes: 185
    • Ver Perfil
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

Brroz

  • Miembro de PLATA
  • *****
  • Mensajes: 1058
    • Ver Perfil
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
  1.  
  2. Private Sub ChkPorts()
  3.    
  4.     Dim intCanal As Integer
  5.     Dim int1 As Integer
  6.    
  7.     On Error GoTo Err_PtoPar
  8.     For int1 = 1 To 16
  9.         intCanal = FreeFile
  10.         Open "LPT" & int1 For Input As intCanal
  11.         Close intCanal
  12.     Next int1
  13.    
  14. PtoCom:
  15.     On Error GoTo Err_PtoCom
  16.     For int1 = 1 To 16
  17.         intCanal = FreeFile
  18.         Open "COM" & int1 For Input As intCanal
  19.         Close intCanal
  20.     Next int1
  21.    
  22.     Exit Sub
  23.  
  24. Err_PtoPar:
  25.     If Err.Number = 53 Then
  26.         MsgBox int1 - 1 & " puerto(s) paralelo(s)"
  27.         Resume PtoCom
  28.     End If
  29.     Exit Sub
  30.    
  31. Err_PtoCom:
  32.     If Err.Number = 53 Then MsgBox int1 - 1 & " puerto(s) com"
  33.  
  34. End Sub
  35.  
  36.  

Abur.

MindEye

  • Miembro MUY activo
  • ***
  • Mensajes: 185
    • Ver Perfil
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
    • Ver Perfil
Re: Listar Los Puertos Del Equipo
« Respuesta #3 en: Jueves 19 de Febrero de 2004, 17:47 »
0
No lo sé. Chau.
Páginas: [1]
« anterior próximo »