Cómo utilizar la clase Socket en VB.NET para implementar problemas de comunicación en la red de área local
Sub Form_Load() privado
Con Winsock1
.RemoteHost = "124.135.13.106" 'Sub Form_Load() privado
. RemotePort = 1002 'El número de puerto de la otra parte
.Bind 1001 'El número de puerto local
End With
End Sub
Privado Sub Winsock1_DataArrival (ByVal bytesTotal As Long)
Dim strData As String
Winsock1.GetData strData 'Recibir bytes
List1.AddItem strData
End Sub
Esta conexión utiliza UDP. Simplemente se hace en una sola máquina.