Поиск нужной ссылки (href) в теле страницы

Global $oIE


$oIE = _IEAttach('exbii')


$oLinks = _IETagNameallGetCollection($oIE)
$iNumLinks = @extended
MsgBox (16,'',$iNumLinks)
For $oLink In $oLinks
    If $oLink.outertext == 'jhgj' Then
       MsgBox (16,'нашли!',$oLink.outertext )
       MsgBox (16,'нашли!',$oLink.href)               ; вот тут ошибка.Там (тоесть это все как бы контейнер в тегах TD
                 ;с сообщением,ссылками там..цветом шрифта и т.д.) где я нашел в сообщение слово,там
                 ; и будет ссылка на ... например ответить на это сообщение.
                 ;И как мне на нее указать , я не знаю. 
                 ;И вот вопрос,как мне ...чтоли искать ссыльку на ответ именно в этом контейнере....

    EndIf
Next

$oIE = _IEAttach('exbii')
$oLinks = _IETagNameallGetCollection($oIE)
$iNumLinks = @extended
MsgBox (16,'',$iNumLinks)
For $oLink In $oLinks
	If $oLink.outertext == 'jhgj' Then
		$oLinks_2 = _IELinkGetCollection($oLink)
		For $oLink_2 In $oLinks_2
			MsgBox (16,'нашли!',$oLink_2.outertext )
			MsgBox (16,'нашли!',$oLink_2.href)
		Next
	EndIf
Next

$oDivNav = _IEGetObjById($oIE, 'my_id')
$oLinks = _IELinkGetCollection($oDivNav)
For $oLink In $oLinks
	...
Next

_IELinkClickByText ()

;~ $oIE = _IECreate('http://www.exbii.com/showthread.php?p=29227327')
$oIE = _IEAttach('exbii')
$oLinks = _IETagNameGetCollection($oIE,'TD')
$iNumLinks = @extended
MsgBox (16,'',$iNumLinks)
For $oLink In $oLinks
;~ 	MsgBox (16,'нашли!',$oLink.outertext )
    If StringInStr ($oLink.outertext,'sorry,,,') Then
        $oLinks_2 = _IETagNameGetCollection($oLink,'a')  ; И ВОТ тут мы вытягиваем все ссылки текущего тега.НО 
;почему тогда если _IETagNameAllGetCollection - то выдает вообще много чего лишнего ?
        For $oLink_2 In $oLinks_2
            MsgBox (16,'нашли!',$oLink_2.outertext )
            MsgBox (16,'нашли!',$oLink_2.href)
        Next
    EndIf
Next

#include <ie.au3>
#include <array.au3>
$oIE = _IECreate('http://www.exbii.com/showthread.php?p=29227327')
$sHTML = _IEBodyReadHTML($oIE)
$sPattern = '#<A id=postcount\d+ href="(.*?)"'
$aA = StringRegExp ($sHTML, $sPattern, 3)
_ArrayDisplay ($aA)
_IEQuit($oIE)

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

Dim $sURL = 'http://www.exbii.com/showthread.php?p=29227327'
Dim $sText = 'jhgj' ; Искомое слово


$oIE = _IECreate($sURL)
$oTables = _IETableGetCollection($oIE)
$aResult = _SearchText($sText)

;~  _ArrayDisplay($aResult)
For $i = 0 To UBound($aResult) -1
;~ 	 _ArrayDisplay($aResult[$i][2])	
	Dim $sPostID = $aResult[$i][1]
	Dim $aLink = $aResult[$i][2]
	If IsArray($aLink) Then
		MsgBox( 0, 'Найдено совпадение: "' & $sText &'"', _
				'ID:' & @TAB & @TAB & @TAB & $sPostID & @CRLF & _
				'Номер поста: ' & @TAB & @TAB & $aLink[0][0] & @CRLF & _
				'Пользователь: ' & @TAB & @TAB & $aLink[1][1] & @CRLF & _
				'Домашняя страница: ' & @TAB & $aLink[2][1] & @CRLF & _
				'VCash: ' & @TAB & @TAB & @TAB & $aLink[3][1] & @CRLF & _
				'Ссылка на пост: ' & @TAB & @TAB & $aLink[0][1] & @CRLF )
	EndIf
Next

Func _SearchText($sSearchText)
	
	Local $iIndex = 0, $sResult, $aPost[1][3], $iPostCount = 1, $iLinkCount = 1
	
	For $oTable In $oTables
		If StringRegExp($oTable.id, 'post\d+', 0) Then
			$oDivs = _IETagNameGetCollection($oTable, 'div')
			For $oDiv In $oDivs
			If StringRegExp($oDiv.id, 'post_message_\d+', 0) Then
				If StringInStr(_IEPropertyGet($oDiv, 'InnerText'), $sSearchText) Then 
					If $iPostCount > 1 Then ReDim $aPost[$iPostCount][3]
					$aPost[$iPostCount-1][0] = $iIndex
					$aPost[$iPostCount-1][1] = $oTable.id
					$oLinks = _IETagNameGetCollection($oTable, 'a')
					Dim $aLink[1][2]
					For $oLink In $oLinks
						If _IEPropertyGet($oLink, 'InnerText') <> '' Then 
							If $iLinkCount > 1 Then ReDim $aLink[$iLinkCount][2]
								$aLink[$iLinkCount-1][0] = _IEPropertyGet($oLink, 'InnerText')
								$aLink[$iLinkCount-1][1] = $oLink.href
							$iLinkCount += 1
						EndIf
					Next
					$aPost[$iPostCount-1][2] = $aLink
					$iLinkCount = 1
					$iPostCount += 1
				EndIf
			EndIf
			Next
		EndIf
		$iIndex += 1
	Next
	
	Return $aPost
EndFunc

MsgBox (16,'',getLinkPost($oIE, 'TD', 'A', 'h', 'newreply'))

Func getLinkPost($o_object, $tagA, $tagB, $stringText, $stringLink)

	$oLinks = _IETagNameGetCollection($o_object, $tagA)
	For $oLink In $oLinks
		If StringInStr($oLink.outertext, $stringText) Then
			$oLinks_h = _IETagNameGetCollection($oLink, $tagB)
			For $oLink_h In $oLinks_h
				$resultLink = $oLink_h.href
				If StringInStr($resultLink, $stringLink) Then
					Return $resultLink
					ExitLoop
				EndIf
			Next
		EndIf
	Next

EndFunc   ;==>getLinkPost