Com fer un programa de xat senzill a Visual Basic mitjançant el control de Microsoft Winsock: 7 passos

2024 Autora: John Day | [email protected]. Última modificació: 2024-01-30 08:16

En aquest instuctible us mostraré com fer un programa de xat senzill en Visual Basic. Aniré repassant el que fa tot el codi perquè aneu aprenent a mesura que el fabriqueu i, al final, us mostraré com utilitzar-lo.

Pas 1: Visió general

Projecte nou "," top ": 0.44341801385681295," left ": 0.2802690582959641," height ": 0.2632794457274827," width ": 0.5067264573991032}, {" noteID ":" NJL01ANFG0GJ54J "," author ":" twenglish1: "això és el que voleu seleccionar i feu clic a obre", "superior": 0.25635103926096997, "esquerra": 0.017937219730941704, "alçada": 0.22401847575057737, "amplada": 0.23542600896860988}] ">

Aquest programa us permetrà intercanviar missatges entre dues persones de la vostra mateixa xarxa. Pot funcionar si no esteu a la mateixa xarxa, però ara no el puc provar.

Haureu de tenir el Microsoft Visual Basic 6.0, això és el que estic fent servir. Es recomanen coneixements bàsics de programació Comencem !!! obriu Visual Basic i creeu un EXE estàndard

Pas 2: crear la infracció de l'usuari

Ara és hora de crear el formulari d'usuari

haureu d'afegir el control de winsock a la caixa d'eines: 1. Feu clic amb el botó dret del ratolí en algun lloc de la caixa d'eines on no hi hagi res. A continuació, feu clic a aplicar i tanqueu Afegeix: 5 quadres de text 4 botons de comandament 1 control de winsock organitzeu-los per tal que semblin la segona imatge següent

Pas 3: canvi de nom i altres canvis de propietat

ara canviarem els subtítols (el que es diu als botons d'ordres) 1. feu clic a command12. mireu a la dreta a les propietats i cerqueu Caption3. canvieu-lo a Host per la resta, però feu-los: command2 = Connectcommand3 = Closecommand4 = Sendnow canviarem el que diuen els quadres de text1. feu clic al quadre de text que diu text12. aneu a la finestra de propietats i cerqueu la propietat Text3. deixar-lo en blanc4. feu el mateix per al que diu Text25. ara feu clic a text3 i canvieu la propietat del text a 127.0.0.16. ara feu clic a text4 i canvieu la propietat del text a 12347. ara feu clic a text5 i canvieu la propietat del text a Name127.0.0.1 és la vostra IP local perquè pugueu provar el programa a l'ordinador quan el seu done1234 sigui el port que podeu fer voleu, però simplement deixeu-lo 1234 per ara

Pas 4: canviar els noms dels botons i dels quadres de text

hem de canviar el nom dels botons d’ordres i dels quadres de text per fer-los més fàcils de codificar

1. Feu clic a Text1 i aneu a les propietats, feu clic a nom i canvieu-lo a txtLog, he escollit això perquè és el registre de missatges que envieu i rebeu. 2. Feu el mateix per a la resta, però feu els noms: canvieu Text2 a txt Envieu el canvi Text3 a txt Canvi d’IP Text4 a txt Canvi de port Text5 a txt Canvi de nom Ordre1 a cmd Canvi d’ordre Comandament2 a cmdConnectar canvi Ordre3 a cmd Tancar canvi Ordre 4 a cmd Enviar canvi Winsock1 a sck Principalment ara hi ha una cosa més que heu de canviar feu clic a txtLog i a la finestra de propietats trobeu MultiLine i feu-lo cert, aquest pas pot causar certa confusió si teniu alguna pregunta que em publiqueu un comentari o un missatge

Pas 5: Codificació dels botons d’ordres

ara és hora d'escriure el codi per als botons de comandament que comencin pel primer cmdHost1. feu-hi doble clic, apareixerà la finestra del codi 2. hauria de ser així: Sub privat cmdHost_Click () End Sub3. introduïu aquest codesckMain. LocalPort = txtPort.textsckMain.listennow què significa això? la primera línia fa que el port local de winsocks sigui igual al número del quadre de text (txtPort); tanqueu-ho i feu doble clic a cmdConnectenter aquest codesckMain. RemoteHost = txtIP.textsckMain. RemotePort = txtPort.textsckMain. Connecteu les dues primeres línies canviant RemoteHost i RemotePort del winsock (sckMain) a la IP i al port que volem que el sckMain. per connectar-se amb algú que escolta en aquest port i ipnow per tancar el botó, feu doble clic a cmdClose i typesckMain.closetxtLog = txtLog.text & "Connexió tancada!" & vbCrlfthe sckMain.close diu al winsock que desconnecti la segona línia afegeix connexió tancada a txtLog feu doble clic a cmdSend i typesckMain.senddata "[" & txtName.text & "]" & txtSend.texttxtLog = txtLog.text & "[" & txtName. text & "]" & txtSend.text & vbcrlftxtSend.text = "" les dues primeres línies estan malament, les tinc a l'editor i les canvia quan les deso, així que mireu la imatge de la primera línia de codi correcta que envieu el text a txtSend i el vostre nom a txtNamesecond line afegeix el missatge que heu enviat i el vostre nom a txtLogthird line neteja el text de txtSend

Pas 6: Codificació del Winsock

ara és hora de codificar el winsock! li hem de dir què fer quan algú intenta connectar-se i hem de dir-li on posar les dades que rep, feu doble clic al control de winsock (sckMain) a l'extrem superior dret de al quadre de codi hauria de dir: error, feu clic al quadre desplegable i seleccioneu la sol·licitud de connexió ara hauria d'haver creat un lloc nou per introduir el codi allà, escriviu: Si sckMain.state sckClose thensckMain.closeend ifsckMain.accept requestidtxtLog = txtLog.text & "Connected to: "& sckMain. RemoteHostIP & vbcrlffirst i la primera línia comproven si el winsock (sckMain) està tancat i, si no, es tanca; en afegir una línia a txtLognow, hem de dir al winsock què ha de fer amb les dades que rep a la part superior dreta de la finestra del codi, feu clic al quadre desplegable i seleccioneu: DataArrival ara introduïu aquest codi: ten Dades com a cadenes de dades de cadena principal.getdata, vbstring txtLog = txtLog.text & data & vbcrlffirst primera línia converteix les dades en una cadena, on es posaran les dades que es reben abans que s’afegeixin a la línia txtLogsecond obté les dades i les col·loca a les dades de la cadena a mesura que s’afegeix una tercera línia les dades rebudes a txtLognow una vegada més si són confuses i teniu preguntes després de comentar-me o enviar-me un missatge

Pas 7: utilitzar el programa / conclusió

D'acord, ara us explicaré com utilitzar el programa

al fitxer de clic bàsic visual, feu project1.exe deseu-lo al vostre escriptori si hi ha algun error, deixeu un comentari i intentaré ajudar-vos a anar a on heu creat el programa i feu-hi doble clic dues vegades i apareixerien dos programes un clic amb l’amfitrió i, per l’altre, feu clic a connectar i en el que heu fet clic amb l’amfitrió hauria de dir: Connectat a: 127.0.0.1, ara escriviu un nom per a tots dos i podeu enviar missatges entre els dos podria funcionar a WAN, però no estic segur de deixar-me comentaris per fer-me saber com ho vaig fer o si teniu preguntes o si us ve de gust si us va agradar o no us va agradar