Что нового

Переход на сайт с поисковика

alex.n201

Новичок
Сообщения
25
Репутация
1
Нужно перейти на сайт через поисковик, что б был засчитан переход
Вбиваю поисковый запрос, нахожу адрес сайта но кликнуть не получается
Код:
<div class=”rc” - 2.обращаюсь к родительским эл и дохожу сюда
<h3 class=”r”></h3> - 3.здесь название сайта, Как сюда кликнуть?
...
...
...
<cite class="_Rm">https://<b>site</b>.ua/</cite> - 1.адрес сайта

Код:
#include <IE.au3>
#include <Array.au3>
HotKeySet('{Esc}', '_Exit'); выход по кнопке Esc

Global $sText = "сайт"
Global $sLink = "https://sITe.ua/"

$oIE = _IECreate("https://www.google.com.ua/")
$oPole = _IEGetObjById($oIE, "lst-ib")
Send($sText&"{ENTER}")
Sleep (3000) ; Как вместо паузы ждать загрузки страницы?

   ;ищем адрес сайта на странице в теге cite
   $oElements = _IETagNameGetCollection ($oIE, "cite")
   For $oElement In $oElements
	 If ($sLink = $oElement.innerText) Then
		;$cl = $oElement.parentNode.parentNode.parentNode.parentNode
		$cl = $oElement.parentNode.parentNode.parentNode.parentNode.parentNode.getElementsByTagName("h3").item(0) ;сюда нужно кликнуть
	 EndIf
	  Next
	  
	  _IEAction ($cl, "click"); так не выходит
	  ;MsgBox(0, "", $cl.innerText)

Func _Exit()
    Exit
EndFunc   ;==>_Exit
 

Garrett

Модератор
Локальный модератор
Сообщения
3,999
Репутация
967
Код:
#include <IE.au3>
HotKeySet('{Esc}', '_Exit'); выход по кнопке Esc

Global $sText = "сайт"
Global $sLink = "https://sITe.ua/"
Global $sWord = "site.ua – клуб українських топ-блогерів"

$oIE = _IECreate("https://www.google.com.ua/")
$oForm = _IEFormGetObjByName($oIE, "f")
$oIpt = _IEFormElementGetObjByName($oForm, "q")
_IEFormElementSetValue($oIpt, $sText)
_IEFormSubmit($oForm)
$oEls = _IELinkGetCollection($oIE)
For $oEl In $oEls
	If _IEPropertyGet($oEl, "innertext") == $sWord Then
		_IEAction($oEl, "click")
		ExitLoop
	EndIf
Next

Func _Exit()
    Exit
EndFunc   ;==>_Exit
 
Автор
A

alex.n201

Новичок
Сообщения
25
Репутация
1
Спасибо, это не совсем то что нужно, но смысл я понял :smile:
 
Верх