VB6: Ejemplo para escanear un puerto con WinSock


Bueno espero que los ayude, con este código van a poder empesar en el mundo de WinSock.

1)Primero abrimos un nuevo proyecto
2)Segundo, creamos Dos TextBox y un boton
Teniendo en cuenta:
*Textbox 1 = IP
*TextBox 2 = puerto
*Command 1 = conectar

Código:

Private sub conectar_click()
winsock1.Close 'cierra el winsock
winsock1.remotehost = IP.text 'especificamos la dirección de IP, que en este caso la tiene el cuadro de texto IP
winsock1.remoteport = puerto.txt 'especificamos la dirección del puerto, que en este caso la tiene el cuadro de texto puerto
winsock1.connect
End sub
'------------------------------------

Private Sub Winsock1_Connect()
If winsock1.state = sckConnected then 'Pregunta si el estado del servidor es Conectado
Print "El puerto esta abierto" 'imprime en el formulario
else
Print "No hay conexión" 'imprime en el formulario
end if
End sub

Bueno, ahi termina el código. Es más simple de lo que parese. Para más info: http://foro.elhacker.net/programacion_vb/tutorial_del_control_winsock-t75832.0.html

Otro de mis Post
L2: Games Xanadú 2º temporada

Comentar es agradecer.