Transferencia de archivos VB WINSOCK1. Cree un nuevo archivo EXE estándar; 2. Agregue un control Winsock 3. Agregue el siguiente código: Private Sub Form Load() tcpServer.LocalPort = 1001 tcpServer. Localhost = "servidor" tcpServer.RemotePort = 1002 tcpServer.Localhost = "servidor". Si tcpServer.State lt;gt; sckClosed Entonces tcpServer.Close tcpServer.Accept requestID End Sub ′ Enviar datos Private Sub frmserver monsemove(x,y) tcpServer.SendData ″x″gt entonces sckClosed Entonces tcpServer.Close tcpServer.Accept requestID End Sub; ′ Enviar datos Private Sub frmserver monsemove(x, y) tcpServer.SendData ″x″gt; sckClosed Luego tcpServer.Close tcpServer.Accept requestID End SubSendData ″x″amp; y) End Sub 1. Cree un nuevo archivo EXE estándar; 2. Agregue un control Winsock; 3. Agregue dos cuadros de texto: txt x y txt y 4. Agregue el siguiente código: Private Sub Form Load() tcpServer =. 1002 tcpServer.Localhost = ″klint″ tcpServer.remotePort = 1001 tcpServer.Localhost = ″klint″ 5.Localhost = ″servser″ tcpServer.Listen End Sub ′ Verificación de conexión Sub privada tcpklint ConnectionRequest (ByVal requestID As Long) Si tcpklint Estado l. = strData endif End Sub La rutina anterior implementa una comunicación punto a punto muy simple. La rutina anterior implementa una comunicación punto a punto muy simple. Sobre esta base, con ligeras modificaciones, se puede formar una red informática compleja en tiempo real A-Un sistema de comunicación interactivo para control, simulación de gráficos, etc.
El método para establecer una comunicación punto a punto utilizando el protocolo UDP es ligeramente diferente del método para establecer una comunicación cliente/servidor utilizando TCP. No requiere establecer un cliente y un servidor, pero establece una comunicación punto a punto. el atributo RemoteHost de Winsock al nombre de la computadora que se comunica. 2. RemotePort se establece en el número de interfaz. 3. Llame al evento Bind de Winsock para vincular la interfaz local; Llame al evento Bind de Winsock para vincular la interfaz local. Las configuraciones específicas son Private Sub Form Load() With Winsock1 .RemoteHost= ″PeerB″ .RemotePort = 1001 ′RemoteConnectionNo.′ .Bind 1002 ′BindLocalNo.′ End With End Sub