hi leute,
ich hab das, dass wenn ich dne befehl tcpsend in einer switch/case schleife schreibt der befehl TCPSend nich funzt. wenn ich jedoch TCPSend einfach so ins script schreibe also ohne shcleife das funzt es.
Spoiler anzeigen
#include <inet.au3>
#include <GUIConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 326, 241, 193, 125)
$Edit1 = GUICtrlCreateEdit("", 8, 8, 313, 193)
GUICtrlSetData(-1, "Edit1")
$Input1 = GUICtrlCreateInput("Input1", 8, 208, 217, 21)
$Button1 = GUICtrlCreateButton("Button1", 248, 208, 75, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
TCPStartup()
[/autoit] [autoit][/autoit] [autoit]$Connect = TCPConnect(_GetIP(),6667)
;wenn ich die folgende schleife weg lass und hier TCPSend eintrage das funzt es.
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
_Close()
Case $Button1
TCPSend($Connect,"MSG|hallo")
EndSwitch
WEnd
Func _Close()
TCPCloseSocket($Connect)
TCPShutdown()
Exit
EndFunc ;==>_Close