Ayudenme en Visual Basic ( Estoy haciendo un scan port )

[][kevin][]

Miren:

Private Sub Command1_Click()
ip = Form1.Text1
Port = Form1.Text2
Winsock1.Remot eHost = ip
Winsock1.Remot ePort = Port
Winsock1.Conne ct
End Sub
Private Sub Winsock1_Conne ct()
If Winsock1.State = sckConnected Then
Form1.Text3 = "Puerto Abierto"
Else
Form1.Text3 = "Puerto cerrado"
End If
End Sub




Cuando me escaneo a mi mismo ( 127.0.0.1 ) a un puerto que tengo abierto me dice que esta abierto , pero cuando scaneo a uno que lo tengo cerrado No me dice que esta cerrado.


Otra duda.... cuando yo scaneo con mi scanre , al darle por segunda vez al command button me sale un error y me tira del programa :S:S:S:S

[crypto136]

Miren:

Private Sub Command1_Click()
ip = Form1.Text1
Port = Form1.Text2
Winsock1.Remot eHost = ip
Winsock1.Remot ePort = Port
Winsock1.Conne ct
End Sub
Private Sub Winsock1_Conne ct()
If Winsock1.State = sckConnected Then
Form1.Text3 = "Puerto Abierto"
Else
Form1.Text3 = "Puerto cerrado"
End If
End Sub

Cuando me escaneo a mi mismo ( 127.0.0.1 ) a un puerto que tengo abierto me dice que esta abierto , pero cuando scaneo a uno que lo tengo cerrado No me dice que esta cerrado.

Otra duda.... cuando yo scaneo con mi scanre , al darle por segunda vez al command button me sale un error y me tira del programa :S:S:S:S

error #1: debes cerrar el Winsock antes de asignar el puerto, la ip y conectar, si hacs esto creo que ya no te botara error cuando le des click al boton de nuevo.
error #2: pones que cuando conecte el winsock pregunte el estado de conexion lo mejor seria que solo pusieras que te aparezcan los puertos abiertos, imaginate una lista con los 65000 puertos con un mensaje Abierto-Cerrado

nos vemos men!