Moin,
wollt mal ein Chat programmieren mit AutoIT, aber komme mit der OnEvent GUI einstellung nicht klar.
Wenn ich auf den Button klicke sollte er eigentlich die Funktion ausführen aber der Server bekommt keine Nachricht.
Hab es auch mal ohne Button versucht ob überhaupt der Server was wahrnimmt und es hat geklappt, doch so klappt es nicht.
Also hier mal der Client:
[autoit]
#include <GUIConstants.au3>
Opt("GUIOnEventMode", 1)
[/autoit][autoit][/autoit][autoit]$window = GUICreate("Client") ; Mainwindow erstellen
GUISetOnEvent($GUI_EVENT_CLOSE, "Close") ; Close Funktion vom Fenster
$textInput = GUICtrlCreateInput("", 10, 10)
[/autoit][autoit][/autoit][autoit]$sendButton = GUICtrlCreateButton("Senden", 300, 10)
GUICtrlSetOnEvent($sendButton, "nachrichtSenden")
GUISetState(@SW_SHOW, $window) ; MainWindow auf Show setzen
[/autoit][autoit][/autoit][autoit]$startTCP = TCPStartup()
[/autoit][autoit][/autoit][autoit]If $startTCP <> 1 Then
MsgBox(0, "", "TCP konnte nicht gestartet werden!")
Else
MsgBox(0, "", "TCP erfolgreich gestartet!")
EndIf
$IP = "127.0.0.1"
$Port = 12345
$connectSocket = TCPConnect($IP, $Port)
[/autoit][autoit][/autoit][autoit]If $connectSocket == -1 Then
MsgBox(16, "Keine Verbindung.", "Client konnte keine Verbindung zum Server herstellen.")
Else
MsgBox(0, "Verbindung Erflogreich", "Erfolgreich mit 127.0.0.1 verbunden!")
EndIf
While 1
Sleep(1000)
WEnd
Func Close()
Exit
EndFunc
Func nachrichtSenden()
TCPSend($connectSocket, "test")
EndFunc