Easy ip

Soyez le premier à donner votre avis sur cette source.

Vue 2 785 fois - Téléchargée 280 fois

Description

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

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

pcman5
Messages postés
132
Date d'inscription
mercredi 12 juin 2002
Statut
Membre
Dernière intervention
26 janvier 2006
-
cdélire
pcman5
Messages postés
132
Date d'inscription
mercredi 12 juin 2002
Statut
Membre
Dernière intervention
26 janvier 2006
-
lol
Taramino
Messages postés
18
Date d'inscription
dimanche 12 janvier 2003
Statut
Membre
Dernière intervention
30 mars 2003
-
ehhhhhh les gars plus de commentaire
Taramino
Messages postés
18
Date d'inscription
dimanche 12 janvier 2003
Statut
Membre
Dernière intervention
30 mars 2003
-
plus de message
Taramino
Messages postés
18
Date d'inscription
dimanche 12 janvier 2003
Statut
Membre
Dernière intervention
30 mars 2003
-
plus dessage ???? LOL

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.