[amel27]

Creat0R

А что если объявлять локально переменные которые не изменяются нигде, это повлияет на результаты?

не повлияет, только значение $InetBytesBack придется вбивать дважды - при определении массива и в функции, а $InetSpeed в твоем случае и вовсе не нужна - можно просто заменить "$InetSpeed = <формула>" на "Return <формула>"

Ну не очень мне нравится идея с Adlib в этом случае

Свои предпочтения нужно обосновывать.
AdLib хорош тем, что он не зависит от скрипта (есть соединение или нет) и временной интервал всегда одинаков. В твоем варианте интервал между "временнЫми засечками" на самом деле >100 ровно на столько, сколько потребуется скрипту на выполнение команд после Sleep(100). Обычно это неcущественно, но в общем случае он может быть любым (особенно если где-нибудь есть еще один Sleep() ), соответственно показания скорости будут неверными. Для сохранения точности придется в дополнение к @InetGetBytesRead сохранять показания TimerInit(), хотя интервал замера уже перестанет быть фиксированным... Кроме того инициализацию массива придется возложить на основной скрипт, так как функция не знает старая это закачка или новая.

Код:

Global $InetBytesRead

InetGet("http://downloadmirror.intel.com/6667/eng/ISM556_Build7.exe", "test.exe", 1, 1)
_GetProgressSpeed ($InetBytesRead, @InetGetBytesRead, 100)

While @InetGetActive
    Sleep(100)
    $bytes = StringFormat('Downloads: %d Kb',@InetGetBytesRead/1024)
    $speed = StringFormat('Speed: %d Kb/Sec',_GetProgressSpeed ($InetBytesRead, @InetGetBytesRead) *0.9765625)
    TrayTip('', $bytes & @CRLF & $speed, 10, 16)
Wend

Func _GetProgressSpeed (ByRef $arrValueBack, $intValue = -1, $intCountBack = 0)
    Local $nb, $nt, $bound = UBound($arrValueBack,1)
    If $intCountBack<=0 Then $intCountBack = $bound-1 ; Восстанавливаем актуальное значение глубины отката
    ; Блок инициализации массива и контроля ошибок
    If $intCountBack<=0 Then Return SetError(1, 0, -1) ; Ошибка размерности 1
    If $intValue<0 Then
        Dim $arrValueBack [$intCountBack+1][2] = [[1,TimerInit()]]
        Return 0
    ElseIf $intCountBack<>$bound-1 Then
        Dim $arrValueBack [$intCountBack+1][2] = [[1,TimerInit()],[$intValue,TimerInit()]]
        Return 0
    Else
        If UBound($arrValueBack,2)<2 Then Return SetError(2, 0, -1) ; Ошибка размерности 2
        If ($arrValueBack[0][0]<=0) Or ($arrValueBack[0][0]>$intCountBack) Then  Return SetError(3, 0, -1) ; Ошибка целостности
    EndIf
    ; Ищем следующую ячейку массива
    $arrValueBack[0][0]+=1
    If $arrValueBack[0][0] > $intCountBack Then $arrValueBack[0][0]=1
    ; Сохраняем значения массива в переменных (цикл назад)
    $nb = $arrValueBack[$arrValueBack[0][0]][0]
    $tb = $arrValueBack[$arrValueBack[0][0]][1]
    ; Записываем новые значения загруженных байт и время
    $arrValueBack[$arrValueBack[0][0]][0] = $intValue
    $arrValueBack[$arrValueBack[0][0]][1] = TimerInit()
    ; Выбираем формулу в зависимости от того проходим первый цикл или нет
    If $nb =0 Then Return $arrValueBack[$arrValueBack[0][0]][0] / TimerDiff($arrValueBack[0][1])
    Return ($arrValueBack[$arrValueBack[0][0]][0]-$nb) / TimerDiff($tb)
EndFunc

Разве не на 1024 нужно делить?

с учетом вышеизложенного это мелочи
...кстати, множитель 0.9765625 как раз отвечает за перевод исходной величины Byte/ms в KByte/sec