[Автоматизация] Навигация по страницам поисковика в IE.

serser366 · 4 Ноя 2010

Здравствуйте!!!
Доброго времени суток всем, :IL_AutoIt_1:

1 Запускаем браузер IE.
2 Заходим в поисковик , например Яндекс.
3 Вводим в поле фразу или слово для поиска 'Autoit' .
4 В открытой |1| странице поисковика видим ссылки на сайты,
а в самом низу страницы сайта ,
номера страниц |1|2|3|4|5|6|7|8|9|10|...... далее

Необходимо, автоматом , средствами Autoit , без участия мыши и клавиатуры ,
не используя TAB, перейти на страницу |2| поисковика.

При использовании DebugBar V5.4.1
DIV dass=b-pager_pages
<> B class=b-pager_current ; [1] стр [0] ин-кс
<> http://yandex.ru/yandsearch?p=1&text=Autoit&lr=10762 ; [2] стр [1] ин-кс
<> http://yandex.ru/yandsearch?p=2&text=Autoit&lr=10762 ; [3] стр [2] ин-кс
<> http://yandex.ru/yandsearch?p=3&text=Autoit&lr=10762 ; [4] стр [3] ин-кс
<> http://yandex.ru/yandsearch?p=4&text=Autoit&lr=10762 ; [5] стр [4] ин-кс
<> http://yandex.ru/yandsearch?p=5&text=Autoit&lr=10762 ; [6] стр [5] ин-кс
<> http://yandex.ru/yandsearch?p=6&text=Autoit&lr=10762 ; [7] стр [6] ин-кс
<> http://yandex.ru/yandsearch?p=7&text=Autoit&lr=10762 ; [8] стр [7] ин-кс

При просмотре форума я понял ,
что надо использовать индексы [0. 1. 2. 3. и т. д.]
Вопрос : Кокой функцией воспользоваться в данном случае ?
В справке ничего подобного не нашёл.
Решил обратиться за помощью к Вам.

Приведите пожалуйста пример кода.
Или , укажите тему где подобный вопрос рассматривался ранее.
Буду очень благодарен, заранее СПАСИБО.!
:ok:

CreatoR · 4 Ноя 2010

Не нужно всё подряд выделять, пишите обычно, выделяете только действительно важные участки.

Garrett · 4 Ноя 2010

serser366 [?]

не используя TAB, перейти на страницу |2| поисковика

Код:

#include <IE.au3>

If WinExists("[CLASS:IEFrame]") Then
	WinActivate("[CLASS:IEFrame]")
	$oIE = _IEAttach("http://yandex.ru/yandsearch?", "URL")
Else
	$oIE = _IECreate("http://yandex.ru/yandsearch?text=Autoit&clid=46510&lr=213")
EndIf

_Pages($oIE, 2)
_Pages($oIE, 3)
_Pages($oIE, 6)

Func _Pages($oAttach, $iNumPage)

	$oLinkPages = _IETagNameGetCollection($oAttach, "a")
	For $oLinkPage In $oLinkPages
		If $oLinkPage.className = "b-pager__page" Then
			$sLinkText = _IEPropertyGet($oLinkPage, "innerText")
			If $sLinkText = $iNumPage Then
				_IEAction($oLinkPage, "click")
				ExitLoop
			EndIf
		EndIf
	Next
	
EndFunc

Добавлено:
Сообщение автоматически объединено: 4 Ноя 2010

Как сделать поисковой запрос (для разных поисковиков), уже писалось неоднократно. Поищите на форуме.

serser366 · 20 Ноя 2010

Вот это класс!!
Прям высший пилотаж!!
Огромное спасибо за код,
Разобрался , что к чему.
Вопросов больше нет на эту тему.

Только Господа вы меня извените
пожалуйста за вопрос:
а как тему пометить Решеной?
кто должен это сделать?
Пожалуйста извените , если что не так!

kaster · 20 Ноя 2010

serser366
найди эту кнопку на панели. чуть выше строки с сообщением. наз-ся - пометить тему решенной, или что-то в этом роде. так же сделать это могут супермодераторы или админы

Автор темы	Похожие темы	Форум	Ответы	Дата
A	Автоматизация, копирование текста в строке до знака \| и после знака \|	Общие вопросы по AutoIt	0	9 Ноя 2024
X	Автоматизация Автоматизация входа в игру с переименованным окном	Стол заказов	0	22 Окт 2024
N	Автоматизация нажатия клавиш мышки.	Покупка/продажа, поиск услуг	1	24 Апр 2024
G	Автоматизация + сообщение в ТГ	Стол заказов	0	28 Фев 2024
	Автоматизация WinSCP через COM. Копирование файлов с индикатором прогресса	Общие вопросы по AutoIt	1	17 Янв 2024

Поиск

Поиск

[Автоматизация] Навигация по страницам поисковика в IE.

serser366

Новичок

CreatoR

Must AutoIt!

Garrett

Модератор

serser366

Новичок

kaster

Мой Аватар, он лучший самый