Come creare un semplice programma di chat in Visual Basic utilizzando il controllo Microsoft Winsock: 7 passaggi

2024 Autore: John Day | [email protected]. Ultima modifica: 2024-01-30 10:05

In questo tutorial ti mostrerò come realizzare un semplice programma di chat in visual basic. esaminerò cosa fa tutto il codice così imparerai mentre lo crei e alla fine ti mostrerò come usarlo.

Passaggio 1: Panoramica

Nuovo progetto", "top":0.44341801385681295, "left":0.2802690582959641, "height":0.2632794457274827, "width":0.5067264573991032}, {"noteID":"NJL01ANFG0GJ54J", "author":"twenglish1", "text":"questo è quello che vuoi selezionare quindi fai clic su apri", "top":0.25635103926096997, "left":0.017937219730941704, "height":0.22401847575057737, "width":0.23542600896860988}]">

Questo programma ti consentirà di scambiare messaggi tra due persone sulla stessa rete. Potrebbe funzionare se non sei sulla stessa rete, ma non posso testarlo ora.

Dovresti avere Microsoft Visual Basic 6.0, questo è quello che sto usando. Si raccomanda una conoscenza di base della programmazione Cominciamo!!! apri visual basic e crea un EXE standard

Passaggio 2: creazione dell'infrazione per l'utente

Ora è il momento di creare il modulo utente

sarà necessario aggiungere il controllo Winsock alla casella degli strumenti: 1. fare clic con il pulsante destro del mouse in un punto della casella degli strumenti in cui non c'è nulla 2. fare clic su Componenti 3. nell'elenco lungo trovare Microsoft Winsock Control 6.0 e selezionare la casella accanto ad esso 4 quindi fare clic su applica quindi chiudi Aggiungi: 5 caselle di testo 4 pulsanti di comando 1 controllo winsock disponili in modo che assomiglino alla seconda immagine qui sotto

Passaggio 3: ridenominazione e altre modifiche alle proprietà

ora andremo a modificare le didascalie (ciò che viene detto nei pulsanti di comando)1. fare clic su comando12. guarda a destra nelle proprietà e trova Caption3. cambialo in Hostdo lo stesso per il resto ma rendili:comando2 = Connectcommand3 = Closecommand4 = Sendnow cambieremo ciò che dicono le caselle di testo1. fare clic sulla casella di testo che dice text12. vai alla finestra delle proprietà e trova la proprietà Text3. renderlo vuoto4. fai lo stesso per quello che dice Text25. ora fai clic su text3 e modifica la proprietà text in 127.0.0.16. ora fai clic su text4 e cambia la proprietà text in 12347. ora fai clic su text5 e cambia la proprietà text in Name127.0.0.1 è il tuo IP locale in modo da poter testare il programma sul tuo computer quando è finito1234 è la porta che puoi fare qualunque cosa tu voglio ma lascialo solo 1234 per ora

Passaggio 4: modifica dei nomi dei pulsanti e delle caselle di testo

dobbiamo rinominare i pulsanti di comando e le caselle di testo per renderli più facili da codificare

1. fai clic su Text1 e vai alle proprietà e fai clic su nome e cambialo in txtLog ho scelto quello perché è il registro dei messaggi che invii e ricevi 2. fai lo stesso per il resto ma fai i nomi: cambia Text2 in txtSend change Text3 in txtIP cambia Text4 in txtPort cambia Text5 in txtName cambia Command1 in cmdHost cambia Command2 in cmdConnect cambia Command3 in cmdClose cambia Command 4 in cmdSend cambia Winsock1 in sckMain ora c'è un'altra cosa che devi cambiare fai clic su txtLog e nella finestra delle proprietà trova MultiLine e rendilo vero questo passaggio può causare confusione se hai domande, pubblica un commento o inviami un messaggio

Passaggio 5: codifica dei pulsanti di comando

