Как получить ссылку в виде текста из html документа

$oIE = _IECreate("www.site.com")
$sText = _IEBodyReadText ($oIE)
$sResult = StringInStr($sText, "www.site.com")

$sHTML = '
Пожалуйста, подтвердите его, воспользовавшись этой ссылкой:' & @CRLF & _
		'
http://www.site.com/80506647.47e5sxvftjkze47 ' & @CRLF & _
		'
(если ссылка не открывается по нажатию, скопируйте её и вставьте в адресную строку своего браузера)'

$sUrl = StringRegExpReplace($sHTML, '(?s).*(\Qhttp://www.site.com/\E.+?)\h.*', '$1')
If @extended <> 1 Then Exit 13
MsgBox(64, 'Info', $sUrl)