vb no admite la familia de direcciones WINSOCK UDP 10047

Sí

.LocalPort = 1002

.Bind 1002 'Enlazar al puerto local

Para pruebas locales

Private Sub Form_Load()

'El nombre del control de control es udpPeerB

Con udpPeerB

'Énfasis: debe cambiar el valor de RemoteHost El nombre de otro ordenador

.RemoteHost="127.0.0.1"

.RemotePort = 1002 'Conectar al puerto

.LocalPort = 1001

.RemotePort = 1002 'Conectar al puerto

.LocalPort = 1001

.Bind 1001 'Enlazar al puerto local

Finalizar con

End Sub

Private Sub txtSend_Change()

'Enviar el texto inmediatamente después de escribir

udpPeerB.SendData TxtSend.Text

Finalizar sub

Sub privado udpPeerB_DataArrival(ByVal sTotal As Long)

En caso de error, reanudar siguiente

Atenuar strData como cadena

udpPeerB.GetData strData, vbString

txtOutput.Text = strData

End Sub