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