¡Los expertos de VB están aquí para ayudar!

Al crear una aplicación usando controles TCP, primero debe determinar si su programa actuará como servidor o cliente. Crear un programa del lado del servidor significa que su programa puede "escuchar" en un puerto específico, y los clientes pueden realizar solicitudes y el servidor puede aceptar solicitudes y establecer conexiones. Una vez establecida la conexión, el cliente y el servidor pueden comunicarse libremente.

Crear un programa del lado del servidor

Los siguientes son los pasos para crear un programa del lado del servidor simple:

Crear un proyecto EXE estándar

Cambie el nombre del formulario predeterminado a frmServer;

Cambie el título del formulario a TCP Server;

Introduzca el control Winsock en el formulario y asígnele el nombre tcpServer;

Agregue 2 cuadros de texto al formulario, llamados txtSendData y txtOutput' respectivamente.

Agregue el siguiente código al formulario;

Private Sub Form_Load()

' Establece la propiedad LocalPort en un número entero.

' Luego llame al método Listen.

tcpServer.LocalPort = 1001<

tcpServer.Listen

frmClient.Show ' Muestra el formulario del cliente.

End Sub

Private Sub tcpServer_ConnectionRequest _

( ByVal requestID As Long)

' Compruebe si el estado del control está cerrado .

'Si no, cierra la conexión antes de aceptar una nueva

'.

Si tcpServer.State <> sckClosed Entonces _

tcpServer.Close

' Acepta solicitudes con el parámetro requestID

'.

tcpServer.Accept requestID

End Sub

Private Sub txtSendData_Change()

' Control TextBox llamado txtSendData

' contiene los datos a enviar.

'Cada vez que el usuario escribe una cadena en el cuadro de texto, la cadena se envía utilizando el método SendData.

tcpServer.SendData txtSendData.Text

End Sub

Sub privado tcpServer_DataArrival _

(ByVal bytesTotal As Long)

' Declara una variable para los datos recibidos.

' Llame al método GetData y establezca la propiedad Text

' del cuadro de texto denominado txtOutput en

' los datos.

'Datos.

Atenuar strData como cadena

tcpServer.GetData strData

txtOutput.Text = strData