Dim $links[1][3]=[["Hold it against me 266 Rein Marines Official Version","","http://v10.lscache4.c.youtube.com/videoplayback?sparams=id,expire,ip,ipbits,itag,ratebypass&fexp=906320,912101&itag=37&ipbits=8&signature=315E1C184DA18FC62AC673F6DBD9CCD81386C70B.99F74267E8C2B2AC29ABC772ED071E4CCF998B53&sver=3&ratebypass=yes&expire=1303729200&key=yt1&ip=85.0.0.0&id=ac2ac6e93cc6fa7c&title=Hold it against me 266 Rein Marines Official Version"]]
$i=0
$old=0
$dStart=TimerInit()
$dStart1=TimerInit()
Local $hDownload = InetGet($links[$i][2], @ScriptDir & $links[$i][0] & ".mp4", 1, 1)
Do
tooltip("Видео " & $i &"/" & UBound($links)-1 &" " & _
Round(InetGetInfo($hDownload, 0)/1024/1024, 2)& " mb " & round(InetGetInfo($hDownload, 1)/1024/1024, 2) & " mb"& " " & _
Round((InetGetInfo($hDownload, 0)/1024-$old)/(TimerDiff($dStart)/1000), 2) & ' kb/s Осталось времени: ' & _
Round(((InetGetInfo($hDownload, 1)-InetGetInfo($hDownload, 0))/1024/1024)/(InetGetInfo($hDownload, 0)/1024/1024/(TimerDiff($dStart1)/1000)), 1) & " сек",0,0)
If TimerDiff($dStart)>1000 Then
$old=InetGetInfo($hDownload, 0)/1024
$dStart=TimerInit()
EndIf
sleep(250)
Until InetGetInfo($hDownload, 2)