Hilfe bei GUI mit While -> TCP

[kruemmelkeks]

Hallo Leute!
Ich habe folgendes Problem.
Ich möchte ein TCP Chat mit schöner GUI machen.
Jetzt hab ich in der GUI $IP und $PORT für IP und Port gemacht (Mit InputBox).
Dann habe ich bei While 1 auf Button3 $mainsocket = TCPConnect($IP, $PORT)
Aber bei While wird das Definierte von oben nicht erkannt oder aufgerufen :/

Wie zur hölle kann ich das Problem lösen ?!
Bitte helft mir

[jacky919]

Quellcode?

[kruemmelkeks]

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

TCPStartup()

$Form1 = GUICreate("Green ***", 615, 438, 192, 124)
$Button1 = GUICtrlCreateButton("Menü", 0, 0, 75, 25)
$Button2 = GUICtrlCreateButton("Schliessen", 536, 0, 75, 25)
$IP = GUICtrlCreateInput("IP Adresse", 104, 0, 121, 21)
$Label1 = GUICtrlCreateLabel("IP : ", 80, 0, 25, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("Port :", 240, 0, 34, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Port = GUICtrlCreateInput("Port", 288, 0, 57, 21)
$Button3 = GUICtrlCreateButton("Verbinden", 360, 0, 75, 25)
$Button4 = GUICtrlCreateButton("Trennen", 440, 0, 75, 25)
GUISetState(@SW_SHOW)



While 1

$verbunden = "0"
$nMsg = GUIGetMsg()
Select
case $nmsg = -3
Exit

case $nMsg = $Button1

case $nMsg = $Button2
Exit

case $nMsg = $Button3
$mainsocket = TCPConnect($IP, $PORT)
If $mainsocket = -1 Then
MsgBox(16, "Error", "Verbindung zum Server nicht möglich!")
ElseIf $mainsocket <> -1 Then
MsgBox (64, "Verbunden!", "Die Verbindung zum Server wurde hergestellt!")
EndIf

case $nMsg = $Button4
If $verbunden = "1" Then
TCPCloseSocket($mainsocket)
$verbunden = "0"
MsgBox(64, "Verbindung beendet!", "Die Verbindung zum Server wurde beendet!")
ElseIf $verbunden = "0" Then
MsgBox(16, "Nicht verbunden!", "Es besteht keine verbindung zum Server!")
EndIf

EndSelect


WEnd


Oben ist $IP und $Port definiert aber wird in While ja nicht erkannt :'(

[omer36]

TCPConnect(guictrlread($IP), guictrlread($Port))

[kruemmelkeks]

Danke!
Hat geklappt. Ich lerne AutoIT gerade noch