Downloader

    Hey
    kann mir jemand sagen wie ich bei dem Script, eine Loadingbar starte wenn ich auf nen Button klicke, und (jetzt die Frage) die Loadingbar mit dem Download fortschritt "verknüpfe" (?)
    mfg
    (icq 408 478 963)

    Spoiler anzeigen
    [autoit]

    #include <GUIConstants.au3>
    #include <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #include <GUIConstantsEx.au3>

    [/autoit] [autoit][/autoit] [autoit]

    FileInstall("K:\Bilder\Allgemein\Loading.avi",@TempDir & "\Loading.avi")

    [/autoit] [autoit][/autoit] [autoit]

    $Downloader = GUICreate("Downloader 1.0", 400, 875, 45, 50)
    $Menu_Tabs = GUICtrlCreateTab(8, 8, 385, 860)
    GUICtrlSetResizing(-1, $GUI_DOCKHEIGHT+$GUI_DOCKHEIGHT)

    [/autoit] [autoit][/autoit] [autoit]

    $Menu_Tab_1 = GUICtrlCreateTabItem("Downloads")

    [/autoit] [autoit][/autoit] [autoit]

    $Steam = GUICtrlCreateButton("Steam", 25, 50, 250, 50, 0)
    GUICtrlSetFont(-1, 20, 400, 0, "Comic Sans MS")
    Func SteamDownload()
    $Loading_Avi = GUICtrlCreateAvi(@TempDir & "\Loading.avi",0 ,0 ,275, 40)
    GUISetState(@SW_SHOW)

    [/autoit] [autoit][/autoit] [autoit]

    While 1
    $msg = GUIGetMsg()

    [/autoit] [autoit][/autoit] [autoit]

    Select
    Case $msg

    [/autoit] [autoit][/autoit] [autoit]

    GUICtrlSetState($Loading_Avi,1)
    Local $hDownload = InetGet("http://cdn.steampowered.com/download/SteamInstall_German.msi", @ScriptDir & '/Steaminstall_German.msi', 1, 1)
    Do
    Sleep(250)
    Until InetGetInfo($hDownload, 2)
    Local $nBytes = InetGetInfo($hDownload, 0)
    InetClose($hDownload)
    $Value = MsgBox(0, "", "Download Complete")
    GUICtrlCreatePic("Completed.jpg", 200, 40)
    ExitLoop

    [/autoit] [autoit][/autoit] [autoit]

    EndSelect
    WEnd
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    $ICQ = GUICtrlCreateButton("ICQ", 25, 125, 250, 50, 0)
    GUICtrlSetFont(-1, 20, 400, 0, "Comic Sans MS")
    Func ICQDownload()
    $Loading_Avi = GUICtrlCreateAvi("Loading.avi","",275,40)
    GUISetState(@SW_SHOW)

    [/autoit] [autoit][/autoit] [autoit]

    While 1
    $msg = GUIGetMsg()

    [/autoit] [autoit][/autoit] [autoit]

    Select
    Case $msg

    [/autoit] [autoit][/autoit] [autoit]

    GUICtrlSetState($Loading_Avi,1)
    Local $hDownload = InetGet("http://download.pcwelt.de/area_release/files/B8/ED/B8EDA634F4CE1BE4CB6C78460F5DD91D/install_icq7.2.exe", @ScriptDir & '/install_icq7.2.exe', 1, 1)
    Do
    Sleep(250)
    Until InetGetInfo($hDownload, 2)
    Local $nBytes = InetGetInfo($hDownload, 0)
    InetClose($hDownload)
    $Value = MsgBox(0, "", "Download Complete")
    GUICtrlCreatePic("Completed.jpg", 200, 40)
    ExitLoop

    [/autoit] [autoit][/autoit] [autoit]

    EndSelect
    WEnd
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    $Skype = GUICtrlCreateButton("Skype", 25, 200, 250, 50, 0)
    GUICtrlSetFont(-1, 20, 400, 0, "Comic Sans MS")
    Func SkypeDownload()
    $Loading_Avi = GUICtrlCreateAvi("Loading.avi","",275,40)
    GUISetState(@SW_SHOW)

    [/autoit] [autoit][/autoit] [autoit]

    While 1
    $msg = GUIGetMsg()

    [/autoit] [autoit][/autoit] [autoit]

    Select
    Case $msg

    [/autoit] [autoit][/autoit] [autoit]

    GUICtrlSetState($Loading_Avi,1)
    Local $hDownload = InetGet("http://download.pcwelt.de/area_release/files/A2/7A/A27AA8779EBF21BDD200FF9386E99CA9/SkypeSetupFull50.exe", @ScriptDir & '/SkypeSetupFull50.exe', 1, 1)
    Do
    Sleep(250)
    Until InetGetInfo($hDownload, 2)
    Local $nBytes = InetGetInfo($hDownload, 0)
    InetClose($hDownload)
    $Value = MsgBox(0, "", "Download Complete")
    GUICtrlCreatePic("Completed.jpg", 200, 40)
    ExitLoop

    [/autoit] [autoit][/autoit] [autoit]

    EndSelect
    WEnd
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    $TeamSpeak2 = GUICtrlCreateButton("TeamSpeak2", 25, 275, 250, 50, 0)
    GUICtrlSetFont(-1, 20, 400, 0, "Comic Sans MS")
    Func TeamSpeak2Download()
    $Loading_Avi = GUICtrlCreateAvi("Loading.avi","",275,40)
    GUISetState(@SW_SHOW)

    [/autoit] [autoit][/autoit] [autoit]

    While 1
    $msg = GUIGetMsg()

    [/autoit] [autoit][/autoit] [autoit]

    Select
    Case $msg

    [/autoit] [autoit][/autoit] [autoit]

    GUICtrlSetState($Loading_Avi,1)
    Local $hDownload = InetGet("ftp://ftp.freenet.de/pub/4players/teamspeak.org/developer/client/20337/TeamSpeak.exe", @ScriptDir & '/TeamSpeak.exe', 1, 1)
    Do
    Sleep(250)
    Until InetGetInfo($hDownload, 2)
    Local $nBytes = InetGetInfo($hDownload, 0)
    InetClose($hDownload)
    $Value = MsgBox(0, "", "Download Complete")
    GUICtrlCreatePic("Completed.jpg", 200, 40)
    ExitLoop

    [/autoit] [autoit][/autoit] [autoit]

    EndSelect
    WEnd
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    $TeamSpeak3 = GUICtrlCreateButton("TeamSpeak3", 25, 350, 250, 50, 0)
    GUICtrlSetFont(-1, 20, 400, 0, "Comic Sans MS")
    Func TeamSpeak3Download()
    $Loading_Avi = GUICtrlCreateAvi("Loading.avi","",275,40)
    GUISetState(@SW_SHOW)

    [/autoit] [autoit][/autoit] [autoit]

    While 1
    $msg = GUIGetMsg()

    [/autoit] [autoit][/autoit] [autoit]

    Select
    Case $msg

    [/autoit] [autoit][/autoit] [autoit]

    GUICtrlSetState($Loading_Avi,1)
    Local $hDownload = InetGet("http://ftp.4players.de/pub/hosted/ts3/releases/beta-36/TeamSpeak3-Client-win64-3.0.0-beta36.exe", @ScriptDir & '/TeamSpeak3-Client-win64-3.0.0-beta36.exe', 1, 1)
    Do
    Sleep(250)
    Until InetGetInfo($hDownload, 2)
    Local $nBytes = InetGetInfo($hDownload, 0)
    InetClose($hDownload)
    $Value = MsgBox(0, "", "Download Complete")
    GUICtrlCreatePic("Completed.jpg", 200, 40)
    ExitLoop

    [/autoit] [autoit][/autoit] [autoit]

    EndSelect
    WEnd
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    $Fraps = GUICtrlCreateButton("Fraps", 25, 425, 250, 50, 0)
    GUICtrlSetFont(-1, 20, 400, 0, "Comic Sans MS")
    Func FrapsDownload()
    $Loading_Avi = GUICtrlCreateAvi("Loading.avi","",275,40)
    GUISetState(@SW_SHOW)

    [/autoit] [autoit][/autoit] [autoit]

    While 1
    $msg = GUIGetMsg()

    [/autoit] [autoit][/autoit] [autoit]

    Select
    Case $msg

    [/autoit] [autoit][/autoit] [autoit]

    GUICtrlSetState($Loading_Avi,1)
    Local $hDownload = InetGet("http://download.pcwelt.de/area_release/files/09/FC/09FCF04D13271A360F36192A58701591/setup.exe", @ScriptDir & '/setup.exe', 1, 1)
    Do
    Sleep(250)
    Until InetGetInfo($hDownload, 2)
    Local $nBytes = InetGetInfo($hDownload, 0)
    InetClose($hDownload)
    $Value = MsgBox(0, "", "Download Complete")
    GUICtrlCreatePic("Completed.jpg", 200, 40)
    ExitLoop

    [/autoit] [autoit][/autoit] [autoit]

    EndSelect
    WEnd
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    $MP3_Converter = GUICtrlCreateButton("MP3 Converter", 25, 500, 250, 50, 0)
    GUICtrlSetFont(-1, 20, 400, 0, "Comic Sans MS")
    Func MP3_ConverterDownload()
    $Loading_Avi = GUICtrlCreateAvi("Loading.avi","",275,40)
    GUISetState(@SW_SHOW)

    [/autoit] [autoit][/autoit] [autoit]

    While 1
    $msg = GUIGetMsg()

    [/autoit] [autoit][/autoit] [autoit]

    Select
    Case $msg

    [/autoit] [autoit][/autoit] [autoit]

    GUICtrlSetState($Loading_Avi,1)
    Local $hDownload = InetGet("http://download.pcwelt.de/area_release/files/6C/7D/6C7DFF13FEBFD56B9C57B9086C188F75/FreeYouTubeToMp3Converter.exe", @ScriptDir & '/FreeYouTubeToMp3Converter.exe', 1, 1)
    Do
    Sleep(250)
    Until InetGetInfo($hDownload, 2)
    Local $nBytes = InetGetInfo($hDownload, 0)
    InetClose($hDownload)
    $Value = MsgBox(0, "", "Download Complete")
    GUICtrlCreatePic("Completed.jpg", 200, 40)
    ExitLoop

    [/autoit] [autoit][/autoit] [autoit]

    EndSelect
    WEnd
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    $AutoIt = GUICtrlCreateButton("AutoIt", 25, 575, 250, 50, 0)
    GUICtrlSetFont(-1, 20, 400, 0, "Comic Sans MS")
    Func AutoItDownload()
    $Loading_Avi = GUICtrlCreateAvi("Loading.avi","",275,40)
    GUISetState(@SW_SHOW)

    [/autoit] [autoit][/autoit] [autoit]

    While 1
    $msg = GUIGetMsg()

    [/autoit] [autoit][/autoit] [autoit]

    Select
    Case $msg

    [/autoit] [autoit][/autoit] [autoit]

    GUICtrlSetState($Loading_Avi,1)
    Local $hDownload = InetGet("http://rarlab.com/rar/winrar-x64-393d.exe", @ScriptDir & '/autoit-v3-setup.exe',1, 1)
    Do
    Sleep(250)
    Until InetGetInfo($hDownload, 2)
    Local $nBytes = InetGetInfo($hDownload, 0)
    InetClose($hDownload)
    $Value = MsgBox(0, "", "Download Complete")
    GUICtrlCreatePic("Completed.jpg", 200, 40)
    ExitLoop

    [/autoit] [autoit][/autoit] [autoit]

    EndSelect
    WEnd
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    $Unlocker = GUICtrlCreateButton("Unlocker", 25, 650, 250, 50, 0)
    GUICtrlSetFont(-1, 20, 400, 0, "Comic Sans MS")
    Func UnlockerDownload()
    $Loading_Avi = GUICtrlCreateAvi("Loading.avi","",275,40)
    GUISetState(@SW_SHOW)

    [/autoit] [autoit][/autoit] [autoit]

    While 1
    $msg = GUIGetMsg()

    [/autoit] [autoit][/autoit] [autoit]

    Select
    Case $msg

    [/autoit] [autoit][/autoit] [autoit]

    GUICtrlSetState($Loading_Avi,1)
    Local $hDownload = InetGet("http://download.pcwelt.de/area_release/files/A6/FD/A6FDB86CC67D088A69148F06C6A05056/unlocker1.9.0.exe", @ScriptDir & '/Unlocker1.9.0.exe', 1, 1)
    Do
    Sleep(250)
    Until InetGetInfo($hDownload, 2)
    Local $nBytes = InetGetInfo($hDownload, 0)
    InetClose($hDownload)
    $Value = MsgBox(0, "", "Download Complete")
    GUICtrlCreatePic("Completed.jpg", 200, 40)
    ExitLoop

    [/autoit] [autoit][/autoit] [autoit]

    EndSelect
    WEnd
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    $Gimp = GUICtrlCreateButton("Gimp", 25, 725, 250, 50, 0)
    GUICtrlSetFont(-1, 20, 400, 0, "Comic Sans MS")
    Func GimpDownload()
    $Loading_Avi = GUICtrlCreateAvi("Loading.avi","",275,40)
    GUISetState(@SW_SHOW)

    [/autoit] [autoit][/autoit] [autoit]

    While 1
    $msg = GUIGetMsg()

    [/autoit] [autoit][/autoit] [autoit]

    Select
    Case $msg

    [/autoit] [autoit][/autoit] [autoit]

    GUICtrlSetState($Loading_Avi,1)
    Local $hDownload = InetGet("http://download.pcwelt.de/area_release/files/4D/EC/4DEC39F235189F7628AA11162ADAED4E/gimp-2.6.11-i686-setup.exe", @ScriptDir & '/gimp-2.6.11-i686-setup.exe', 1, 1)
    Do
    Sleep(250)
    Until InetGetInfo($hDownload, 2)
    Local $nBytes = InetGetInfo($hDownload, 0)
    InetClose($hDownload)
    $Value = MsgBox(0, "", "Download Complete")
    GUICtrlCreatePic("Completed.jpg", 200, 40)
    ExitLoop

    [/autoit] [autoit][/autoit] [autoit]

    EndSelect
    WEnd
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    $WinRAR = GUICtrlCreateButton("WinRAR", 25, 800, 250, 50, 0)
    GUICtrlSetFont(-1, 20, 400, 0, "Comic Sans MS")
    Func WinRARDownload()
    $Loading_Avi = GUICtrlCreateAvi("Loading.avi","",275,40)
    GUISetState(@SW_SHOW)

    [/autoit] [autoit][/autoit] [autoit]

    While 1
    $msg = GUIGetMsg()

    [/autoit] [autoit][/autoit] [autoit]

    Select
    Case $msg

    [/autoit] [autoit][/autoit] [autoit]

    GUICtrlSetState($Loading_Avi,1)
    Local $hDownload = InetGet("http://rarlab.com/rar/winrar-x64-393d.exe", @ScriptDir & '/winrar-x64-393d.exe',1, 1)
    Do
    Sleep(250)
    Until InetGetInfo($hDownload, 2)
    Local $nBytes = InetGetInfo($hDownload, 0)
    InetClose($hDownload)
    $Value = MsgBox(0, "", "Download Complete")
    GUICtrlCreatePic("Completed.jpg", 200, 40)
    ExitLoop

    [/autoit] [autoit][/autoit] [autoit]

    EndSelect
    WEnd
    EndFunc

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    $Menu_Tab_2 = GUICtrlCreateTabItem("Downloads")

    [/autoit] [autoit][/autoit] [autoit]

    $After_Effects = GUICtrlCreateButton("After Effects", 25, 50, 250, 50, 0)
    GUICtrlSetFont(-1, 20, 400, 0, "Comic Sans MS")
    Func After_EffectsDownload()
    $Loading_Avi = GUICtrlCreateAvi("Loading.avi","",275,40)
    GUISetState(@SW_SHOW)

    [/autoit] [autoit][/autoit] [autoit]

    While 1
    $msg = GUIGetMsg()

    [/autoit] [autoit][/autoit] [autoit]

    Select
    Case $msg

    [/autoit] [autoit][/autoit] [autoit]

    GUICtrlSetState($Loading_Avi,1)
    Local $hDownload = InetGet("http://www607.megaupload.com:800/files/5d5b05bb13c40ef6000efb96f67d4f8f/aaecpc.part1.rar", @ScriptDir & '/aaecpc.part1.rar',1, 1)
    Local $hDownload = InetGet("http://www1018.megaupload.com:800/files/204b6eea6ed465a7dabe618f49e54a28/aaecpc.part2.rar", @ScriptDir & '/aaecpc.part2.rar',1, 1)
    Local $hDownload = InetGet("http://www94.megaupload.com:800/files/a30cf0aeed93fbe389650f85ebc54f27/aaecpc.part3.rar", @ScriptDir & '/aaecpc.part3.rar',1, 1)
    Local $hDownload = InetGet("http://www21.megaupload.com:800/files/2e4d1d7760d2163ace78cd1162cd47e0/aaecpc.part4.rar", @ScriptDir & '/aaecpc.part4.rar',1, 1)
    Local $hDownload = InetGet("http://www675.megaupload.com:800/files/e2c0781cac5f7351fe4d0ffbd8354e00/aaecpc.part5.rar", @ScriptDir & '/aaecpc.part5.rar',1, 1)
    Local $hDownload = InetGet("http://www281.megaupload.com:800/files/7d4480d033db8b9dc85f43dd192549df/aaecpc.part6.rar", @ScriptDir & '/aaecpc.part6.rar',1, 1)
    Local $hDownload = InetGet("http://www109.megaupload.com:800/files/2e89168060161dcda23e6ee5e55549a8/aaecpc.part7.rar", @ScriptDir & '/aaecpc.part7.rar',1, 1)
    Do
    Sleep(250)
    Until InetGetInfo($hDownload, 2)
    Local $nBytes = InetGetInfo($hDownload, 0)
    InetClose($hDownload)
    $Value = MsgBox(0, "", "Download Complete")
    GUICtrlCreatePic("Completed.jpg", 200, 40)
    ExitLoop

    [/autoit] [autoit][/autoit] [autoit]

    EndSelect
    WEnd
    EndFunc

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    $About_Tab = GUICtrlCreateTabItem("About")

    [/autoit] [autoit][/autoit] [autoit]

    $Product_Name_Group = GUICtrlCreateGroup("Product Name", 25, 45, 350, 50)
    GUICtrlSetFont(-1, 12, 400, 0, "Comic Sans MS")
    $Product_Name_Label = GUICtrlCreateLabel("Downloader // Download you're Programms", 35, 70, 320, 15)

    [/autoit] [autoit][/autoit] [autoit]

    $Version_Group = GUICtrlCreateGroup("Version", 25, 120, 350, 50)
    GUICtrlSetFont(-1, 12, 400, 0, "Comic Sans MS")
    $Version_Label = GUICtrlCreateLabel("Downloader V1.0 // Version 1.0.0", 35, 145, 320, 15)

    [/autoit] [autoit][/autoit] [autoit]

    $Manufactured_Group = GUICtrlCreateGroup("Manufactured", 25, 195, 350, 50)
    GUICtrlSetFont(-1, 12, 400, 0, "Comic Sans MS")
    $Manufactured_Label = GUICtrlCreateLabel("by McGangster // 2010 Dezember", 35, 220, 320, 15)

    [/autoit] [autoit][/autoit] [autoit]

    $Important_Group = GUICtrlCreateGroup("Important", 25, 270, 350, 60)
    GUICtrlSetFont(-1, 12, 400, 0, "Comic Sans MS")
    $Important_Label = GUICtrlCreateLabel("If they appear in the extract during a password query, the password 'iload.to'", 35, 295, 335, 30)

    [/autoit] [autoit][/autoit] [autoit]

    $Information_Group = GUICtrlCreateGroup("Comments", 25, 355, 350, 90)
    GUICtrlSetFont(-1, 12, 400, 0, "Comic Sans MS")
    $Information_Label = GUICtrlCreateLabel("By downloading files via the Downloader v1.0 we do not guarantee that run downloads on other sites that can supply the 100% of the downloads are Virus free. Any downloads to our offers Downloader v1.0, we've tested, this worked, and has no undesirable program.", 35, 380, 335, 60)
    GUICtrlCreateTabItem("")
    GUISetState(@SW_SHOW)

    [/autoit] [autoit][/autoit] [autoit]

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit

    [/autoit] [autoit][/autoit] [autoit]

    Case $Steam
    SteamDownload()
    Case $ICQ
    ICQDownload()
    Case $Skype
    Skypedownload()
    Case $TeamSpeak2
    Teamspeak2Download()
    Case $TeamSpeak3
    TeamSpeak3Download()
    Case $Fraps
    FrapsDownload()
    Case $MP3_Converter
    MP3_ConverterDownload()
    Case $AutoIt
    AutoItDownload()
    Case $Unlocker
    UnlockerDownload()
    Case $Gimp
    GimpDownload()
    Case $WinRAR
    WinRARDownload()
    Case $After_Effects
    After_EffectsDownload()
    EndSwitch
    WEnd

    [/autoit]

    Als erstes, einen Ladebalken (Progressbar) erstellst du mit

    [autoit]

    GuiCtrlCreateProgress

    [/autoit]


    Du kannst den Wert der Progressbar ändern indem du

    [autoit]

    GuiCtrlSetData()

    [/autoit]


    benutzt. Der Max. Wert ist anfangs 100, den kann man aber auch ändern. Dann einfach im dreisatz ausrechnen wie viel Der Downloader nach vorne muss wenn du eine bestimmte Anzahl gedownloadet hast. Die Frage gab es aber schon so oft im Forum, du findest sicher was über die Sufu.
    Beispiel:

    Du willst eine 200MB große Datei downloaden. Du hast eine Progressbar die bei 0 steht. Du Downloadest erstmal 5 MB, dann rechnest du: 100/200*5, so hast du die schnellste Möglichkeit. Oder du passt den Max. Wert der Progressbar auf die größe der zu downloadenden Datei an, also 200 und dann kannst du den Wert einfach auf 5 setzen.

    Hoffe es war verständlich.

    //EDIT: Siehe hier

    so sieht dann die lösung aus?:
    dann eben noch mit einer progressbar

    [autoit]


    ProgressOn()
    $get = InetGet($download,$upath, 1, 1)
    Do
    Sleep(10)
    $iPercent = Round(InetGetInfo($get, 0) / InetGetInfo($get, 1), 2) * 100
    ProgressSet($iPercent, $iPercent & " %")
    Until InetGetInfo($get, 2) ; Check if the download is complete.
    ProgressOff()

    [/autoit]

    deine Lösung funktioniert doch:

    [autoit]

    $download = "http://translation.autoit.de/autoitinfo/hilfedateien/AutoIt-Hilfe-Deutsch-3.3.6.1-Stand-07_09_10.zip"
    $upath = @ScriptDir & "\AutoIt-Hilfe-Deutsch-3.3.6.1-Stand-07_09_10.zip"
    ProgressOn("Test", "Test2")
    $get = InetGet($download, $upath, 1, 1)
    Do
    Sleep(10)
    $iPercent = Round(InetGetInfo($get, 0) / InetGetInfo($get, 1), 2) * 100
    ProgressSet($iPercent, $iPercent & " %")
    Until InetGetInfo($get, 2) ; Check if the download is complete.
    ProgressOff()

    [/autoit]

    du kannst dir auch [Beispiel] Gesamtfortschritt mehrer Downloads anzeigen anschauen, da benutze ich anstatt eines Progressbarfensters 2 Progressbars in einer Gui,

    mfg autoBert