El control Winsock en Visual Basic 6 le permite crear programas que establecen conexiones entre sí a través de una red, con un programa que actúa como servidor y otro como cliente. El control Winsock tiene varios métodos utilizados para la conexión , enviar y recibir datos . Puede utilizar los datos literales , información de los cuadros de texto o incluso variables para pasar información . Sin embargo, como arrays utiliza índices y tienen varios elementos de datos , pasando estas obras un poco diferente de pasar otros tipos de datos . Instrucciones DeCS Server Program
1

Abra un nuevo proyecto de Visual Basic . Haga clic en " proyecto" en el menú y luego haga clic en " Componentes ". Desplácese hacia abajo en el cuadro de diálogo , haga clic en el " Microsoft Winsock Control 6.0 " caja para poner una marca en él, a continuación, haga clic en " OK" botón.
2

doble clic en el control Winsock en la caja de herramientas para agregarlo al formulario. También haga doble clic en el control CommandButton y el control TextBox dos veces para agregar estos tres controles al formulario . Haga clic y arrastre para organizarlos como desee .
3

doble clic en el formulario para abrir el subprograma Form_Load . Escriba el siguiente código:

WinSock1.LocalPort = portNumberWinSock1.Listen

Cuando el programa servidor se ejecuta , este código abre el winsock y espera una conexión de cliente en el número de puerto proporcionado. O bien utilizar una variable para establecer un número de puerto o escriba directamente un número entero , como el puerto 21 o 22
4

Abra el subprograma WinSock1_ConnectionRequest y escriba el código siguiente : .

Si Winsock1 . Estado < > sckClosed ThenWinSock1.CloseEnd IfWinSock1.Accept requestID

Esto comprueba para ver si el control winsock ha establecido una conexión y si es así , se cierra entonces acepta solicitudes de los clientes para establecer una nueva conexión.
5

Abra el subprograma WinSock1_DataArrival y escriba el siguiente código:

strData As StringWinSock1.GetData strData , vbStringText1.Text = Text1.Text y strData

la primera línea crea una nueva variable de cadena para obtener los datos de entrada desde el cliente . La segunda línea indica al control de winsock guarda los datos en la variable. La tercera línea anexa los nuevos datos en el texto existente en el primer cuadro de texto
6

Abrir la subrutina Command1_Click y escriba el siguiente código : .

WinSock1.SendData Text2.Text

Esta línea se limita a enviar la información de la segunda caja de texto para el programa cliente.
cliente programa
7

Abra un nuevo proyecto de Visual Basic . Haga doble clic en el control Winsock , control CommandButton y control TextBox para agregar cada una de ellas a la forma . Haga clic y arrastre para organizarlos como desee .
8

doble clic en el formulario para abrir el subprograma Form_Load . Escriba el siguiente código:

WinSock1.RemoteHost = hostIPWinSock1.RemotePort = portNumberWinSock1.Connect

Estas líneas enviar una solicitud de conexión a un servidor mediante el HostIP y los valores portNumber . Reemplazar esta con variables que contienen estos valores o con un valor de cadena para el HostIP y un entero para el portNumber . Por ejemplo, utilice "127.0.0.1 " como el valor de acogida , que es el host local para que pueda probar el programa en el equipo local.
9

Abra el subprograma WinSock1_DataArrival y escriba lo siguiente código :

strData As StringWinSock1.GetData strData , vbStringText1.Text = Text1.Text y strData

Este código funciona exactamente igual que la subrutina llegada de datos del control winsock en el servidor . programa
10

Abra el subprograma Command1_Click y escriba el siguiente código: Dim

myarray ( 3 ) Como Stringmyarray ( 0 ) = "Este " myarray ( 1 ) = " , es " myarray ( 2 ) =" mi " myarray ( 3 ) = " array " For i = 0 To UBound ( myarray ) WinSock1.SendData myarray ( i ) siguiente i

. primero cinco líneas crean una matriz con cuatro elementos de cuerda y se inicializa cada valor. Las siguientes tres líneas corren un bucle que envía cada elemento de la matriz de uno en uno a través del control Winsock para el programa servidor . Puede duplicar este código en el programa de servidor para enviar conjuntos de ahí al programa cliente.