ich nutze die FTP_Ex.au3.
Mein Programm sieht so aus:
Code:
#include <FTP_Ex.au3>
$id = (@MDAY & @MON & @YEAR & @HOUR & @MIN & @SEC &".txt")
$dat = (@MDAY & "." & @MON & "." & @YEAR & "." & @HOUR & "." & @MIN & "." & @SEC)
$items = InputBox ("Bestellung", "Bitte Items + Anzahl eingeben", "Item(Anzahl), Item(Anzahl)")
$email = InputBox ("Bestellung", "Bitte E-Mail Adresse einegeben", "xxxxx@***.***")
IniWrite ("bestellungen.ini", $id, "Bestellung vom", $dat)
IniWrite ("bestellungen.ini", $id,"Items", $items)
IniWrite ("bestellungen.ini", $id, "E-Mail", $email)
$serv = "XXXXXXXXXXXXXXXXXXXxx"
$user = "XXXXXXXXXXXXXXXXXXXXXx"
$pass = "XXXXXXXXXXXXXXXx"
$FTP = _FTPOpen("AutoIt v3")
$FTPServer = _FTPConnect($FTP,$serv,$user,$pass,1)
ProgressOn("Upload","Uploading file [Cancel with F8]")
$x = _FTP_UploadProgress($FTPServer, "bestellungen.ini", $id, "_UpdateParts")
ProgressSet(100,"Return: " & $x & @CRLF & "Error: " & @error)
Sleep(2000)
ProgressOff()
_FTPClose($FTPServer)
_FTPClose($FTP)
Func _UpdateParts($percent)
ProgressSet($percent,$percent &"%")
If _IsPressed("77") Then Return 0
Return 1 ; bei 1 Fortsetzten
Endfunc
Code:
If _IsPressed("77") Then Return 0
If ^ ERROR






