Código fuente de la herramienta de chat de red de área local escrito en VB

Cómo utilizar VB para crear un programa de chat

---- El llamado "chat" significa que dos programas pueden enviarse datos entre sí. Este programa implica conocimientos de comunicación de datos, lo que parece muy complicado. Sin embargo, como VB nos proporciona un control Winsock, el problema se vuelve muy sencillo.

---- Primero escribe el programa "Chat (Host)". Agregue el control Winsock al formulario, establezca su propiedad Protocolo en 1-SckUDPProtocol y establezca otras propiedades en los valores predeterminados. Luego agregue dos etiquetas y dos cuadros de texto, y establezca los atributos de título de las dos etiquetas en "ventana de recepción" y "ventana de envío" respectivamente, los atributos de título de los dos cuadros de texto están vacíos. Finalmente escribe el código:

---- 1."Chat (Host)"

Private Sub Form-Load()

′Establecer dirección de red

Winsock1.LocalPort=1024

Winsock1.RemoteHost="202.96.6.1"

Winsock1.RemotePort=1999

End Sub

Subtexto privado1-Change()

′Enviar entrada del usuario

Winsock1.SendData Text1.Text

End Sub

Private Sub Winsock1-DataArrival

(Byval bytesTotal As Long)

Dim rec As String

′Recibir los datos de la otra parte y mostrarlos en el cuadro de texto

Winsock1.GetData rec, vb String

Text2.Text=rec

End Sub

---- 2 ."Chat (máquina secundaria)"

Private Sub Form_Load()

'Establecer la dirección de red

Winsock1.LocalPort=1999

Winsock1.RemoteHost= "202.96.6.1"

Winsock1.RemotePort=1024

---- Otras partes del programa son iguales que (host). Finalmente, guarde los dos programas y compílelos en archivos de ejecución (.Exe). Ahora puedes tener conversaciones usando esta aplicación.

---- 7. Método para resaltar un carácter específico o una cadena de texto en el cuadro de texto al mismo tiempo

---- Dado que el control TextBox normal no admite discontinuidad La cadena se resalta al mismo tiempo, por lo que seleccionamos el control RichTextBox. Haga clic en el elemento del menú Proyecto, haga clic en el elemento del menú Componentes en el menú desplegable emergente, seleccione la casilla de verificación Microsoft Rich Textbox Control 5.0 en el cuadro de diálogo emergente y confirme para cargar el control RichTextBox.

---- Cree un nuevo proyecto, agregue un control RichTextBox y dos controles Comando (botón) en el formulario, ambos usando el valor de propiedad Nombre predeterminado del sistema establezca RichTextBox. El valor del atributo Texto está vacío; y los valores del atributo Título de Comando1 y Comando2 se establecen en "Ingresar texto" y "Seleccionar cadena" respectivamente.

Finalmente, agregue el siguiente código VB:

Private Sub Command1-Click()

Dim str As String

Dim Text As String

str=〃Texto de entrada〃

Texto=InputBox(str)

RichTextBox1.Text=Text

End Sub

Sub privado Command2 -Click()

Atenuar cadena como cadena

Atenuar texto como cadena

Atenuar posición como entero

Atenuar longitud como entero< / p>

str=〃Ingrese la cadena a resaltar〃

Text=InputBox(str)

Si Texto 〈〉 〃〃 Entonces

Posición=InStr(RichTextBox1.Text, Texto)-1

Lenth=Len(Text)

RichTextBox1.SelStart=Posición

RichTextBox1.SelLength=Lenth

RichTextBox1.SelColor=RGB(255,0,0)

Hacer mientras InStr(Position＋Lenth＋

1, RichTextBox1.Text, Text) 〈〉 0< / p>

Posición=InStr(Posición+Lenth+

1, RichTextBox1.Text, Texto)-1

RichTextBox1.SelStart=Posición

RichTextBox1. SelLength =Lenth

RichTextBox1.SelColor=RGB(255,0,0)

Bucle

Finalizar si

Fin Sub

---- Presione F5 para ejecutar el programa, haga clic en el botón "Ingresar texto" e ingrese algo de texto en el cuadro de diálogo emergente. Después de la confirmación, el texto que acaba de ingresar se mostrará en RichTextBox; luego haga clic en el botón "Seleccionar cadena de caracteres", ingrese la cadena que desea resaltar en el cuadro de diálogo emergente. Después de la confirmación, la cadena correspondiente en RichTextBox se resaltará en rojo.

---- 8. Método de programación para implementar el arranque en caliente del sistema operativo Windows 95/98

---- Para utilizar un programa para reiniciar el sistema, puedes programarlo en su programa Para lograr esto, llame a la función API.

Cree una subfunción: (Tome VB como ejemplo)

Declare Function SystemParametersInfo Lib 〃

user32〃 Alias ​​​​-

〃SystemParametersInfo〃 (ByVal uAction Mientras,

ByVal uParam Mientras,

ByVal lpvParam Como Cualquiera, ByVal

fuWinIni Mientras) Mientras

Sub DisableCtrlAltDelete(bDisabled As Boolean)

