SERVIDOR

‘Botón activar servidor, lee el puerto local y escucha

Private Sub Command1_Click()

puerto = Text1.Text

Winsock1.LocalPort = puerto

Winsock1.Listen

End Sub

‘Boton enviar añade en el texto de arriba el contenido del texto de abajo y envia los datos

Private Sub Command2_Click()

Text2.Text = Text2.Text & vbCrLf & Text3.Text

Winsock1.SendData Text3.Text

End Sub

‘ Si recibe una petición de conexión la acepta

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)

If Winsock1.State <> sckClosed Then Winsock1.Close

Winsock1.Accept requestID

End Sub

‘Si recibe un mensaje los introduce en la variable data y los añade en el cuadro de texto superior

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)

Winsock1.GetData Data, vbString, 12

Text2.Text = Text2.Text & vbCrLf & Data

End Sub

CLIENTE

‘leo la dirección y el puerto por donde escucha el host y conecto

Private Sub Command1_Click()

host = Text1.Text

puerto = Text2.Text

Winsock1.Connect host, puerto

End Sub

‘añado en el texto de arriba el contenido del de abajo y envio

Private Sub Command2_Click()

Text3.Text = Text3.Text & vbCrLf & Text4.Text

Winsock1.SendData Text4.Text

End Sub

‘se acepta la conexión

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)

If Winsock1.State <> sckClosed Then Winsock1.Close

Winsock1.Accept requestID

End Sub

‘se reciben datos se escriben en el cuadro de arriba

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)

Winsock1.GetData Data, vbString, 12

Text3.Text = Text3.Text & vbCrLf & Data

End Sub