Winsock kontroll i Visual Basic 6 kan du lage programmer som etablerer forbindelser mellom hverandre over et nettverk , med ett program som fungerer som en server og den andre som en klient . Winsock kontroll har flere metoder som brukes for tilkobling , sending og mottak av data . Du kan bruke bokstavelige data , informasjon fra tekstbokser eller variabler å passere informasjon. Men fordi arrays bruker indeksene og har flere dataelementer , passerer disse fungerer litt annerledes enn bestått andre typer data . Instruksjoner
Server Program
en
Åpne et nytt Visual Basic-prosjekt . Klikk på " Project" på menyen, og deretter " Components ". Bla nedover i dialogboksen , og klikk deretter på " Microsoft Winsock Kontroll 6.0" boksen for å sette et merke i det, og klikk deretter på "OK " -knappen.
2
Dobbeltklikk Winsock kontroll i verktøykassen for å legge det til i skjemaet . Også dobbeltklikke CommandButton og TextBox kontroll to ganger for å legge til disse tre kontroller i skjemaet . Klikk og dra dem til å ordne dem slik du ønsker .
3
Dobbeltklikk skjemaet for å åpne Form_Load subrutine . Skriv inn følgende kode :
WinSock1.LocalPort = portNumberWinSock1.Listen
Når serveren programmet kjører , åpner denne koden Winsock og lytter for en klient -tilkobling på den medfølgende portnummer . Enten bruke en variabel for å angi et portnummer eller skriv et heltall direkte , for eksempel port 21 eller 22
4
Åpne WinSock1_ConnectionRequest subrutine og skriv inn følgende kode : .
P Hvis WinSock1 . State < > sckClosed ThenWinSock1.CloseEnd IfWinSock1.Accept RequestID
Dette sjekker for å se om winsock kontroll har etablert en forbindelse , og hvis så , det stenger det da aksepterer forespørsler fra klienter å etablere en ny forbindelse .
5
Åpne WinSock1_DataArrival subrutine og skriv inn følgende kode :
Dim strData Som StringWinSock1.GetData strData , vbStringText1.Text = Text1.Text & strData
den første linjen skaper en ny streng variabel å få innkommende data fra klienten . Den andre linjen styrer winsock kontroll lagrer dataene til variabelen . Den tredje linjen legger den nye data til eksisterende tekst i den første tekstboksen
6
Åpne Command1_Click subrutine og skriv inn følgende kode : .
WinSock1.SendData Text2.Text
Denne linjen sender ganske enkelt informasjon fra den andre tekstboksen til klienten programmet .
Client program
7
Åpne et nytt Visual Basic-prosjekt . Dobbeltklikk Winsock kontroll, CommandButton kontroll og TextBox kontroll for å legge til hver av disse til skjemaet. Klikk og dra dem til å ordne dem slik du ønsker .
8
Dobbeltklikk skjemaet for å åpne Form_Load subrutine . Skriv inn følgende kode :
WinSock1.RemoteHost = hostIPWinSock1.RemotePort = portNumberWinSock1.Connect
Disse linjene sende en tilkobling forespørsel til en server ved hjelp av hostip og portnummer verdier. Erstatte dette med variabler som holder disse verdiene , eller med en streng verdi for hostip og et heltall for portnummer . Bruk for eksempel " 127.0.0.1 " som vert verdi, som er den lokale verten slik at du kan teste programmet på din lokale maskin .
9
Åpne WinSock1_DataArrival subrutine og skriv inn følgende kode :
Dim strData som StringWinSock1.GetData strData , vbStringText1.Text = Text1.Text & strData
Denne koden fungerer akkurat det samme som data ankomst subrutine for Winsock kontroll i serveren . program
10
Åpne Command1_Click subrutine og skriv inn følgende kode :
Dim myArray ( 3 ) Som Stringmyarray ( 0 ) = "Denne " myArray ( 1 ) = " ; er " myArray ( 2 ) =" min " myArray ( 3 ) = " array "For i = 0 For å UBound ( myArray ) WinSock1.SendData myArray ( i) Neste i
. første fem linjene lage en matrise med fire strykere elementer og initialiserer hver verdi . De neste tre linjer kjøre en loop som sender hvert element i matrisen en om gangen gjennom Winsock kontroll til serveren programmet . Du kan kopiere denne koden i server program for å sende arrays derfra til klienten programmet .
