$sUpdatePacket = "GET /test/update.txt HTTP/1.1" & @CRLF & _
				 "Host: www.v1dr333s.nl" & @CRLF & _
				 @CRLF
TCPStartup()

Do
	$hServer = TCPConnect(TCPNameToIP("v1dr333s.nl"), 80)
Until $hServer <> -1

TCPSend($hServer, $sUpdatePacket)

Do
	$sUpdateHTML = TCPRecv($hServer, 512)
Until $sUpdateHTML <> ""

$sUpdateVersion = StringTrimLeft($sUpdateHTML, StringInStr($sUpdateHTML, @CRLF, 1, -1) + 1)

TCPCloseSocket($hServer)

MsgBox(64, "Update-Version", "Die aktuelle Version ist: " & $sUpdateVersion)
TCPShutdown()