Pour trouver une ip....

Télécharger le projet
Commenter

Description

Sa programme sert a faire une legere connection avec Winsock il crée un adresse http:// Vitreip
et une fois qu'une personne quel qu'onque est dessus le programme affiche sont ip
Il integre:
+Un systeme de mot de passe a l'entrée avec ecrit dans le regedit..
+Un petit petit naviguateur

Note:Ce programme n'est pas gros meme si il a plusieur form....

Merci de le notez svp!!!

Source / Exemple : 


Private Sub Command1_Click()
Winsock1.LocalPort = 800
Winsock1.Listen
Text2.Text = "http://" & Winsock1.LocalIP & ":800"
End Sub

Private Sub Command2_Click()
Winsock2.Close
Winsock1.Close
Text1.Text = ""
End Sub

Private Sub Command3_Click()
Form3.Show
End Sub

Private Sub Command4_Click()
Text1.Text = ""
End Sub

Private Sub Command5_Click()
MsgBox "By Ludo/Xzat ( www.xzat-design.com )", vbInformation
Shell "C:\Program Files\Internet Explorer\Iexplore.exe http://www.xzat-design.com"
End Sub

Private Sub Command6_Click()
Unload Me
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 = (Text3.Text)
Winsock2.SendData env
End Sub

Private Sub Winsock2_SendComplete()
Winsock2.Close
End Sub
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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.

Du même auteur (cs_protect)