Hola quiero hacer un "portscan" pero me sale un error que no se solucionar.. Aqui va el codigo
Dim i As Integer
Private Sub Command1_Click()
Winsock1.Close
For i = 1 To 65500
Winsock1.RemoteHost = Text2.Text
Winsock1.RemotePort = i
If Winsock1.Connect Then
Text1.Text = Text1.Text & i & " Conexion establecida"
Else
Text1.Text = Text1.Text & i & " Imposible conectar"
End If
Winsock1.Close
End Sub
Me pone que Error de compilacion no coinciden los tipos y me señala el Winsock1.Connect.
Gracias :)
es que Winsock1.Connect no devuelve nada para saber si estas conectado tienes q esperar a q conecte y mirar por State.
ah ok! gracias ;D