Ayuda en mi programa un escaneador de puertos no llega a Winsock_Connect :S

[ZaPa]

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.

[Slasher-K]

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.

[maxnet]

si no conecta se ejecuta el evento error del winsock

[ZaPa]

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:

Código [Seleccionar] Expandir

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

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

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

Private Sub Winsock1_Connect()
Text4.Text = Text4.Text + 1
Winsock1.Close
End Sub

Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
MsgBox "ERROR!!"
End Sub



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.

[Manibal_man]

Me parece que la pifiaste aca...

Código [Seleccionar] Expandir

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

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

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

[ZaPa]

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

[Slasher-K]

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

Tutorial del control WinSock

Saludos.