Hej satt här och kodade lite i vb6 men kan inte komma på vad som är felet någon kanske kan hjälpa mig:)

Client:

Private Sub Form_Load()
Winsock1.Close
Winsock1.RemoteHost = "192.168.0.255"
Winsock1.RemotePort = 1684
End Sub

Private Sub Timer1_Timer()
Winsock1.SendData oss(sys.OSPlatform) & "?" & sys.OSBuild
End Sub

Server:

Private Sub Form_Load()
Winsock1.Close
Winsock1.LocalPort = 1684
Winsock1.Bind

End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Winsock1.GetData Data, vbString
MsgBox Data
End Sub