Вывод прогресс чтения страницы с помощью InetRead

$oRequest = ObjCreate('WinHttp.WinHttpRequest.5.1')
$oRequest.Open('HEAD', 'http://yandex.ru')
$oRequest.SetRequestHeader('User-Agent', 'aubro')
$oRequest.Send('')
MsgBox(32, '', $oRequest.GetResponseHeader("Content-Length"))

#include <Array.au3>

$aStatus = CheckParcelFromTrackNumber('RD058035771CN')
If IsArray($aStatus) Then
	_ArrayDisplay($aStatus)
EndIf

Func CheckParcelFromTrackNumber($sTrackId)
	Local $oHttp, $sResponse, $aParse, $aItem, $aResult[1][1], $i, $x

	$oHttp = ObjCreate('WinHttp.WinHttpRequest.5.1')
	If IsObj($oHttp) Then
		$oHttp.Open('GET', 'http://gdetoedet.ru/track/' & $sTrackId & '.print')
		$oHttp.SetRequestHeader('Connection', 'close')
		$oHttp.SetRequestHeader('User-Agent', 'AutoItPostChecker')
		$oHttp.SetRequestHeader('Host', 'gdetoedet.ru')
		$oHttp.Send()
		If ($oHttp.WaitForResponse And ($oHttp.Status == 200)) Then
			$sResponse = StringStripWS($oHttp.ResponseText, 4)
			If ($sResponse <> '') Then
				$aParse = StringRegExp($sResponse, '(?is)<tr>(.*?)</tr>', 3)
				If IsArray($aParse) Then
					ReDim $aResult[UBound($aParse)][1]
					For $i = 0 To UBound($aParse) - 1
						$aItem = StringRegExp($aParse[$i], '(?is)<t.*?>(.*?)</t.*?>', 3)
						If IsArray($aItem) Then
							If (Ubound($aResult, 2) < UBound($aItem)) Then
								ReDim $aResult[UBound($aResult)][UBound($aItem)]
							EndIf
							For $x = 0 To UBound($aItem) - 1
								$aResult[$i][$x] = StringRegExpReplace($aItem[$x], '(?i)<.*?>(.*?)<.*?>', '$1')
							Next
						Endif
					Next
					Return $aResult
				EndIf
			EndIf
		EndIf
	EndIf
	Return 0
EndFunc

MsgBox(0, '', InetGetSize('http://gdetoedet.ru/track/RD058035771CN.print'))