Cómo hacer un programa de chat simple en Visual Basic usando Microsoft Winsock Control: 7 pasos

2024 Autor: John Day | [email protected]. Última modificación: 2024-01-30 08:44

En este instuctable te mostraré cómo hacer un programa de chat simple en visual basic. Voy a repasar lo que hace todo el código para que aprendas a medida que lo haces, y al final te mostraré cómo usarlo.

Paso 1: descripción general

New Project "," top ": 0.44341801385681295," left ": 0.2802690582959641," height ": 0.2632794457274827," width ": 0.5067264573991032}, {" noteID ":" NJL01ANFG0GJ54J "," author ":" twenglish1 ",": "esto es lo que desea seleccionar y luego haga clic en abrir", "arriba": 0.25635103926096997, "izquierda": 0.017937219730941704, "altura": 0.22401847575057737, "ancho": 0.23542600896860988}] ">

Este programa te permitirá intercambiar mensajes entre dos personas en tu misma red. Puede funcionar si no está en la misma red, pero no puedo probarlo ahora.

Debería tener Microsoft Visual Basic 6.0, eso es lo que estoy usando. Se recomiendan conocimientos básicos de programación ¡¡¡Comencemos !!! abrir visual basic y crear un EXE estándar

Paso 2: creación de la referencia de usuario

Ahora es el momento de crear el formulario de usuario.

deberá agregar el control winsock a la caja de herramientas para hacer esto: 1. haga clic con el botón derecho en algún lugar de la caja de herramientas donde no haya nada 2. haga clic en Componentes 3. en la lista larga busque Microsoft Winsock Control 6.0 y marque la casilla junto a él 4. luego haga clic en Aplicar y luego cerrar Agregar: 5 cuadros de texto 4 botones de comando 1 control winsock organizarlos para que se vean como la segunda imagen a continuación

Paso 3: cambio de nombre y otros cambios de propiedad

ahora vamos a cambiar los subtítulos (lo que se dice en los botones de comando) 1. haga clic en comando 12. mire en el lado derecho en las propiedades y busque Caption3. cámbielo a Hosthaga lo mismo para el resto pero hágalos: command2 = Connectcommand3 = Closecommand4 = Send Now vamos a cambiar lo que dicen los cuadros de texto1. haga clic en el cuadro de texto que dice text12. vaya a la ventana de propiedades y busque la propiedad Text3. déjelo en blanco 4. haz lo mismo con el que dice Text25. ahora haga clic en text3 y cambie la propiedad de texto a 127.0.0.16. ahora haga clic en text4 y cambie la propiedad de texto a 12347. quiero pero déjalo 1234 por ahora

Paso 4: cambiar los nombres de los botones y cuadros de texto

Necesitamos cambiar el nombre de los botones de comando y los cuadros de texto para que sean más fáciles de codificar.

1. haga clic en Text1 y vaya a las propiedades y haga clic en el nombre y cámbielo a txtLog. Lo elegí porque es el registro de mensajes que envía y recibe 2. haga lo mismo para el resto pero haga los nombres: cambie Text2 a txtSend change Text3 a txtIP cambie Text4 a txtPort cambie Text5 a txtName cambie Command1 a cmdHost cambie Command2 a cmdConnect cambie Command3 a cmdClose cambie Command4 a cmdSend cambie Winsock1 a sckMain ahora hay una cosa más que necesita para cambiar haga clic en txtLog y en la ventana de propiedades busque MultiLine y haga que este paso sea cierto, puede causar cierta confusión si tiene alguna pregunta, publique un comentario o envíeme un mensaje.

Paso 5: codificación de los botones de comando

ahora es el momento de escribir el código para los botones de comando, que comiencen con el primero cmdHost1. haga doble clic en él, esto abrirá la ventana de código 2. debería verse asíPrivate Sub cmdHost_Click () End Sub3. ingrese este códigockMain. LocalPort = txtPort.textsckMain.listennow ¿qué significa eso? Ciérralo y haz doble clic en cmd Conecta, ingresa este códigockMain. RemoteHost = txtIP.textsckMain. RemotePort = txtPort.textsckMain. Connectlas primeras dos líneas cambian el RemoteHost y el RemotePort del winsock (sckMain) a la ip y al puerto que queremos que el sckMain lo indique. para conectarse con alguien que esté escuchando en ese puerto e ipnow para el botón de cierre, haga doble clic en cmdClose y typesckMain.closetxtLog = txtLog.text & "¡Conexión cerrada!" & vbCrlfthe sckMain.close le dice al winsock que se desconecte; la segunda línea agrega Conexión cerrada a txtLog, haga doble clic en cmdSend y escribackMain.senddata "[" & txtName.text & "]" & txtSend.texttxtLog = txtLog.text & "[" & txtName. text & "]" & txtSend.text & vbcrlftxtSend.text = "" las dos primeras líneas son incorrectas, las tengo correctas en el editor y las cambia cuando las guardo, así que mira la imagen para ver el código correcto, la primera línea envía el texto en txtSend y su nombre en txtNameSegunda línea agrega el mensaje que envió y su nombre a txtLogLa tercera línea borra el texto en txtSend

Paso 6: codificación del Winsock

¡Ahora es el momento de codificar el winsock! Necesitamos decirle qué hacer cuando alguien intenta conectarse y necesitamos decirle dónde poner los datos que recibe, haga doble clic en el control winsock (sckMain) en la esquina superior derecha de el cuadro de código debe decir: error haga clic en el cuadro desplegable y seleccione la solicitud de conexión ahora debería haber creado un nuevo lugar para ingresar el código allí escriba: If sckMain.state sckClose thensckMain.closeend ifsckMain.accept requestidtxtLog = txtLog.text & "Conectado a: "& sckMain. RemoteHostIP & vbcrlffirst y las segundas líneas comprueban si el winsock (sckMain) está cerrado y si no lo está, entonces lo cierra. agregando una línea a txtLog ahora necesitamos decirle al winsock qué hacer con los datos que recibe en la parte superior derecha de la ventana de código, haga clic en el cuadro desplegable y seleccione: DataArrival ahora ingrese este código: dim Data as stringsckMain.getdata Data, vbstring txtLog = txtLog.text & data & vbcrlffirst line convierte los datos en una cadena, la picadura es donde se colocarán los datos que se reciben antes de que se agreguen a txtLog la segunda línea obtiene los datos y los coloca en la cadena de datos como un vbstringtercera línea agrega los datos recibidos en txtLognow una vez más si es confuso y tiene preguntas, publique un comentario o envíeme un mensaje

Paso 7: Uso del programa / Conclusión

ok ahora te voy a decir como usar el programa

en el archivo de clic visual básico, luego haga que project1.exe guárdelo en su escritorio si hay algún error, deje un comentario e intentaré ayudarlo ahora a ir a donde hizo el programa y hacer doble clic en él dos veces y dos programas deberían aparecer en un clic en el host y en el otro, haga clic en conectar y en el que hizo clic en el host debe decir: Conectado a: 127.0.0.1 ahora escriba un nombre para ambos y puede enviar mensajes entre los dos, funciona en LAN y Podría funcionar en WAN, pero no estoy seguro. Deje comentarios para informarme cómo lo hice o si tiene preguntas o si simplemente le apetece, si le gustó o no, califíquelo.