Programmation d'une application en mode client-serveur avec VB

Introduction

La programmation des sockets ne n馗essite que l'objet Winsock. Le principe consiste ? ouvrir une socket dans l'application serveur, qui va attendre une connexion et de s'y connecter avec une appli cliente. Lorsqu'une demande de connexion arrive, on l'accepte par la m騁hode .Accept. A partir de l?, on envoie des donn馥s avec la m騁hode .Send, et on lit les donn馥s entrantes avec la m騁hode Data_Arrival().

(Serveur) Ouverture d'une socket

'avant d'ouvrir une socket, v駻ifier qu'on n'utilise pas un port standard, d駛? r駸erv?. Liste dispo dans C:\WINNT\system32\drivers\etc\services

Socket.LocalPort = 1007

'TCP est le protocole par d馭aut

Socket.Protocol = sckTCPProtocol

Socket.Listen

(Client) Connexion ? une socket

Socket.RemoteHost = "192.168.0.1"

Socket.RemotePort = 1007

Socket.Protocol = sckTCPProtocol

Socket.Connect

(Serveur) Acceptation demande de connexion

Private Sub Socket_ConnectionRequest(ByVal requestID As Long)

Socket.Accept requestID

End Sub

(Client) Envoi de donn馥s au serveur

Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)

Socket.SendData Chr$(KeyCode)

End Sub

(Serveur) Lecture donn馥s provenant du client

Private Sub Socket_DataArrival(ByVal bytesTotal As Long)

Dim sTemp As String

Socket.GetData sTemp

End Sub

(Client) Fermeture connexion

Socket.Close

(Serveur) Fermeture socket

Socket.Close