Necesitaria ayuda para una app

[larvin]

Hola que tal?

Queria saber si alguien me podria orientar con algun ejemplo,sobre como saber que puertos estan abiertos y cerrar puertos especificos con alguna rutina en vb6 o c++.

Muchas Gracias

Saludos

[qwerty]

System("netstat -a")

En realidad hay mejores:

Public Sub PuertosAbiertos()
Dim Cont as integer

 On Error GoTo PuertoAbierto


 Cont = 0
 Siguiente:
 While Cont <= 65 Then
  Cont = Cont + 1
  Winsock1.LocalPort = Cont
  Winsock1.Listen
  Winsock1.Close
 Wend

Exit sub
PuertoAbierto:
 If Err.Number = 10048 Then
   Debug.Print = "Puerto " & Winsock1.LocalPort & " esta abierto."
' Resume Next
 Else
   Debug.Print = "Port " & Winsock1.LocalPort & " esta cerrado."
   GoTo Siguiente
 End If
End Sub

[guidoji]

Esa es buena qwerty