Hi,
Hier mein Script. Es soll eine Datei hochgeladen werden, mit den erforderlichen Daten zum connecten von den 3 Inputs.
C
#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
Alles anzeigen
Es wird nur leider die Datei nicht auf den Server geladen.
Vielen Dank schonmal