download mit % anzeige

    Hi,
    ich will nur ein kleines Download-Skript mit %anzeige machen. Aber es kommt immer sofort "Fertig" nach dem Start.
    Was mach ich Falsch?
    Hier ist das Skript:

    [autoit]

    InetGet("http://dl1.avgate.net/down/vdf/ivdf_fusebundle_nt_en.zip","C:/Update/antivir/ivdf_fusebundle_nt_en.zip",1,1)
    $size = InetGetSize("http://dl1.avgate.net/down/vdf/ivdf_fusebundle_nt_en.zip")
    while @InetGetActive
    $anzeige = @InetGetBytesRead / $size
    TrayTip("Download Antivir update", $anzeige & "% fertig", 10, 16)
    Sleep(250)
    WEnd
    MsgBox(0, "Fertig", "Alles ok")

    [/autoit]


    Wahrscheinlich etwas ganz einfaches oder?

    3 Mal editiert, zuletzt von senden9 (21. April 2008 um 15:55)

    ist es nicht egal ob ich / oder \ nehme?

    EDIT:
    hab es gerade so versucht nützt trotzdem nichts

    [autoit]

    InetGet("http://dl1.avgate.net/down/vdf/ivdf_fusebundle_nt_en.zip","C:\Update\antivir\ivdf_fusebundle_nt_en.zip",1,1)
    $size = InetGetSize("http://dl1.avgate.net/down/vdf/ivdf_fusebundle_nt_en.zip")
    while @InetGetActive
    $anzeige = @InetGetBytesRead / $size
    TrayTip("Download Antivir update", $anzeige & "% fertig", 10, 16)
    Sleep(250)
    WEnd
    MsgBox(0, "Fertig", "Alles ok")

    [/autoit]

    Einmal editiert, zuletzt von senden9 (21. April 2008 um 15:13)

    [autoit]

    InetGet("http://dl1.avgate.net/down/vdf/ivdf_fusebundle_nt_en.zip","C:\test.zip",1,1)
    $size = InetGetSize("http://dl1.avgate.net/down/vdf/ivdf_fusebundle_nt_en.zip")
    $1pozent = $size/100 ; = 1%
    while @InetGetActive
    $anzeige = @InetGetBytesRead / $1pozent

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

    TrayTip("Download Antivir update", $anzeige & "% fertig", 10, 16)
    Sleep(250)
    WEnd
    MsgBox(0, "Fertig", "Alles ok")

    [/autoit]


    das geht bei mir

    Ich hab mal nen kleinen test bei mir gemacht, der geht aber nicht. bzw. zeigt immer 0 an? warum?

    Spoiler anzeigen
    [autoit]


    #include <GUIConstants.au3>

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

    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Download-Tester", 316, 128, 193, 125)
    $InputLink = GUICtrlCreateInput("", 8, 24, 297, 21)
    $Read = GUICtrlCreateButton("Größe auslesen", 168, 56, 107, 25, 0)
    $Radio1 = GUICtrlCreateRadio("Anzeigen in Bytes", 24, 56, 113, 17)
    $Radio2 = GUICtrlCreateRadio("Anzeigen in KB", 24, 80, 113, 17)
    $Radio3 = GUICtrlCreateRadio("Anzeigen in MB", 24, 104, 113, 17)
    $Label1 = GUICtrlCreateLabel("Download-Link:", 8, 6, 78, 17)
    $Button1 = GUICtrlCreateButton("Verfügbarkeit", 168, 88, 107, 25, 0)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

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

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

    EndSwitch
    WEnd

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

    Func _auslesen()
    If GUICtrlRead($Radio1) = $GUI_CHECKED Then
    $sizeIn = InetGetSize(""&$InputLink&"")
    Sleep (400)
    $size = $sizeIn
    MsgBox (0,"test","Die Größe ist: "&$size &" Byte")
    ElseIf GUICtrlRead($Radio2) = $GUI_CHECKED Then
    $sizeIn = InetGetSize(""&$InputLink&"")
    Sleep (400)
    $size = $sizeIn / 1000
    MsgBox (0,"test","Die Größe ist: "&$size &" KiloByte")
    ElseIf GUICtrlRead($Radio3) = $GUI_CHECKED Then
    $sizeIn = InetGetSize(""&$InputLink&"")
    Sleep (400)
    $size = $sizeIn / 1000000
    MsgBox (0,"test","Die Größe ist: "&$size &" MegaByte")
    Else
    MsgBox(64,"error","Fehler !!!")
    EndIf
    EndFunc

    [/autoit]

    Beim ersten mal hat es funktioniert.
    Beim zweiten mal nicht, da dachte ich ich lösche die herrunter geladene Datei.
    Beim 3. mal funktioniere es immer noch nicht da habe ich diese Meldung bekommen. Die Datei war aber ok?
    Beim 4. mal kommt nur OK und das bild im anhang.
    hab es damit getestet:

    Spoiler anzeigen
    [autoit]

    InetGet("http://dl1.avgate.net/down/vdf/ivdf_fusebundle_nt_en.zip","C:\test.zip",1,1)
    $size = InetGetSize("http://dl1.avgate.net/down/vdf/ivdf_fusebundle_nt_en.zip")
    $1pozent = $size/100 ; = 1%
    while @InetGetActive
    $anzeige = @InetGetBytesRead / $1pozent

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

    TrayTip("Download Antivir update", $anzeige & "% fertig", 10, 16)
    Sleep(250)
    WEnd
    MsgBox(0, "Fertig", "Alles ok")

    [/autoit]

    Hallo
    nim mal eine andere Quelle
    was von meine Server ging einwand frei

    [autoit]

    $quelle = "http://dl1.avgate.net/down/vdf/ivdf_fusebundle_nt_en.zip"
    $ziel = "C:\test.zip"
    if FileExists($ziel) Then
    FileDelete($ziel)
    EndIf
    InetGet($quelle,$ziel,1,1)
    $size = InetGetSize($quelle)
    $1pozent = $size/100 ; = 1%
    while @InetGetActive
    $anzeige = @InetGetBytesRead / $1pozent
    $anzeige = Round($anzeige)
    TrayTip("Download Antivir update", $anzeige & "% fertig", 10, 16)
    Sleep(250)
    WEnd
    MsgBox(0, "Fertig", "Alles ok")

    [/autoit]