Das Winsock-Steuerelement in Visual Basic 6 können Sie Programme erstellen, die Verbindungen untereinander über ein Netzwerk zu schaffen, mit einem Programm als Server und der andere als Client . Das Winsock-Steuerelement verfügt über mehrere Methoden für die Verbindung verwendet , das Senden und Empfangen von Daten . Sie können wörtliche Daten, Informationen von Textfeldern oder sogar Variablen , um Informationen weiterzugeben. Da jedoch Arrays verwendet Indizes und haben mehrere Datenelemente , vorbei an diesen Arbeiten wird ein bisschen anders als die Übergabe weiterer Arten von Daten . Anleitung
Server Program
1

Öffnen Sie ein neues Visual Basic-Projekt . Klicken Sie auf " Projekt" auf der Speisekarte und klicken Sie dann auf "Komponenten ". Blättern Sie in dem Dialogfeld , klicken Sie auf die "Microsoft Winsock Control 6.0 "-Box , einen Scheck in es setzen, dann klicken Sie auf " OK" Taste.
2

Doppelklicken Sie auf das Winsock-Steuerelement in der Toolbox, um es zum Formular hinzufügen . Auch doppelklicken Sie auf das Steuerelement CommandButton und das TextBox-Steuerelement zweimal, um diese drei Steuerelemente zum Formular hinzufügen. Klicken und ziehen Sie sie, um sie zu arrangieren , wie Sie möchten .
3

Doppelklicken Sie auf das Formular, um den Unterprogramm Form_Load öffnen. Geben Sie den folgenden Code:

Winsock1.LocalPort = portNumberWinSock1.Listen

Wenn das Server-Programm ausgeführt wird, wird dieser Code die Winsock und wartet auf eine Client-Verbindung auf der mitgelieferten Port-Nummer . Verwenden Sie entweder eine Variable auf eine Port-Nummer eingestellt , oder geben Sie eine ganze Zahl direkt , wie zum Beispiel Port 21 oder 22
4

Öffnen Sie die WinSock1_ConnectionRequest Unterprogramm und geben Sie den folgenden Code: .

Wenn Winsock1 . Staat <> sckClosed ThenWinSock1.CloseEnd IfWinSock1.Accept requestID

Diese prüft, ob das Winsock-Steuerelement eine Verbindung aufgebaut hat und wenn ja, schließt sie es dann akzeptiert Anfragen von Clients , um eine neue Verbindung aufzubauen.
5

Öffnen Sie die WinSock1_DataArrival Unterprogramm und geben Sie den folgenden Code: Dim

strData Wie StringWinSock1.GetData strData , vbStringText1.Text = Text1.Text & strData

die erste Zeile erstellt eine neue String-Variable , um eingehende Daten vom Client erhalten . Die zweite Zeile leitet das Winsock-Steuerelement speichert die Daten auf die Variable . Die dritte Zeile fügt die neuen Daten an jeden vorhandenen Text in das erste Textfeld
6

Öffnen Sie die Command1_Click Unterprogramm und geben Sie den folgenden Code: .

WinSock1.SendData Text2.Text

Diese Zeile sendet einfach Informationen aus dem zweiten Textfeld auf der Client-Programm .
Client- Programm
7

Öffnen Sie ein neues Visual Basic-Projekt . Doppelklicken Sie auf das Winsock-Steuerelement , CommandButton-Steuerelement und TextBox-Steuerelement , um jede dieser zum Formular hinzufügen . Klicken und ziehen Sie sie, um sie zu arrangieren , wie Sie möchten .
8

Doppelklicken Sie auf das Formular, um den Unterprogramm Form_Load öffnen. Geben Sie den folgenden Code:

WinSock1.RemoteHost = hostIPWinSock1.RemotePort = portNumberWinSock1.Connect

Diese Zeilen senden eine Verbindung an einen Server mit der hostip und portNumber Werte . Ersetzen Sie diese durch Variablen , die diese Werte halten oder mit einem String-Wert für die hostip und einer ganzen Zahl für die portNumber . Verwenden Sie zum Beispiel "127.0.0.1" als Host- Wert, der der lokale Host ist , so dass Sie Ihr Programm auf Ihrem lokalen Rechner testen können.
9

Öffnen Sie die WinSock1_DataArrival Unterprogramm und geben Sie den folgenden Code :

Dim strData wie StringWinSock1.GetData strData , vbStringText1.Text = Text1.Text & strData

Dieser Code funktioniert genau der gleiche wie der Daten Ankunft Subroutine für die Winsock-Steuerelement in dem Server . Programms
10

Öffnen Sie die Command1_Click Unterprogramm und geben Sie den folgenden Code: Dim

myarray (3) Als Stringmyarray (0) = " Dieses" myarray (1) = " ; ist " myarray (2) = " meine " myarray (3) = " array " For i = 0 To UBound ( myarray ) WinSock1.SendData myarray ( i) Next i

. ersten fünf Zeilen erstellen ein Array mit vier Schnur Gegenstände und initialisiert jeden Wert . Die nächsten drei Zeilen laufen eine Schleife , die jedes Element im Array eine Nachricht zu einem Zeitpunkt durch das Winsock-Steuerelement , um das Server-Programm . Sie können diesen Code in das Server-Programm zu duplizieren , um Arrays von dort auf dem Client-Programm senden.