ts2 über tcp connecten

[autoit]

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

[/autoit] [autoit][/autoit] [autoit]

HotKeySet("{ESC}","_exit")

[/autoit] [autoit][/autoit] [autoit]

$recv=""
$altrecv = ""

[/autoit] [autoit][/autoit] [autoit]

Opt("GUIOnEventMode", 1)

[/autoit] [autoit][/autoit] [autoit]

GUICreate("test",250,150)
Global $input = GUICtrlCreateEdit("",10,10,200,50)
$button = GUICtrlCreateButton("senden",100,100)
GUISetOnEvent($GUI_EVENT_CLOSE, "_exit")
GUICtrlSetOnEvent($button, "_send")
GUISetState()

[/autoit] [autoit][/autoit] [autoit]

TCPStartup()
$connectedsocket = TCPConnect("84.38.66.225","62345")
If @error Then MsgBox(0,"",@error)

[/autoit] [autoit][/autoit] [autoit]

While 1
$recv = TCPRecv($connectedsocket,1024)
If Not $recv = $altrecv Then
ConsoleWrite($recv)
$altrecv = $recv
EndIf
Sleep(100)
WEnd

[/autoit] [autoit][/autoit] [autoit]

Func _exit()
Exit
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _send()
$mmm = GUICtrlRead($input)
TCPSend($connectedsocket, $mmm)
EndFunc

[/autoit] [autoit][/autoit] [autoit]

;~ ip daresse des testserver: 84.38.66.225
;~ upd port: 8767
;~ tcp port: 62345

[/autoit]