Winsock kontrol i Visual Basic 6 kan du oprette programmer, der etablerer forbindelser mellem hinanden over et netværk, med et program der fungerer som en server , og den anden som en klient. Winsock kontrol har flere metoder, der anvendes til at forbinde , sende og modtage data . Du kan bruge bogstavelige data , oplysninger fra tekstbokse eller endda variabler til at videregive oplysninger. Men fordi arrays bruger indekser og har flere dataelementer , der passerer disse værker lidt anderledes end passerer andre former for data . Instruktioner
Server Program
1
Åbn et nyt Visual Basic-projekt . Klik på " Project" i menuen og derefter klikke på " Komponenter ". Rul ned i dialogboksen , og klik derefter på "Microsoft Winsock kontrol 6.0" boksen for at sætte en check i den, og klik derefter på "OK" knap.
2
Dobbeltklik på Winsock kontrol i værktøjskassen for at føje det til formularen. Også dobbeltklikke på CommandButton og TextBox kontrol to gange for at tilføje disse tre kontrolelementer til formularen . Klik og træk dem til at arrangere dem, som du gerne vil .
3
Dobbeltklik på formularen for at åbne Form_Load underprogram. Indtast følgende kode : Hej
WinSock1.LocalPort = portNumberWinSock1.Listen
Når serveren programmet kører , denne kode åbner winsock og lytter til en klient -forbindelse på den medfølgende portnummer. Enten bruge en variabel til at indstille et portnummer eller skriv et heltal direkte såsom port 21 eller 22
4
Åbn WinSock1_ConnectionRequest subrutine , og skriv følgende kode : .
P Hvis WinSock1 . State < > sckClosed ThenWinSock1.CloseEnd IfWinSock1.Accept requestID
kontroller for at se, om Winsock kontrollen har etableret en forbindelse , og hvis ja , det lukker det så accepterer anmodninger fra klienterne til at etablere en ny forbindelse.
5
Åbn WinSock1_DataArrival subrutine , og skriv følgende kode : Hej
Dim strData Som StringWinSock1.GetData strData , vbStringText1.Text = Text1.Text & strData
den første linje opretter en ny streng variabel at få indkommende data fra klienten . Den anden linje dirigerer Winsock kontrol gemmer data til variablen . Den tredje linje føjer de nye data til en eksisterende tekst i den første tekstboks
6
Åbn Command1_Click subrutine og skriv følgende kode :.
WinSock1.SendData Text2.Text < br >
Denne linje simpelthen sender oplysninger fra den anden tekstboks til klient-programmet .
Client program
7
Åbn et nyt Visual Basic-projekt . Dobbeltklik på Winsock kontrol , CommandButton kontrol og TextBox kontrol til at tilføje hver af disse til formularen. Klik og træk dem til at arrangere dem, som du gerne vil .
8
Dobbeltklik på formularen for at åbne Form_Load underprogram. Indtast følgende kode : Hej
WinSock1.RemoteHost = hostIPWinSock1.RemotePort = portNumberWinSock1.Connect
Disse linjer sende anmodning om forbindelse til en server vha. hostip og portnummer værdier. Erstat det med variabler , der holder disse værdier , eller med en snor værdi for hostip og et heltal for PortNumber . For eksempel bruger " 127.0.0.1 " som vært værdi, hvilket er den lokale vært, så du kan teste dit program på din lokale computer.
9
Åbn WinSock1_DataArrival subrutine og skriv følgende kode : Hej
Dim strData som StringWinSock1.GetData strData , vbStringText1.Text = Text1.Text & strData
Denne kode fungerer nøjagtig den samme som data ankomst subrutinen for Winsock kontrol i serveren . program
10
Åbn Command1_Click subrutine , og skriv følgende kode : Hej
Dim myArray (3) Som Stringmyarray (0) = " Denne" myArray (1) = " ; er " myArray (2) =" min " myArray (3) =" array " For i = 0 Til UBound ( myArray ) WinSock1.SendData myArray ( i) Next i
. først fem linjer skaber et array med fire snor elementer og initialiserer hver værdi . De næste tre linjer løber en løkke, der sender hvert element i arrayet én ad gangen gennem Winsock kontrol til serverprogrammet . Du kan kopiere denne kode på serveren program til at sende arrays derfra til klient program .