Le contrôle Winsock en Visual Basic 6 vous permet de créer des programmes qui établissent des connexions entre eux sur un réseau , avec un programme agissant comme un serveur et l'autre en tant que client . Le contrôle winsock dispose de plusieurs méthodes utilisées pour la connexion , l'envoi et la réception de données . Vous pouvez utiliser les données littérales , les informations provenant des zones de texte ou encore des variables à transmettre des informations . Toutefois, en raison des tableaux utilise les index et ont plusieurs éléments de données , en passant ces œuvres un peu différemment que de passer d'autres types de données. Instructions
Server Program
1
ouvrir un nouveau projet Visual Basic. Cliquez sur " Projet " dans le menu puis cliquez sur " Composants ". Faites défiler la boîte de dialogue, puis cliquez sur le " Microsoft Winsock Control 6.0 " case pour mettre un frein à cela , puis cliquez sur " OK" bouton.
2
Double- cliquez sur le contrôle Winsock dans la boîte à outils pour l'ajouter à la forme . Également double-cliquez sur le contrôle bouton de commande et le contrôle TextBox deux fois pour ajouter ces trois contrôles au formulaire . Cliquez et faites-les glisser pour les organiser comme vous le souhaitez .
3
Double -cliquez sur le formulaire pour ouvrir la sous-routine Form_Load . Tapez le code suivant :
WinSock1.LocalPort = portNumberWinSock1.Listen
Lorsque le programme serveur s'exécute , ce code ouvre le winsock et à l'écoute pour une connexion client sur le numéro de port fournie . Soit utiliser une variable pour définir un numéro de port ou tapez directement un nombre entier , tels que le port 21 ou 22
4
Ouvrez la sous-routine WinSock1_ConnectionRequest et tapez le code suivant : .
Si Winsock1 . Etat <> sckClosed ThenWinSock1.CloseEnd IfWinSock1.Accept requestID
vérifie si le contrôle winsock a établi une connexion et si c'est le cas , il ferme qu'il accepte ensuite les demandes des clients pour établir une nouvelle connexion.
5
Ouvrez le sous-programme WinSock1_DataArrival et tapez le code suivant :
Dim strData Comme StringWinSock1.GetData strData , vbStringText1.Text = Text1.Text & strData
la première ligne crée une nouvelle variable de chaîne pour obtenir les données entrantes à partir du client . La deuxième ligne dirige le contrôle winsock enregistre les données de la variable. Le troisième ligne ajoute les nouvelles données vers le texte existant dans la première zone de texte
6
Ouvrir le sous-programme Command1_Click et tapez le code suivant : .
WinSock1.SendData Text2.Text
Cette ligne envoie simplement des informations à partir de la deuxième zone de texte pour le programme client .
client programme
7
Ouvrez un nouveau projet Visual Basic. Double- cliquez sur le contrôle Winsock , contrôle commande et de contrôle de texte à ajouter chacune d'elles pour la forme . Cliquez et faites glisser eux pour les organiser comme vous le souhaitez .
8
Double -cliquez sur le formulaire pour ouvrir la sous-routine Form_Load . Tapez le code suivant :
WinSock1.RemoteHost = hostIPWinSock1.RemotePort = portNumberWinSock1.Connect
Ces lignes envoyer une demande de connexion à un serveur utilisant le HostIP et les valeurs de portNumber . Remplacer par des variables qui détiennent ces valeurs ou avec une valeur de chaîne pour le HostIP et un entier pour le portNumber . Par exemple, utilisez "127.0.0.1 " comme valeur de l'hôte, qui est l'hôte local afin que vous puissiez tester votre programme sur votre ordinateur local.
9
Ouvrez le sous-programme WinSock1_DataArrival et tapez la commande suivante Code :
strData As StringWinSock1.GetData strData , vbStringText1.Text = Text1.Text & strData
Ce code fonctionne exactement le même que le sous-programme de l'arrivée de données pour le contrôle Winsock sur le serveur . programme
10
Ouvrez le sous-programme Command1_Click et tapez le code suivant :
Dim myarray (3) Comme Stringmyarray (0) = "Ce " myarray ( 1) = " , est " myarray (2) = " mon " myarray (3) = " array " For i = 0 To UBound ( myarray ) WinSock1.SendData myarray ( i) Next i
. cinq premières lignes de créer un tableau avec quatre points de corde et initialise chaque valeur. Les trois lignes suivantes exécutent une boucle qui envoient chaque élément de celui du tableau à la fois par le contrôle winsock pour le programme serveur . Vous pouvez dupliquer ce code dans le programme du serveur d'envoyer des tableaux à partir de là pour le programme client .