ora è il momento di scrivere il codice per i pulsanti di comando che iniziano con il primo cmdHost1. fare doppio clic su di esso, questo farà apparire la finestra del codice2. dovrebbe assomigliare a questoPrivate Sub cmdHost_Click()End Sub3. inserisci questo codiceckMain. LocalPort = txtPort.textsckMain.listennow cosa significa? chiudilo e fai doppio clic su cmdConnectenter this codesckMain. RemoteHost = txtIP.textsckMain. RemotePort = txtPort.textsckMain. Connect le prime due righe cambiano RemoteHost e RemotePort del winsock (sckMain) con l'ip e la porta che vogliamo lo sckMain. Connect lo dice per connetterti a qualcuno in ascolto su quella porta e ipnow per il pulsante di chiusura fai doppio clic su cmdClose e digitackMain.closetxtLog = txtLog.text & "Connessione chiusa!" & vbCrlflo sckMain.close dice al winsock di disconnettersi la seconda riga aggiunge Connection closed a txtLog fare doppio clic su cmdSend e digitareckMain.senddata "[" & txtName.text & "]" & txtSend.texttxtLog = txtLog.text & "[" & txtName. text & "]" & txtSend.text & vbcrlftxtSend.text = ""le prime due righe sono sbagliate le ho proprio nell'editor e le cambia quando salvo quindi guarda l'immagine per il codice giusto la prima riga invia il testo txtSend e il tuo nome in txtNameseconda riga aggiunge il messaggio che hai inviato e il tuo nome in txtLogterza riga cancella il testo in txtSend

Passaggio 6: codificare il Winsock

ora è il momento di codificare il winsock! dobbiamo dirgli cosa fare quando qualcuno tenta di connettersi e dobbiamo dirgli dove mettere i dati che riceveok fare doppio clic sul controllo winsock (sckMain) nell'angolo in alto a destra di la casella del codice dovrebbe dire: errore fare clic sulla casella a discesa e selezionare richiesta di connessione ora dovrebbe aver creato un nuovo posto per inserire il codice lì tipo: If sckMain.state sckClose thensckMain.closeend ifsckMain.accept requestidtxtLog = txtLog.text & "Connected to: " & sckMain. RemoteHostIP & vbcrlf prima e seconda riga controllano se il winsock (sckMain) è chiuso e se non lo è lo chiude la terza riga chiude l'istruzione if la quarta riga dice al winsock (sckMain) di accettare le connessioni la quinta riga ti dice che sei connesso aggiungendo una riga a txtLognow dobbiamo dire al winsock cosa fare con i dati che riceve in alto a destra nella finestra del codice fare clic sulla casella a discesa e selezionare: DataArrivalnow inserisci questo codice: dim Data as stringsckMain.getdata Data, vbstring txtLog = txtLog.text & data & vbcrlfla prima riga rende i dati una stringa la stringa è dove i dati ricevuti verranno inseriti prima di essere aggiunti a txtLogseconda riga ottiene i dati e li inserisce nella stringa data come vbstringla terza riga aggiunge i dati ricevuti su txtLognow ancora una volta se è confuso e hai domande, pubblica un commento o inviami un messaggio

Passaggio 7: utilizzo del programma/conclusione

ok ora ti spiego come usare il programma

in Visual Basic fai clic sul file quindi fai in modo che project1.exe lo salvi sul desktop se ci sono errori lascia un commento e cercherò di aiutarti ora vai dove hai creato il programma e fai doppio clic due volte e due programmi dovrebbero apparire su un clic su host e sull'altro clic su Connetti e su quello su cui hai fatto clic su host dovrebbe dire: Connected to: 127.0.0.1 ora digita un nome per entrambi e puoi inviare messaggi tra i due funziona su LAN e potrebbe funzionare su WAN ma non sono sicuro di lasciare commenti per farmi sapere come ho fatto o se hai domande o se ti va se ti è piaciuto o non ti è piaciuto votalo