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.