Что нового

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

serser366

Новичок
Сообщения
4
Репутация
0
Здравствуйте!!!
Доброго времени суток всем,
: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

Must AutoIt!
Команда форума
Администратор
Сообщения
8,666
Репутация
2,463
Не нужно всё подряд выделять, пишите обычно, выделяете только действительно важные участки.
 

Garrett

Модератор
Локальный модератор
Сообщения
3,999
Репутация
964
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



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

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

serser366

Новичок
Сообщения
4
Репутация
0
Вот это класс!!
Прям высший пилотаж!!
Огромное спасибо за код,
Разобрался , что к чему.
Вопросов больше нет на эту тему.
Только Господа вы меня извените
пожалуйста за вопрос:
а как тему пометить Решеной?
кто должен это сделать?
Пожалуйста извените , если что не так!
 

kaster

Мой Аватар, он лучший самый
Команда форума
Глобальный модератор
Сообщения
4,020
Репутация
622
serser366
найди эту кнопку на панели. чуть выше строки с сообщением. наз-ся - пометить тему решенной, или что-то в этом роде. так же сделать это могут супермодераторы или админы
 
Верх