Aprire un nuovo progetto di Visual Basic . Fare clic su "Progetto" nel menu e quindi fare clic su " Componenti ". Scorrere verso il basso nella finestra di dialogo , quindi fare clic sulla casella "Microsoft Winsock Control 6.0 " per mettere un controllo in esso, quindi fare clic su "OK" pulsante .
2
Fare doppio clic sul controllo Winsock nella casella degli strumenti per aggiungere al modulo . Inoltre, fare doppio clic sul controllo CommandButton e il controllo TextBox due volte per aggiungere questi tre controlli al form . Fare clic e trascinare per disporle come si vorrebbe .
3 Fare doppio clic sul form per aprire la subroutine Form_Load . Digitare il seguente codice :
Winsock1.LocalPort = portNumberWinSock1.Listen
Quando il programma server viene eseguito , questo codice si apre il winsock e ascolto per una connessione client al numero di porta in dotazione. Utilizzare una variabile per impostare un numero di porta o digitare direttamente un numero intero, come ad esempio la porta 21 o 22
4
Aprire la subroutine WinSock1_ConnectionRequest e digitare il seguente codice : .
Winsock1 . State < > sckClosed ThenWinSock1.CloseEnd IfWinSock1.Accept requestID
controlli per vedere se il controllo Winsock ha stabilito una connessione e se è così , si chiude poi accetta richieste dai client per stabilire una nuova connessione .
5
Aprire la subroutine WinSock1_DataArrival e digitare il seguente codice: Dim
strData Come StringWinSock1.GetData strData , vbStringText1.Text = Text1.Text & strData
la prima riga crea una nuova variabile stringa per ottenere dati in arrivo dal client . La seconda linea dirige il controllo Winsock salva i dati alla variabile . La terza riga aggiunge i nuovi dati a qualsiasi testo esistente nella prima casella di testo
6
Aprire la subroutine Command1_Click e digitare il seguente codice : .
WinSock1.SendData Text2.Text
Questa linea trasmette semplicemente informazioni dalla seconda casella di testo per il programma client .
client programma
7
Aprire un nuovo progetto di Visual Basic . Fare doppio clic sul controllo Winsock , il controllo CommandButton e controllo TextBox per aggiungere ciascuno di questi per la forma . Fare clic e trascinare loro di sistemarli come si vorrebbe .
8
Fare doppio clic sul form per aprire la subroutine Form_Load . Digitare il seguente codice :
WinSock1.RemoteHost = hostIPWinSock1.RemotePort = portNumberWinSock1.Connect
Queste righe mandano una richiesta di connessione a un server utilizzando i valori portNumber IP_computer e . Sostituire questo con le variabili che contengono questi valori o con un valore di stringa per la IP_computer e un intero per il portNumber . Ad esempio , usare " 127.0.0.1 " come valore di accoglienza, che è l'host locale in modo da poter testare il programma sul tuo computer locale .
9
Aprire la subroutine WinSock1_DataArrival e digitare il seguente codice :
Dim strData come StringWinSock1.GetData strData , vbStringText1.Text = Text1.Text & strData
Questo codice funziona esattamente come la subroutine arrivo dei dati per il controllo Winsock nel server . programma
10
Aprire la subroutine Command1_Click e digitare il seguente codice: Dim
myarray ( 3) Come Stringmyarray ( 0 ) = " Questa " myarray ( 1 ) = " , è " myarray ( 2) = " mio " myarray ( 3) = " matrice " For i = 0 To UBound ( myarray ) WinSock1.SendData myarray ( i) Next i
. prime cinque righe creano una matrice con quattro oggetti stringa e inizializza ogni valore . Le prossime tre righe gestiscono un ciclo che invia ogni elemento un array alla volta attraverso il controllo Winsock per il programma server . È possibile applicare questo codice nel programma server per inviare gli array da lì al programma client .
Programmazione © www.354353.com