Downloader

1. offizieller Beitrag

    ich habe hier mal einen script überarbeitet.
    probiert es einfach mal aus ;)

    [autoit]

    #include <GUIConstants.au3>
    #NoTrayIcon

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

    $site = InputBox("Internet Download","Site wo der Download drauf ist","http://download.mozilla.org/?product=firefox-2.0.0.11&os=win&lang=de")

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

    If @error Then Exit
    $save = StringSplit($site,"/")
    $erw = StringSplit($save[$save[0]],".")
    $erw = $erw[$erw[0]]
    $erwtext = $erw&" Datei"
    If $erw = "" Or StringLen($erw) > 5 Then
    $erw = "*"
    $erwtext = "Alle"
    EndIf

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

    $punkt = FileSaveDialog("Pfad wo Download hinkopiert werden Soll",@DesktopDir,$erwtext&"(*."&$erw&")",16,$save[$save[0]])
    If @error Then Exit
    $orisize = InetGetSize($site)
    InetGet($site,$punkt,1,1)

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

    GUICreate("Download",400,110)
    GUISetIcon("shell32.dll",14)
    GUICtrlCreateAvi("download.avi",0,150,10,10,10,$ACS_AUTOPLAY)
    $prog_1 = GUICtrlCreateProgress(10,60,380,20)
    $prog_2 = GUICtrlCreateLabel("" ,10,87,200,50)
    GUICtrlCreateLabel("% ( ",32,87,200,50)
    $prog_4 = GUICtrlCreateLabel("", 50,87,60,50)
    GUICtrlCreateLabel(") Kb wurde heruntergeladen" ,90,87,200,50)

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

    GUISetState()

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

    While @InetGetActive
    Sleep(200)
    $size1 = FileGetSize($punkt)
    $MBsize1 = FileGetSize($punkt)
    $Prozent = 100 * @InetGetBytesRead / $orisize
    $decimalplace = Round ($Prozent)
    $decimalplaceMBsize1 = Round (@InetGetBytesRead / 1024)
    GUICtrlSetData($prog_1,$decimalplace)
    GUICtrlSetData($prog_2,$decimalplace)
    GUICtrlSetData($prog_4,$decimalplaceMBsize1)
    WEnd
    RunWait("explorer.exe """&$punkt)
    WinActivate("Dateidownload - Sicherheitswarnung")
    WinWaitActive("Dateidownload - Sicherheitswarnung")
    WinClose("Dateidownload - Sicherheitswarnung")

    [/autoit]