trouve l'ip d'une personne en passant par un port ouvert sur un site web
Source / Exemple :
Public port As String
Public message As String
Private Sub Command1_Click()
port = Text4.Text
MsgBox " port configurer veuillez cliquer sur réinitialiser !"
End Sub
Private Sub Command2_Click()
Text2.Text = "http://" & Winsock1.LocalIP & ":" & port
End Sub
Private Sub Command3_Click()
MsgBox "© copyright taramino 2002 "
End
End Sub
Private Sub Command4_Click()
Form2.Show
End Sub
Private Sub Command5_Click()
message = "<p>" & Text5.Text & " </p>"
MsgBox " Le message à bien été changé !"
End Sub
Private Sub Form_Load()
message = "ERROR FAILED"
port = 800
Winsock1.LocalPort = 800
Winsock1.Listen
Text2.Text = "http://" & Winsock1.LocalIP & ":" & port
Text3.Text = Winsock1.LocalIP
End Sub
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock2.Accept requestID
Text1.Text = Winsock2.RemoteHostIP
End Sub
Private Sub Winsock2_DataArrival(ByVal bytesTotal As Long)
Dim env As String
env = message
Winsock2.SendData env
End Sub
Private Sub Winsock2_SendComplete()
Winsock2.Close
End Sub
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.