Поиск ссылок на сайте c последующим переходом

[TrifanAI]

Версия AutoIt: 3.3.14

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

Примечания: Подскажите хотя бы направление по которому нужно решать такого рода задачи.

 

[InnI]

TrifanAI

направление

Зависит от конкретного браузера.

 

[inververs]

и заработать 3 копейки за клик...

 

[uritalex]

OffTopic:
Проще сделать под IE. И зарабатывать по 3 коп , + прикрутить обработчик выполнения заданий То вообще можно мульёнером стать

 

[TrifanAI]

и заработать 3 копейки за клик...

А почему нет?
Или лучше составить бота и быть в ТОПе игры? И при этом еще туда денежку вкидывать стабильно!(((
Не подскажите, ну что же... не беда... Будем искать решение самостоятельно)))
Кстати, кто мешает отбить хотя бы интернет дома... тем более что дома стоит комп пылится по 15-20 часов в сутки)))

P.S. С капчами на форуме реально переборщили))) Особенно с картинкой))) Приходится масштаб менять, чтобы ее нормально прочитать(((

 

[uritalex]

Я конечно не гуру кода но что смог (на что хватает знаний) вот:

#include <GUIConstants.au3>
#include <IE.au3>
#include <Date.au3>
#include <File.au3>

		$oIE = _IECreate('http://base.garant.ru/12167036/', 0, 1)
		Sleep(2000)
		$hnd = _IEPropertyGet($oIE, "hwnd")
	    ConsoleWrite($hnd & "+Запуск+" & _NowTime(4) & @CRLF); можно убрать

    While 1
		Local $oLinks = _IELinkGetCollection($oIE) ; заменил на более подходящий
		If Not @error Then
			ExitLoop
		Else
			Sleep(1000)
		EndIf
	WEnd

	For $oLink In $oLinks
		$sLinKK = $oLink.href  
		$hFile = FileOpen("Log_Link.txt", 1)
            ConsoleWrite($sLinKK & @CRLF)
        	FileWriteLine($hFile, $sLinKK & @CRLF)
        	FileClose($hFile)
        	Sleep (100)

     Next

		$sLines = FileReadLine(@ScriptDir & "\Log_Link.txt", 10); выбирает 10-ю ссылку

   While 1
		Local $oLinkc = _IELinkGetCollection($oIE) ; заменил на более подходящий
		If Not @error Then
			ExitLoop
		Else
			Sleep(1000)
		EndIf
   WEnd

      For $oLinkk In $oLinkc
		If $oLinkk.href == $sLines Then
			_IEAction($oLinkk, "click")
			ExitLoop
		EndIf
	 Next

Подскажите хотя бы направление по которому нужно решать такого рода задачи.

Вот от этого можете и отталкиваться ;)
После прогона при указании новой ссылки файл с ссылками удаляйте или переименовывайте (если ссылки Вам нужны для дальнейших действий)

 

[TrifanAI]

Я конечно не гуру кода но что смог (на что хватает знаний) вот:

Может вы не Гуру, но реально помогли, в отличии издевок ГУРУ ;D ;D ;D
Весьма ВАМ благодарен! Все работает, теперь буду разбираться как оно работает)))