Winsock kontrollen i Visual Basic 6 kan du skapa program som upprättar förbindelser mellan varandra över ett nätverk , med ett program som fungerar som server och den andra som en klient . Winsock kontroll har flera metoder som används för att ansluta , skicka och ta emot data. Du kan använda ordagranna data, information från textrutor eller ens variabler att överföra information . Men eftersom arrayer använder index och har flera dataposter , passerar dessa fungerar lite annorlunda än att passera andra typer av data . Instruktioner
Server Program
1
Öppna ett nytt Visual Basic-projekt . Klicka på " Projekt " i menyn och klicka sedan på " komponenter . " Rulla ned i dialogrutan och klicka sedan på " Microsoft Winsock Control 6.0 " rutan för att sätta en check på den , klicka sedan på " OK " knappen .
2
Dubbelklicka på Winsock kontrollen i verktygslådan för att lägga till den i formen . Också dubbelklicka på kommandoknappskontroll och textrutekontroll två gånger för att lägga till dessa tre kontroller i formuläret . Klicka och dra dem att ordna dem som du vill .
3
Dubbelklicka på formuläret för att öppna Form_Load subrutinen . Skriv följande kod :
WinSock1.LocalPort = portNumberWinSock1.Listen
När servern körs , öppnas denna kod Winsock och lyssnar efter en klient -anslutning på den medföljande portnummer . Antingen använda en variabel för att ange ett portnummer eller skriv ett heltal direkt , t.ex. port 21 eller 22
4
Öppna WinSock1_ConnectionRequest subrutinen och skriv följande kod : .
P Om WinSock1 . State < > sckClosed ThenWinSock1.CloseEnd IfWinSock1.Accept requestID
kontroller för att se om Winsock kontrollen har etablerat en anslutning och i så fall stängs det det då accepterar förfrågningar från kunder för att etablera en ny anslutning .
5
Öppna WinSock1_DataArrival subrutinen och skriv följande kod :
Dim strData Som StringWinSock1.GetData strData , vbStringText1.Text = Text1.Text & strData
den första raden skapar en ny sträng variabel för att få inkommande data från klienten . Den andra raden styr Winsock kontrollen sparar data till variabeln . Den tredje raden lägger till nya data till en befintlig text i den första textrutan
6
Öppna Command1_Click subrutinen och skriv följande kod : .
WinSock1.SendData Text2.Text
Denna rad skickar helt enkelt information från den andra textrutan till klientprogrammet .
klientprogram
7
Öppna ett nytt Visual Basic-projekt . Dubbelklicka på Winsock kontroll , kommandoknappskontroll och textrutekontroll att lägga alla dessa i formuläret . Klicka och dra dem att ordna dem som du vill .
8
Dubbelklicka på formuläret för att öppna Form_Load subrutinen . Skriv följande kod :
WinSock1.RemoteHost = hostIPWinSock1.RemotePort = portNumberWinSock1.Connect
Dessa rader skicka en anslutning begäran till en server med hostip och värderingar portnummer . Ersätt detta med variabler som håller dessa värden eller med en sträng värde för hostip och ett heltal för portNumber . Använd till exempel " 127.0.0.1 " som värd värde , vilket är den lokala värden så att du kan testa ditt program på din lokala dator .
9
Öppna WinSock1_DataArrival subrutinen och skriv följande code :
Dim strData som StringWinSock1.GetData strData , vbStringText1.Text = Text1.Text & strData
Denna kod fungerar precis på samma sätt som uppgifterna ankomst subrutin för Winsock kontrollen i servern . program
10
Öppna Command1_Click subrutinen och skriv följande kod :
Dim MyArray ( 3 ) Som Stringmyarray ( 0 ) = " Denna " MyArray ( 1 ) = " , är " MyArray ( 2 ) = " my " MyArray ( 3 ) = " array " För i = 0 Till UBound ( MyArray ) WinSock1.SendData MyArray ( i) Nästa jag
. första fem linjer skapar en array med fyra snöre objekt och initierar varje värde . De kommande tre linjer löper en slinga som skickar varje objekt i arrayen en åt gången genom Winsock kontrollen till servern programmet . Du kan kopiera den här koden i servern för att skicka arrayer därifrån till klientprogrammet .
