SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: MindEye en Jueves 19 de Febrero de 2004, 02:53

Título: Listar Los Puertos Del Equipo
Publicado por: MindEye en Jueves 19 de Febrero de 2004, 02:53
- Como puedo obtener una lista de todos los puertos disponible en el Equipo.

- Gracias
Título: Re: Listar Los Puertos Del Equipo
Publicado por: Brroz en Jueves 19 de Febrero de 2004, 09:43
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.
Título: Re: Listar Los Puertos Del Equipo
Publicado por: MindEye en Jueves 19 de Febrero de 2004, 16:45
- Gracias, pero que hay de los puertos USB, y los virtuales que esten creados
Título: Re: Listar Los Puertos Del Equipo
Publicado por: Brroz en Jueves 19 de Febrero de 2004, 17:47
No lo sé. Chau.