Soyez le premier à donner votre avis sur cette source.
Snippet vu 9 666 fois - Téléchargée 33 fois
Pour ce code vous aurez besoin pour le client d un control inet et d un bouton Pour le server, il vous faut un controle winsock et un textbox ---Voila le code client Private Sub Command1_Click() 'se connecte au server grace a l ip et part le port choisi Inet1.OpenURL "[ip du server a contacter]:[port]" End Sub ---Et pour le code server Private Sub Form_Load() 'definie le port a utiliser et met le controle winsock sur ecoute des connections entrantes Winsock.localport=[le meme port choisi precedemment] Winsock.Listen End Sub Private Sub Winsock_ConnectionRequest( ByVal requestID As Long) 'Affiche l ip dans le controle text Text1.Text = Text1.Text + vbCrLf + Winsock.RemoteHostIP 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.