#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