Beiträge von xouco

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>


#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Dragonwrath Downloader", 270, 110, 192, 124)
$Progress1 = GUICtrlCreateProgress(8, 8, 250, 17)
$Label1 = GUICtrlCreateLabel("Speed", 115, 32, 35, 37)
$Button1 = GUICtrlCreateButton("Download", 8, 76, 255, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
         Case $Button1
            MsgBox(0,"","Achtung der Download Prozess kann nicht Gestoppt werden!")
            _INet_Download("http://downloads.sourceforge.net/sevenzip/7z920.exe",@ScriptDir & "\dragonwrath.exe",$Progress1,$Label1)
            MsgBox(0,"","Fertig... Jetzt Starte bitte die dragonwrath.exe!")
            Exit(0)
    EndSwitch
 WEnd


;===============================================================================
;
; Description:      Downloads a file from the internet in the backround, so the script will be continued a. Also
;                    sets Progressbar and Speed. Speed must be a label to set.
; Author(s):        Burak Kavak
; Syntax:           _INet_Download($hDownload, $hTitle[, $vProgress, $vSpeed])
; Parameter(s):
;                   $hDownload - The URL to download from the internet (required)
;                   $hTitle - The path where to download the file (with filename) (required)
;                   $vProgress - The control ID a progressbar if you want to show the progress from the download (default is 0)
;                   $vSpeed - The control ID of a label where you want to show the KB/s
;
; Return Value(s):
;                    If the file can't be found - Sets @error to 0
;                    If the downlaod URL is empty - Sets @error to 1
;                   If the title - Sets @error to 2
;
;===============================================================================
Func _INet_Download($hDownload, $hTitle, $vProgress = 0, $vSpeed = 0)
    If $hDownload = "" Then
        SetError(2)
        Exit
    EndIf
    If $hTitle = "" Then
        SetError(3)
        Exit
    EndIf
    If $hDownload And $hTitle And $vProgress And $vSpeed <> "" Then
        $hGetFile = InetGet($hDownload, $hTitle,1,1)
        If $hGetFile = 0 Then
            SetError(0)
            Exit
        EndIf
        Sleep(300)
        $vTimer = TimerInit()
        Do
            $hGetProgress = Round((InetGetInfo($hGetFile,0)/InetGetSize($hDownload, 1))*100,0)
            GUICtrlSetData($vProgress, $hGetProgress)
            $hGetSpeed = Round(InetGetInfo($hGetFile, 0)/TimerDiff($vTimer), 0)
            GUICtrlSetData($vSpeed, $hGetSpeed & " KB/s")
            Sleep(200)
        Until InetGetInfo($hGetFile, 2)
        GUICtrlSetData($vProgress, "100")
    EndIf
    If $vProgress And $vSpeed = 0 And $hDownload And $hTitle <> "" Then
        $hGetFile = InetGet($hDownload, $hTitle,1,1)
        If $hGetFile = 0 Then
            SetError(0)
            Exit
        EndIf
        Do
            Sleep(200)
        Until InetGetInfo($hGetFile, 2)
    EndIf
    If $vProgress = 0 And $hDownload And $hTitle And $vSpeed <> "" Then
        $hGetFile = InetGet($hDownload, $hTitle,1,1)
        If $hGetFile = 0 Then
            SetError(0)
            Exit
        EndIf
        Sleep(250)
        $vTimer = TimerInit()
        Do
            $hGetSpeed = Round(InetGetInfo($hGetFile, 0)/TimerDiff($vTimer), 0)
            GUICtrlSetData($vSpeed, $hGetSpeed & " KB/s")
            Sleep(200)
        Until InetGetInfo($hGetFile, 2)
    EndIf
    If $vSpeed = 0 And $hDownload And $hTitle And $vProgress <> "" Then
        $hGetFile = InetGet($hDownload, $hTitle,1,1)
        If $hGetFile = 0 Then
            SetError(0)
            Exit
        EndIf
        Sleep(300)
        Do
            $hGetProgress = Round((InetGetInfo($hGetFile,0)/InetGetSize($hDownload, 1))*100,0)
            GUICtrlSetData($vProgress, $hGetProgress)
            Sleep(200)
        Until InetGetInfo($hGetFile, 2)
        GUICtrlSetData($vProgress, "100")
    EndIf
 EndFunc