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
Comentar es agradecer.