Introduction - Codage - Commandes du VB- VB IDE - Forms - Contrôles - Dialogues communs - Bases de données - Client / Serveur - Impression - Fichiers -

	Cours Visual Basic 6.0 pour les débutants
	Création des Applications Client - Serveur Sous VB 6.0 Introduction : Développer et déployer facilement vos sites web Télécharger gratuitement Office 2013 Héberger votre site web sur des serveurs gratuits Visual Studio 2013 Télécharger et apprenez gratuitement Trucs et Astuces Découvrez Windows 8.1 et télécharger le gratuitement    Un contrôle WinSock vous permet de vous connecter à une machine distante et d'échanger des données en utilisant soit UDP (User Datagram Protocol), soit TCP (Transmission Control Protocol). Ces deux protocoles peuvent être utilisés pour créer des applications client serveur. De même que le contrôle Timer, le contrôle WinSock n'a pas d'interface visible à l'exécution. Pour établir une connection, il doit y avoir deux applications : d'une part le serveur qui attend une connection et de l'autre le client qui se connecte au serveur. D'une manière simplifiée une connection se déroule comme ceci : - Le serveur écoute sur un port et est prêt àaccepter une connection - Le client envoie une demande de connection au serveur - Le serveur accepte et établit la connection - Le serveur et le client s'échangent des informations SERVEUR : METTRE LE SERVEUR A L'ECOUTE Private Sub Form_Load() Winsock1.LocalPort = 1530 'Définit 1530 comme port local Winsock1.Listen 'Ecoute sur le port local End Sub Le serveur écoute sur le port 1530 et attend une connection sur ce port. ACCEPTER LES CONNECTIONS Private Sub Winsock1_ConnectionRequest(Index As Integer, ByVal requestID As Long) Winsock1.Close 'Ferme le serveur et Winsock1.Accept requestID 'accepte la connection ayant pour ID requestID End Sub Dans cet exemple le serveur arrête d'écouter et établit la connection. Le serveur n'accepte donc qu'une seule connection. Si on veut réaliser un serveur multiconnections il faut définir la propriétéIndex du contrôle à0 et utiliser ce code : Public numserv As Integer Private Sub Winsock1_ConnectionRequest(Index As Integer, ByVal requestID As Long) numserv = numserv + 1 'incrémente le nombre de serveur Load Winsock1(numserv) 'charge un nouveau Winsock1(numserv).Accept requestID 'accepte la connection End Sub Ici le serveur charge un autre contrôle avec lequel il accepte la connection et le contrôle original reste àl'écoute d'une nouvelle connection. CLIENT :   SE CONNECTER Private Sub Command1_Click() Winsock1.RemoteHost = "127.0.0.1"'l'hôte distant est l'adresse IP 127.0.0.1 Winsock1.RemotePort = 1530 'le port distant est 1030 Winsock1.Connect 'lance la connection End Sub Un clic sur le bouton provoque le lancement d'une connection vers RemoteHost qui peut contenir le nom d'hôte ou l'adresse IP du serveur. Notez que ce code est équivalent à: Winsock1.Connect "127.0.0.1", 1530. ( Ici c'est l'adresse de retour qui correspond àl'ordinateur qui est utilisée ce qui permet de pouvoir faire des tests sans posséder de réseau (le serveur et le client sont sur la même machine) ) CLIENT / SERVEUR : ENVOI DE DONNEES Private Sub Command1_Click() If Winsock1.State = sckConnected Then 'vérifie si la connection est établie   Winsock1.SendData Text1.Text 'envoie les données End If End Sub Un clic sur le bouton provoque l'envoi du texte contenu dans Text1, si la connection est établie. RECEPTION DE DONNEES Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) Winsock1.GetData Wrd, vbString, 10 'récupère les données et les stocke dans la variable "Wrd" End Sub Lors de leur arrivée, les données sont récupérées avec une limitation de 10 caractères. Ainsi si la donnée transmise est "Visual Basic", on ne récupère que "Visual Bas". Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) Dim Wrd As String Winsock1.GetData Wrd 'récupère toutes les données End Sub FERMETURE DE LA CONNECTION Private Sub Command3_Click() If Winsock1.State = sckConnected Then 'si connecté Winsock1.Close 'ferme la connection End If End Sub -  Déposez votre CV -  lien de téléchargement direct -  50 tirages offerts à l'inscription chez myPIX.com! -  Dépot de CV gratuit sur Touslesemplois -  Logiciel de référencement automatique