0/5 (2 avis)
Snippet vu 10 016 fois - Téléchargée 35 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
29 janv. 2013 à 16:18
29 juil. 2008 à 00:55
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.