FTPConnect mit Daten aus Input

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


#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 625, 647, 702, 271)
$Label1 = GUICtrlCreateLabel("Server - Configuration", 8, 8, 106, 17)
$ServeradresseIN = GUICtrlCreateInput("", 104, 32, 105, 21)
$PasswortIN = GUICtrlCreateInput("", 104, 56, 105, 21)
$BenutzernameIN = GUICtrlCreateInput("", 104, 80, 105, 21)
$Label2 = GUICtrlCreateLabel("Passwort:", 24, 56, 50, 17)
$Label3 = GUICtrlCreateLabel("Benutzername:", 24, 80, 75, 17)
$Label4 = GUICtrlCreateLabel("Serveradresse:", 24, 32, 75, 17)
$Edit = GUICtrlCreateEdit("", 8, 168, 585, 401)
GUICtrlSetData(-1, "ftp.spacequadrat.de e1cee1 web1358")
$OpenFile = GUICtrlCreateButton("Open File", 256, 104, 113, 25, 0)
GUICtrlCreateRadio("", 112, 120, 17, 17)
$Label5 = GUICtrlCreateLabel("Speichern", 48, 120, 52, 17)
$Upload = GUICtrlCreateButton("Upload", 208, 592, 97, 25, 0)
$Connect = GUICtrlCreateButton("Connect", 248, 16, 97, 33, 0)
$Disconnect = GUICtrlCreateButton("Disconnect", 360, 16, 97, 33, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Connect
Case $ServeradresseIN
$server = GUICtrlRead($ServeradresseIN)
if $server = "" then Msgbox(1,"Error","Bitte eine Serveradresse angeben!")	
Case $PasswortIN
	$pass = GUICtrlRead($PasswortIN)
if $pass = ""	Then Msgbox(1,"Error","Bitte geben Sie das Passwort ein!")	
Case $BenutzernameIN
	$username = GUICtrlRead($BenutzernameIN)
if $username = "" Then Msgbox(1,"Error","Bitte geben Sie den Benutzernamen ein!")	
Case $Connect
$server = GUICtrlRead($ServeradresseIN)
$pass = GUICtrlRead($PasswortIN)
$username = GUICtrlRead($BenutzernameIN)
$Hand = _FTPOpen('Doesnt Matter')
$Ftpc = _FTPConnect($Hand, $server, $username, $pass)
	if @error then 
		msgbox(0,"Error","Connect Error")
		Exit
	EndIf	
$Ftpp = _FtpPutFile($Hand, 'C:\WINDOWS\Notepad.exe', '/Example1.exe')
MsgBox (64,"set", "Server:" & $server & ", Benutzer:" & $username & ", Passwort: " & $pass)
	Exit
	$Ftpc = _FTPClose($Hand)
Case $Disconnect
	MsgBox(64,"Eingabe", $server)
	msgBox(64,"Eingabe", $pass)
	msgBox(64,"Eingabe", $username)

EndSwitch
WEnd