Ловим ссылку привязанную к кнопке, и копируем ее в поле адреса браузера (?)

[zbruy]

Вот такая задачка. Есть некий сайт, на котором появляется несколько гипер ссылок, нужно из первой вырвать адрес и вставить ее в панель адреса браузера. Задача слегка усложняется тем, что сылка в кнопке не полная, есть статичный кусок, который для всех кнопок одинаков. Сам как не пыжился сделать пока не смог, использование функций IE пока для меня большая загадка, при том, что я не в ладах с английским, а русской справки по IE нету=( Код выглядит так (приводить полностью не буду, т .к. код большой):

должна получится конструкция которая будет кидать в поле ввода адреса статичную часть адреса + часть ссылки 1



ЗЫ. сорри, что не даю настоящих ссылкок, там информация специфическая, поэтому и не даю сам сайт.



Заранее спасибо за любую помощь, кроме "кури все по IE"

[Sp01LeR]

Лично я в примере ни одной кнопки (может картинки с ссылкой?) не увидел. Так что, если автор хочет, что бы ему помогли, то пусть даст более наглядный пример.

[Sp01LeR]

Виноват, не верно изложил, не кнопка, а текст-ссылка, гиперссылка.

поправил, надеюсь так понятнее станет

[Sp01LeR]

Сразу скажу, что я считаю использование UDF недостаточно гибким вариантом, поэтому вот примерная реализация с помощью регулярки, для готового рабочего варианта нужен исходник хтмл-кода - без него никак...

Код: Выделить всё

#include <INet.au3>
#include <Array.au3>
Dim $prot = "http://"
Dim $domen = "сайт.ру"
Dim $delim = "/"
Dim $s_get = "index.html"
Dim $browser = "iexplore.exe"
$get_data = _INetGetSource($domen&$delim&$s_get)
If @Error = 1 Then
	MsgBox(16, "Error", "Не могу загрузить страницу!")
	Exit
Else
	MsgBox(4096, "Ok!", "Загружено: "&StringLen($get_data)&" байт")
EndIf
$qts = "['""]"
$prs_data = "<a.*href="&$qts&"(.*)"&$qts&".*>(.[^><]*ссылки\s1.[^><]*)</a><br/><br/>"
$prs_arr = StringRegExp($get_data, $prs_data, 1)
If UBound($prs_arr) > 0 Then
	_ArrayDisplay( $prs_arr, "Результаты поиска:" )
	;далее запускаем браузер $browser
	;ставим фокус на панель адреса (у большинства браузеров клавишей {F6})
	;и высылаем в панель адреса строку:
	;Send($prot&$domen&$delim&$prs_arr[0]{ENTER})
Else
	MsgBox(16, "Reg Exp Error", "Ошибка поиска по шаблону. Код ошибки="&@error)
EndIf

[zbruy]

Sp01LeR, Спасибо. По крайней мере есть неплохая основа, с которой можно работать, буду пробовать, хотя не уверен что это мне поможет. У меня сначала на сайте нужно залогинится, а потом закидывать с каждой новой страницы первую ссылку в панель адреса и так до бесконечности.