Что нового

[Автоматизация] Навигация по страницам поисковика в 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 471
Репутация
2 401
Не нужно всё подряд выделять, пишите обычно, выделяете только действительно важные участки.
 

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
найди эту кнопку на панели. чуть выше строки с сообщением. наз-ся - пометить тему решенной, или что-то в этом роде. так же сделать это могут супермодераторы или админы
 
Верх