Texto de transferencia de red VB

Usar control winsock

Private Sub Form_Load()

atenuar ip como cadena

ip = inputbox("Ingrese la dirección de la IP o el nombre de la computadora de la otra parte: ")

Winsock1.Protocol = sckUDPProtocol

Winsock1.RemoteHost = ip

Winsock1.RemotePort = 5678

Winsock1.Bind 5678

End Sub

Subtexto privado1_KeyUp(Código clave como entero, Mayús como entero)

Winsock1.SendData Text1.Text

End Sub

Sub privado Winsock1_DataArrival(ByVal bytesTotal As Long)

Atenuar s como cadena

Winsock1.GetData s

Texto1 .Texto = s

Fin Sub