Dim X As Long

X=SystemParametersInfo(97, bDisabled, CStr(1), 0)

End Sub

Llamar a DisableCtrlAltDelete(true) ′Desactivar arranque en caliente

Llamar a DisableCtrlAltDelete(false) ′Permitir arranque en caliente

---- 9. Iniciar automáticamente el programa después de Windows 95 Método de inicio /98

---- Todos sabemos que hay un elemento de menú "Inicio" en el menú "Inicio" → "Programas" de Windows 95/98 cada vez que Windows 95 o Windows 98. Después de iniciar, el sistema iniciará automáticamente los programas ejecutables ubicados en la barra de menú "Inicio".

---- Sin embargo, actualmente existen muchos programas, como Jieba 5, ICQ y la mayoría de los programas de detección de virus en tiempo real, etc. Después de la instalación, no se colocan en el menú "Inicio". , ni puede iniciarse automáticamente al iniciar el sistema operativo. ¿Cómo se logra?

---- De hecho, siempre que tenga algunos conocimientos sobre el registro de Windows, este problema no puede considerarse un problema. Haga clic en "Inicio" con el mouse para abrir el menú de inicio, luego haga clic en "Ejecutar", aparecerá un cuadro de diálogo y luego ingrese "regedit". Después de la confirmación, se abrirá el editor de registro del sistema y encontrará HKEY-LOCAL-MACHINE. ?Microsoft?Windows?CurrentVersion?Ejecute, agregue la entrada a su programa y listo. Si no sabe cómo agregarlo, simplemente consulte los valores clave existentes.

---- 10. ¿Cómo enviar el archivo de datos al control Texto? Si la cantidad de datos es relativamente grande y el formulario no es lo suficientemente grande como para llenar la pantalla, ¿cómo solucionarlo?

---- Un método relativamente simple es colocar los datos en un cuadro de texto (Texto) y agregarle barras de desplazamiento horizontales y verticales.

Los pasos de implementación específicos son: primero agregar un cuadro de texto al formulario (Formulario), usando el nombre predeterminado Texto1, luego establecer las propiedades del cuadro de texto Texto1: la propiedad Texto está configurada como vacía, la propiedad MultiLine está configurada como Verdadero; y la propiedad ScrollBars está establecida en 3. Ambos, luego agregue el siguiente código VB:

Private Sub Form-Load()

Dim Handle As Integer

Dim FileName As String

En caso de error, Ir a ErrExit

comenzar:

′Ingrese el nombre del archivo de datos que se mostrará

FileName=InputBox＄(〃Input Filename〃,

〃Abrir archivo〃)

En caso de error Ir a FileErr

Handle=FreeFile

Abra el nombre del archivo para ingresar como #Handle

'Envíe los datos del archivo de datos al cuadro de texto

Text1.Text=Input$(LOF(Handle), Handle)

Cerrar #Handle

Salir de Sub

FileErr:

Atenuar ErrNum como entero

Si Err.Number=53 entonces

ErrNum=MsgBox(〃El archivo no existe〃,

vbOKCancel, 〃Información de error〃)

Si ErrNum=1 Entonces

Ir a comenzar

Else

Salir de Sub

Fin si

Fin si

MsgBox Err.Description, , 〃error al abrir archivo〃

ErrExit:

Salir de Sub

End Sub

′Haga que el cuadro de texto llene todo el formulario

Subformulario privado-Resize()

Text1.Left=0

Text1.Top=0

Text1.Width=Form1.Width －100

Text1.Height=Form1 .Height－400

End Sub

---- A través de dicho procesamiento, no solo se puede resolver el problema, pero el usuario también puede editar los datos en el cuadro de texto.

---- 11. Métodos para asociar el cuadro de lista de archivos, el cuadro de lista de directorios y el cuadro de lista de unidades

---- Quiero crear un formulario de diálogo que incluya un cuadro de lista de unidades , cuadro de lista de directorio y cuadro de lista de archivos, y puede realizar la operación de sincronización de los tres. Estos son problemas que encontramos a menudo en aplicaciones prácticas. Es muy sencillo resolver este problema en VB. Se puede lograr activando el evento Cambiar cambiando el atributo Ruta. Por ejemplo:

Sub Dir1-Change()

File1.Path=Dir1.Path

End Sub

---- El procedimiento de evento sincroniza el cuadro de lista de directorio Dir1 y el cuadro de lista de archivos Archivo1 en el formulario. Debido a que los cambios en el atributo Ruta del cuadro de lista del directorio generarán un evento de cambio, durante el evento Dir1-Change, asignar Dir1.Path a File1.Path puede producir un efecto de sincronización.

De manera similar, al agregar el siguiente procedimiento de evento, los tres cuadros de lista pueden operar sincrónicamente:

Sub Drive1-Change()

Dir1.Path=Drive1.Drive

End Sub

---- Este proceso sincroniza el cuadro de lista de unidades y el cuadro de lista de directorios. El proceso anterior sincroniza el cuadro de lista de directorios y el cuadro de lista de archivos, sincronizando así los tres cuadros de lista. se puede solucionar.