Foro de elhacker.net

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 el puerto esta cerrado no se va a conectar, ademas no asignaste ningun puerto a menos que hayas establecido la propiedad Text de Text2 en tiempo de diseño.

Saludos.

P.D: Usa las etiquetas code para el codigo.

si no conecta se ejecuta el evento error del winsock

mm mira os paso el nuevo codigo, y si, ahi algo ahi q falla porque en Winsock1_Error pongo: Msgbox "error" y me muestra ese mensaje pero quisiera saber el porque de este error :S si lo hice todo bien o eso creo, chekear de nuevo el codigo aver:




Espero que puedan localizar el fallo porque yo no puedo y creo que esta todo correcto, pero me sige sin llegar a Winsock_Connect si no que me va a Winsock_Error...


Si sabeis como lo puedo hacer haciendo un bucle y me podeis explicar como hacerlo con un bucle for, asi por encima, os lo agradeceria muchisimo salu2.

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

aunque ponga otra me sale erorr :S =, ayudenme porfavor.

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

Tutorial del control WinSock (http://foro.elhacker.net/index.php/topic,75832.0.html)

Saludos.