HOla a todos, estaba intentando hacer un escaneador de puertos es bastante sencillo o eso creia hasta que tipee todo el codigo y despues veo que cuando le doi Winsock1.Close y Winsock1.Connect en un command, no llega al evento Winsock1.Connect, y queria saber si tengo algun error de escritura de codigo, aqui os lo dejo:



Private Sub Command1_Click()
Winsock1.Close
Winsock1.Connect Text1.Text, Port
End Sub

Private Sub Form_Load()
Port = Text2.Text
Text1.Text = Winsock1.LocalIP
End Sub

Private Sub Winsock1_Close()
Winsock1.Connect Text1.Text, Port
End Sub

Private Sub Winsock1_Connect()
Winsock1.Close
End Sub



Espero sus respuestas salu2 y sigan con este foro que nos sirve de ayuda para todos.

si no conecta se ejecuta el evento error del winsock

Me parece que la pifiaste aca...


lo estoy mirando muy x arriba xq estoy en el laburo.. pero en el text1.text no esta tu ip?, y entonces estas buscando que se conecte a tu maquina???

Fijate eso

Saludos

Lee un tutorial de WinSock, hay uno excelente de MSDN justo arriba como tema pegado. 

Tutorial del control WinSock

Saludos.