#include <FTPEx.au3>

#region Settings
Const $sServer = 'test.mymabbo.org' ; Servername
Const $sUser = 'test234' ; Benutzername
Const $sPassword = 'x' ; Passwort des Benutzers
Const $sLocalFile = @ScriptDir & '\Beispiel.dat' ; Lokale Datei, die hochgeladen werden soll
Const $sRemoteFile = 'Beispiel.dat' ; Datei auf dem Server
#endregion

Global $hFTP_Open, $hFTP_Connect

_StartLoop(15)

Func _StartLoop($iMin)
	Local $iMS, $iCounter = 1
	$iMS = $iMin * 60 * 1000 ; rechnet Min in MS um
	while FileExists($sLocalFile) ; Vorgang wird solange wie Datei existiert ausgeführt -> Endlosschleife
		_LogIn($sServer, $sUser, $sPassword) ; Loginvorgang
		If $hFTP_Connect = 0 Then
			MsgBox(16, 'Fehler', 'Benutzerdaten überprüfen, konnte keine Verbindung zum Server herstellen.')
		EndIf
		_FTP_FilePut($hFTP_Connect, $sLocalFile, $sRemoteFile) ; Datei $sLocalFile hochladen
		If @error Then
			MsgBox(16, 'Fehler', 'Fehler beim Upload der Datei.')
		Else
			MsgBox(64, 'Info', 'Datei erfolgreich hochgeladen (zum ' & $iCounter & '. Mal).')
		EndIf
		$iCounter = $iCounter + 1 ; optionaler Counter
		_FTP_Close($hFTP_Open)
		Sleep($iMS) ; wartet 15 Minuten
	WEnd
EndFunc

Func _LogIn($sServer, $sUser, $sPassword)
	$hFTP_Open = _FTP_Open('FTP1')
	$hFTP_Connect = _FTP_Connect($hFTP_Open, $sServer, $sUser, $sPassword)
	Return $hFTP_Connect
EndFunc