Schnelligkeit von Scripten bzw. Programmen erhöhen

;http://www.youtube.com/watch?v=py5w1DbNsyk
#include <String.au3>
#include <Array.au3>
#include <File.au3>
#include <YouTube.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

Global $Links = ""
ClipPut(" ")
Opt("GUIResizeMode",$GUI_DOCKALL)

#Region ### START Koda GUI section ### Form=z:\users\xcode\desktop\ytdownloader\gui.kxf
$Form1_1 = GUICreate("YTDownloader-Beta", 642, 361, 831, 125)
GUISetBkColor(0xFFFFFF)
$Edit1 = GUICtrlCreateEdit("", 8, 171, 626, 182)
GUICtrlSetData(-1, "Bitte fügen sie maximal ein Videlink pro Zeile ein.")
$Group1 = GUICtrlCreateGroup("", 136, 2, 498, 137)
$Label1 = GUICtrlCreateLabel("Titel:", 142, 18, 360, 17)
$Label2 = GUICtrlCreateLabel("Länge:", 142, 42, 360, 17)
$Label3 = GUICtrlCreateLabel("User:", 142, 66, 360, 17)
$Label4 = GUICtrlCreateLabel("Größer:", 142, 90, 360, 17)
$Progress1 = GUICtrlCreateProgress(214, 114, 414, 16, $PBS_SMOOTH)
GUICtrlSetColor(-1, 0xFF0000)
$Label5 = GUICtrlCreateLabel("-|-", 142, 114, 70, 17)
$Label6 = GUICtrlCreateLabel("0/0", 587, 15, 36, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button1 = GUICtrlCreateButton("Download", 7, 141, 626, 25, $WS_GROUP)
$Pic1 = GUICtrlCreatePic("", 8, 13, 120, 120, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetImage($Pic1,@ScriptDir&"\Pic\No.jpg")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Button1
			$TIMER = TimerInit()
			DownloadLoop()
			$TIMERDIFF = TimerDiff($TIMER)
			$TIMER_Count = IniReadSection("Timer.ini","TIMER")
			IniWrite("Timer.ini","TIMER",UBound($TIMER_Count),$TIMERDIFF)
	EndSwitch
WEnd

Func DownloadLoop()
If GUICtrlRead($Edit1) = "" Then
MsgBox(0,"Error","Es wurden keine Videos eingegeben")
Else
WinMove("YTDownloader-Beta","",0,0,642,166)
$CRLF = StringSplit(GUICtrlRead($Edit1),@CRLF)
_ArrayDeleteEmpty($CRLF)

For $i=1 to UBound($CRLF)-1
	$Addi = 0
	$Divis = 1

	$Titel = Title($CRLF[$i])
	$VLink = GetVideoImg($CRLF[$i],$Titel)

	GUICtrlSetImage($Pic1,$VLink)

	$Grose = Size($CRLF[$i])
	$Lange  = Lenght($CRLF[$i])
	$User = User($CRLF[$i])

	If StringLen($Titel) > 40 Then
	$Titel = StringLeft($Titel,40)
	EndIf

	GUICtrlSetData($Label6,$i&"/"&UBound($CRLF)-1)
	GUICtrlSetData($Label1,"Titel: "&$Titel)
	GUICtrlSetData($Label2,"Länge: "&$Lange)
	GUICtrlSetData($Label3,"User: "&$User)
	GUICtrlSetData($Label4,"Größe: "&$Grose)

	$Ran = Random(1,1000000)
	$HInet = InetGet(GetDownloadLink($CRLF[$i]),@ScriptDir&"\Videos\"&$Titel&$Ran&".mp4",0,1)

	Do

	$cSize = FileGetSize(@ScriptDir&"\Videos\"&$Titel&$Ran&".mp4")
	$Akk = $cSize*100/$Grose
	GUICtrlSetData($Progress1,$Akk)
	GUICtrlSetData($Label5,Round($Akk,2)&"%")
	Sleep(30)
	Until $cSize = $Grose
	FileDelete($VLink)


Next

EndIf
Schluss()
EndFunc

Func Schluss()
WinMove("YTDownloader-Beta","",642, 361, 647, 385)
GUICtrlSetData($Label1,"Titel:")
GUICtrlSetData($Label2,"Länge:")
GUICtrlSetData($Label3,"User:")
GUICtrlSetData($Label4,"Größe:")
GUICtrlSetData($Label5,"-|-:")
GUICtrlSetData($Label6,"0/0")
GUICtrlSetData($Edit1,"Bitte fügen sie maximal ein Videlink pro Zeile ein.")
MsgBox(0,"Fertig","Die Videos sind im Video Ordner zu finden.")
EndFunc

#include-once
#include <String.au3>
#include <Array.au3>
#include <File.au3>
#include <Inet.au3>

Func GetDownloadLink($URL)
$Source = _INetGetSource($URL)

$img = _StringBetween($Source,'img.src = "','";')
If @error Then
	MsgBox(0,"Error","Link ist falsch")
Else
$Rep1 = StringReplace($img[0],"\/\/","//")
$Rep2 = StringReplace($Rep1,"\/","/")
$Rep3 = StringReplace($Rep2,"\u0026","&")
$Rep4 = StringReplace($Rep3,"generate_204","videoplayback")

Return $Rep4
EndIF
EndFunc

Func Download($URL)
$GDL = GetDownloadLink($URL)
$oSize = InetGetSize($GDL)
$T = Title($URL)
If FileExists($T&".mp4") Then
$T = $T&Random(1,1000)
EndIf
InetGet($GDL,@ScriptDir&"\"&$T&".mp4",0,1)
EndFunc

Func Title($URL)
	$TitleB = _StringBetween(_INetGetSource($URL),'<meta name="title" content="','">')
	$Title = $TitleB[0]
Return $Title
EndFunc

Func Size($URL)
$Size = InetGetSize(GetDownloadLink($URL))
Return $Size
EndFunc

Func Lenght($URL)
$URL_Time = _INetGetSource($URL)
$Time_Bet = _StringBetween($URL_Time,'"length_seconds": ',',')
$Time = $Time_Bet[0]
$Minuten = $Time/60

If StringInStr($Minuten,".") Then
	$Minuten_Split = StringSplit($Minuten,".")
	$Minuten = $Minuten_Split[1]
EndIf

$Sekunden = $Time-($Minuten*60)

Return $Minuten&":"&$Sekunden&" Min"
EndFunc

Func GetVideoImg($URL,$GVI)
$Pic_URL = _INetGetSource($URL)
$Pic_DW = _StringBetween($Pic_URL,'<meta property="og:image" content="','">')

InetGet($Pic_DW[0],@ScriptDir&"\Pic\"&$GVI&".jpeg")

$Return = @ScriptDir&"\Pic\"&$GVI&".jpeg"
Return $Return
EndFunc

Func User($URL)
$Source = StringReplace(_INetGetSource($URL),@CRLF,"")
$User = _StringBetween($Source,' <a href="/user/','" class="yt-user-name author"')
Return $User[0]
EndFunc

Func _ArrayDeleteEmpty(ByRef $ARRAY)
    If Not IsArray($ARRAY) Then Return 0
    Local $arTMP[1]
    For $i = 0 To UBound($ARRAY) -1
        If $ARRAY[$i] <> '' Then
            If $arTMP[0] = '' Then
                $arTMP[0] = $ARRAY[$i]
            Else
                ReDim $arTMP[UBound($arTMP)+1]
                $arTMP[UBound($arTMP)-1] = $ARRAY[$i]
            EndIf
        EndIf
    Next
    $ARRAY = $arTMP
EndFunc