Hallo Leute,
ich schaffe es einfach nicht meine ini datei auf den ftp server hoch zu laden.
Mitlerweilig schafft er es auch nicht sie runterzuladen.
Ja fail Script...
Ich werde das Script , wenn es funzt optimieren.
Und ich will das es hochgeladen wird wenn das Programm sich schließt.
So Far
ich schaffe es einfach nicht meine ini datei auf den ftp server hoch zu laden.
Mitlerweilig schafft er es auch nicht sie runterzuladen.
Code:
#include-once #NoTrayIcon #include <StaticConstants.au3> #include <data\include\GDIpProgress.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #Include <GuiButton.au3> #include <ButtonConstants.au3> #include <EditConstants.au3> #include <SendMessage.au3> #include <String.au3> #include <WinAPI.au3> #include <Memory.au3> #include <GDIPlus.au3> #include <ProgressConstants.au3> #include <StaticConstants.au3> #include <INet.au3> #include <File.au3> #include <String.au3> #include <Array.au3> #include <ListViewConstants.au3> #Include <FTPEx.au3> #include <Array.au3> #include <misc.au3> Global $sPassword = "IDK" Global $sUser = "Ich" Global $sServer = "NA.***********" Global $spath = @ScriptDir & "/myfile.ini" Global $sOrdner = "/www/" Global $sFilename = "myfile.ini" $var = Ping("www.Na.***********",555) If @error = 0 Then Else Msgbox(0,"Status","Ein Fehler ist aufgetreten. Error Code: " & @error) Sleep(100) Exit EndIf InetGet("http://www.HALLO.***********/myfile.ini", "myfile.ini", 1, 0) $inidatum = IniRead("myfile.ini", "Update", "Datum", "Fehler" & @error ) $inizeit = IniRead("myfile.ini", "Update", "Zeit", "Fehler" & @error ) $inideutsch = IniRead(@ScriptDir & "\myfile.ini", "Update", "deutsch", "Fehler" & @error ) $inilatein = IniRead("myfile.ini", "Update", "latein", "Fehler" & @error ) $inifranzoesisch = IniRead("myfile.ini", "Update", "franzoesisch", "Fehler" & @error ) $inienglisch = IniRead("myfile.ini", "Update", "englisch", "Fehler" & @error ) $inimathe = IniRead("myfile.ini", "Update", "mathe", "Fehler" & @error ) $inigeschichte = IniRead("myfile.ini", "Update", "geschichte", "Fehler" & @error ) $inibiologie = IniRead("myfile.ini", "Update", "biologie", "Fehler" & @error ) $inichemie = IniRead("myfile.ini", "Update", "chemie", "Fehler" & @error ) $inierdkunde = IniRead("myfile.ini", "Update", "erdkunde", "Fehler" & @error ) $inimusik = IniRead("myfile.ini", "Update", "musik", "Fehler" & @error ) $inikunst = IniRead("myfile.ini", "Update", "kunst", "Fehler" & @error ) $inireligion = IniRead("myfile.ini", "Update", "religion", "Fehler" & @error ) $iniphysik = IniRead("myfile.ini", "Update", "physik", "Fehler" & @error ) ProgressOn("Hausaufgaben","Die aktuellen Hausaufgaben") ProgressSet(0,"Der Launcher wird geladen...") ProgressSet(20,"Der Launcher wird geladen...") Sleep(400) ProgressSet(40,"Der Launcher wird geladen...") Sleep(400) ProgressSet(60,"Der Launcher wird geladen...") ProgressSet(80,"Der Launcher wird gestartet...") ProgressSet(100,"Der Launcher wird gestartet...") ProgressOff() #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("Hausaufgaben API", 348, 477, 563, 129) guictrlsetstate(-1,$GUI_DISABLE) $Deutsch = GUICtrlCreateButton("Deutsch", 0, 0, 70, 30) $Latein = GUICtrlCreateButton("Latein", 0, 30, 70, 30) $Franzoesisch = GUICtrlCreateButton("Französisch",0, 60, 70, 30) $Englisch = GUICtrlCreateButton("Englisch",0, 90, 70, 30) $Mathe = GUICtrlCreateButton("Mathe",0, 120, 70, 30) $Geschichte = GUICtrlCreateButton("Geschichte",0, 150, 70, 30) $Biologie = GUICtrlCreateButton("Biologie",0, 180, 70, 30) $Chemie = GUICtrlCreateButton("Chemie",0, 210, 70, 30) $Erdkunde = GUICtrlCreateButton("Erdkunde",0, 240, 70, 30) $Musik = GUICtrlCreateButton("Musik",0, 270, 70, 30) $Kunst = GUICtrlCreateButton("Kunst",0, 300, 70, 30) $Physik = GUICtrlCreateButton("Physik",0, 330, 70, 30) $Religion = GUICtrlCreateButton("Religion",0, 360, 70, 30) $Label1 = GUICtrlCreateLabel("Letzte Aktualisierung:" & $inidatum & " um " & $inizeit, 30, 460, 300, 30) $hProgress = GUICtrlCreateProgress(8, 32, 297, 25) $hLabel = GUICtrlCreateLabel("", 91, 70, 200, 25) $hOpen = _FTP_Open("Autoit") $hConnect = _FTP_Connect($hOpen, $sServer, $sUser, $sPassword, 1) _FTP_ProgressUpload($hConnect, $sPath, $sOrdner&$sFilename, "_Update_Progress") #ce GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### $Progress1 = _ProgressCreate(0, 400, 348, 27) _ProgressSetColors($Progress1, 0x09B8F8, 0x09B8F8, 0xFFFFFF, 0xFFFFFF) _ProgressSet($Progress1,43) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Func _Update_Progress($iProzent) GUICtrlSetData($hProgress, $iProzent) GUICtrlSetData($hLabel, "Hochladen bei " & $iProzent & "% (Abbruch mit F8)") If _IsPressed("77") Then Return 0 Return 1 EndFunc _FTP_Close($hOpen) _FTP_Close($hConnect) EndSwitch WEnd
Ja fail Script...
Ich werde das Script , wenn es funzt optimieren.
Und ich will das es hochgeladen wird wenn das Programm sich schließt.
So Far