Рекурсивный поиск тега по названию класса

Dim $tags[4][2] = [ ["div", "mddl"], ["div", "c"], ["div", "grad purse"], ["p", "top_text"] ]
$oObj = _GetRecursiveObject($oIE, $tags)

Dim $tags[4][2] = [ ["div", "mddl"], ["div", "c"], ["div", "grad purse"], ["p", "top_text"] ]
	$oTags = _IETagNameGetCollection ($oIE, $tags[0][0])
	For $oTag In $oTags
		If $oTag.classname = $tags[0][1] Then
			MsgBox(0, "Info", "Tag: " & $oTag.tagname & @CR & "class: " & $oTag.classname)
		EndIf
	Next

Func _GetRecursiveObject($rootObj, ByRef $array)
	Local $objs[20]
	Local $counts[20]
	Local $pos[20]
	Local $obj_num = 0
	$objs[0] = $rootObj

	Local $ubound = UBound($array)
	Local $class = "", $obj = -1, $j

	_IETagNameGetCollection($objs[0], $array[0][0])
	$counts[0] = @extended

	While $obj_num > -1
		If $counts[$obj_num] <= 0 Then
			$obj_num -= 1
		Else
			For $j=$pos[$obj_num] To $counts[$obj_num]-1
				$obj = _IETagNameGetCollection($objs[$obj_num], $array[$obj_num][0], $j)
				$class = $obj.className
				;MsgBox(0,"","obj_num = " & $obj_num & ", $counts[$obj_num] = " & $counts[$obj_num] & ", class = " & $class & ", $array[$obj_num][1] = " & $array[$obj_num][1])

				If IsString($class) AND String($class) = $array[$obj_num][1] OR StringInStr(String($class), $array[$obj_num][1] & " ")  Then
					$pos[$obj_num] = $j+1

					$obj_num += 1

					If $obj_num = $ubound Then
						ExitLoop 2
					Else
						$pos[$obj_num] = 0
						$objs[$obj_num] = $obj

						_IETagNameGetCollection($objs[$obj_num], $array[$obj_num][0])
						$counts[$obj_num] = @extended

						ExitLoop
					EndIf
				EndIf
			Next
		EndIf
	WEnd

	If $obj <> -1 Then
		Return $obj
	Else
		SetError(1,0,-1)
	EndIf
EndFunc

#include <IE.au3>
#Include <Array.au3>

Dim $tags[4][2] = [ ["div", "mddl"], ["div", "c"], ["div", "grad purse"], ["p", "top_text"] ]

$oIE = _IECreate ("http://autoit-script.ru")
_IELoadWait ($oIE)

$oObj = _GetRecursiveObject($oIE, $tags)

If $oObj = 0 Then
	MsgBox(0, "Результат", "Ничего нет")
Else
	MsgBox(0, "Результат", "Tagname: " & $oObj.tagname & @CR & "class: " & $oObj.classname & @CR & "text: " & $oObj.innertext)
EndIf

Func _GetRecursiveObject($ooo, $ttt)

	If UBound($ttt) = 0 Then Return $ooo
	
	Local $ttt1 = $ttt
	_ArrayDelete($ttt1, 0)

	Local $oTag
	Local $oTags = _IETagNameGetCollection ($ooo, $ttt[0][0])
	For $oTag In $oTags
		If $oTag.classname = 0 Then ContinueLoop
		If $oTag.classname = "mddl" Then
			If _GetRecursiveObject($oTag, $ttt1) <> 0 Then Return $oTag
		EndIf
	Next

	Return 0
EndFunc