Server

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

GUICreate("Form1", 615, 227)
$Mainlist = GUICtrlCreateList("PC Name|Operating system", -1, -1, 615, 227)
GUISetState()
Global $TCPAccept
TCPStartup()
$MainSocket = TCPListen(@IPAddress1, 1234)

While 1
        $TCPRecv = TCPRecv($TCPAccept, 999999999)
        If @error Then _TCPAccept()
        If $TCPRecv <> "" Then GUICtrlSetData($Mainlist, $TCPRecv)
        Sleep(100)
WEnd

Func _TCPAccept()
        GUICtrlSetData($Mainlist, "")
        Do
                $TCPAccept = TCPAccept($MainSocket)
        Until $TCPAccept <> -1
        GUICtrlSetData($Mainlist, "")
EndFunc   ;==>_TCPAccept