El programa de envío y recepción remota vb más simple 》》》》》》》》》 y descripción del programa
Este es un programa de chat simple (implementado en VB6.0), que puede realizar comunicación en línea entre dos hosts en. En LAN. Chat, el programa es muy simple, sólo unas pocas docenas de líneas, pero "un gorrión es pequeño pero tiene todos los órganos internos". "El programa es muy simple, con sólo unas pocas docenas de líneas, pero ya tiene el marco general de un programa de chat. Si hacemos algunas mejoras, podemos crear un buen programa de chat pequeño.
Para Para facilitar el aprendizaje, se proporcionan comentarios chinos detallados en el código fuente. Consulte el código en el cuadro de código fuente:
Opción explícita
Privado Ignorar texto como booleano
'--------------------- Descripción de cada control---------------------- -- ----
'-Nombre ------------- Tipo --------------- Rol ---- -- ------------
'frmFormulario principal CHAT formulario principal
' Winsock1 Control de conexión Winsock
'Label1 etiqueta CONECTAR CON etiqueta IP
'Etiqueta Etiqueta2 Etiqueta de puerto LOCAL
'Etiqueta Etiqueta3 Etiqueta de puerto REMOTO
' cuadro de texto txtRemoteIP cuadro de entrada de dirección IP remota
'cuadro de texto txtLocalPort cuadro de entrada de puerto local
'cuadro de texto txtRemotePort cuadro de entrada de puerto remoto
'cmdConnect CommandButton conexión botón CONECTAR
'Label4 Texto de tipo de etiqueta y presione Enter para enviar.
etiqueta
'Frame1 (ip remota) marco REMOTE IP frame
'Frame2 (host ip) frame HOST IP frame
'El cuadro de texto Texto1 muestra la otra parte ( host remoto) Contenido del CHAT que se enviará
'Cuadro de texto Texto2, ingrese el contenido del CHAT que enviará su propio lado (host local), presione la tecla ENTER para enviar
'cmdClear El botón de comando borra el cuadro de entrada (TEXTO2) y el contenido del cuadro de visualización (TEXTO1)
'Barra de estado de la barra de estado StatusBar1
'------------ ---------- ------------------------------- -------
'Al presionar el botón CLEAR Cuando , borre el contenido de TEXT1 y TEXT2
Private Sub cmdClear_Click()
Text1 = ""
Con Text2
'Borrar cuadro de entrada
.Text = ""
'Y poner foco en TEXT2
.SetFocus
Finalizar con
End Sub
'Cuando se presiona el botón CONNECT, realice las siguientes operaciones
Private Sub cmdConnect_Click ()
En caso de error, GoTo ErrHandler
Con Winsock1
'Establecer propiedades de RemoteHost
.RemoteHost = Trim(txtRemoteIP)
'Establecer Propiedades de RemotePort<
' El valor de la propiedad RemotePort debe ser igual al valor de la propiedad LocalHost en el host remoto
.RemotePort = Trim(txtRemotePort)
'El valor de la propiedad LocalPort no se puede cambiar y se debe verificar para ver si se ha configurado
p>' Si la propiedad LocalPort está vacía (no configurada), configúrela con el valor ingresado en el cuadro de entrada LocalPort
Si .LocalPort = Vacío Entonces
LocalPort = Trim(txtLocalPort)
Frame2.Caption = .LocalIP
<. p> .Bind .LocalPort'Para comprobar
Finalizar si
Terminar con
'Para garantizar que los usuarios no puedan cambiar el valor de LocalPort, bloquee el cuadro de entrada txtLocalPort
txtLocalPort.
Bloqueado = Verdadero
'Mostrar estado "Conectando" en la barra de estado
StatusBar1.Panels(1).Text = " Conectado a " amp; a " & Winsock1.RemoteHandler.Text = " Conectado a " & Winsock1.RemoteHandler.Text = " Conectado a " &. Winsock1.RemoteHostamp;"
"Si la conexión es normal, realice la siguiente configuración
Frame1.Enabled = True
Frame2.Enabled = True
Label4.Visible = True
Text2.SetFocus