(pregunta) Saber Puerto Abierto De Una Ip

[VisualGuallabo]

Socio la solución es la que te da el colega David el Grande. Te Voy a poner un Ejemplo espero que resuelva tu problema.
********************Ejemplo*********************** ****
----------------Controles-----------------------------------------------
-Dos TextBox
en el Text1 se entrara el IP o nombre de la pc
en el Text2 se entrara el puertoque deseas comprobar
-Un Label con la propiedad name=estado
-Un timer
-y el Control Winsock
con enable=True
y interval=800
------------------------------------------------------------------------
Private Sub Command1_Click()
Winsock1.Close
Winsock1.Connect Text1, Text2
End Sub

Private Sub Timer1_Timer()
Select Case Winsock1.State
Case 0
estado.Caption = "Cerrado"
Case 1
estado.Caption = "Abierto"
Case 2
estado.Caption = "Escuchando"
Case 3
estado.Caption = "Conexión pendiente"
Case 4
estado.Caption = "Resolviendo host"
Case 5
estado.Caption = "Host resuelto"
Case 6
estado.Caption = "Conectando"
Case 7
estado.Caption = "Conectado" 'Puerto Abierto
msgbox "Puerto Abierto"
Case 8
estado.Caption = "El equipo está cerrando la conexión"
Winsock1.Close
Case 9
estado.Caption = "Error" 'Puerto Cerrado
End Select
End Sub
----Recuerdalas las palabras del colega David el Grande, si conecta es que el puerto esta habierto en el servidor y si solo quiere comprobar si el puerto esta habierto debes cerrar la conexión(Winsock1.Close) para mas tarde poder conectar.