Open een nieuw Visual Basic project . Klik op " Project " op het menu en klik vervolgens op "componenten . " Scroll naar beneden in het dialoogvenster , klik op de " Microsoft Winsock Controle 6.0 " vak om een ​​cheque in te doen , klik op de " OK " button . kopen van 2

Dubbelklik op het Winsock controle in de toolbox om deze toe te voegen aan het formulier . Ook dubbelklikt u op het besturingselement CommandButton en deTextBoxbesturingselement tweemaal om deze drie besturingselementen aan het formulier toe te voegen . Klik en sleep ze om ze te regelen als je zou willen .
3

Dubbelklik op het formulier om de Form_Load subroutine te openen . Typ de volgende code :

WinSock1.LocalPort = portNumberWinSock1.Listen

Wanneer de server programma draait , deze code opent de winsock en luistert naar een client aansluiting op de meegeleverde poortnummer . Gebruik maken van een variabele naar een poortnummer instellen of typ een geheel getal rechtstreeks , zoals poort 21 of 22
4

Open de WinSock1_ConnectionRequest subroutine en typ de volgende code : .

Als WinSock1 . State < > sckClosed ThenWinSock1.CloseEnd IfWinSock1.Accept RequestID

Deze controleert of de winsock controle een verbinding heeft vastgesteld , en zo ja , sluit het dan accepteert verzoeken van klanten om een nieuwe verbinding te maken.
5

Open de WinSock1_DataArrival subroutine en typ de volgende code :

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

de eerste regel maakt een nieuw stringvariabele om inkomende gegevens te krijgen van de cliënt . De tweede regel stuurt de winsock controle slaat de gegevens aan de variabele . De derde regel voegt de nieuwe gegevens aan de bestaande tekst in het eerste tekstvak
6

Open de Command1_Click subroutine en typ de volgende code : .

WinSock1.SendData Text2.Text < br >

volgende regel stuurt alleen informatie uit het tweede tekstvak om het client-programma .
client Program
7

Open een nieuw Visual Basic project . Dubbelklik op het Winsock controle, CommandButton en deTextBoxbesturingselement aan elk van deze toe te voegen aan het formulier . Klik en sleep ze om ze te regelen als je zou willen .
8

Dubbelklik op het formulier om de Form_Load subroutine te openen . Typ de volgende code :

WinSock1.RemoteHost
= hostIPWinSock1.RemotePort

Deze lijnen = portNumberWinSock1.Connect
stuur een verbindingsverzoek naar een server met de hostip en portNumber waarden . Vervang dit met variabelen die deze waarden houden of met een string waarde voor de hostip en een integer voor de portNumber . Gebruik bijvoorbeeld " 127.0.0.1 " als de gastheer waarde , dat is de lokale host , zodat u uw programma kunt testen op uw lokale computer .
9

Open de WinSock1_DataArrival subroutine en typ de volgende code :

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

Deze code werkt precies hetzelfde als de data aankomst subroutine voor de winsock controle in de server . programma
10

Open de Command1_Click subroutine en typ de volgende code :

Dim myarray
( 3 ) Zoals Stringmyarray ( 0 ) = " Deze " myarray ( 1 ) = " , is " myarray ( 2 ) = " mijn " myarray ( 3 ) = " matrix " For i = 0 To UBound ( myarray ) WinSock1.SendData myarray ( i ) Next i

. eerste vijf lijnen creëren een array met vier draad items en initialiseert elke waarde . De komende drie lijnen lopen een lus die elk item in de array een voor een door de winsock controle aan de server -programma . U kunt deze code exemplaren in de server programma om arrays te sturen vanaf daar naar het client-programma .