Что нового

[Сеть, интернет] Клик по ссылке после перехода на другой адрес

Lum

Новичок
Сообщения
61
Репутация
3
Приветствую всех!
В общем возникла у меня проблема, которую не могу решить уже довольно долго. Перерыла весь форум, перепробовала все возможное и не возможное, но все равно не сдвинулась с места.

В общем после нажатия кнопки (нажимает, здесь все в порядке) есть тайм-аут 5 минут (решила это с помощью слипа), по завершению тайм-аута открывается страница с другим адресом, вот на этой странице необходимо нажать на ссылку. До момента нажатия на ссылку все выглядит примерно так:
Код:
While 1
	Switch GUIGetMsg()
		Case $GUI_EVENT_CLOSE
		Case $Button1 ; После нажатия кнопки запустить скрипт
		Sleep (1000) ; Время после которого запуститься скрипт
		; Нажать на кнопку
		$oIE = _IECreate("http://www.ххх.php")
		$oInputs = _IETagNameGetCollection($oIE, "input")
			For $oInput In $oInputs
				If $oInput.type="submit" And $oInput.name="имя инпутаf" Then
					_IEAction($oInput, "click")
				EndIf
			Next
		Sleep (310000) ; тайм-аут 5 минут		
	EndSwitch
WEnd

Примерно так.

Сама страница выглядит примерно так:
Код:
 <P class=veg_ууу_txt_a><A href="zzz.php?leave=bbb_next">текст ссылки</A> </P>
 

Garrett

Модератор
Локальный модератор
Сообщения
3,999
Репутация
967
Lum [?]
по завершению тайм-аута открывается страница с другим адресом
Кем и чем? :smile:

Так или иначе, я понял вас так:
Код:
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <IE.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Autoit", 161, 91, 192, 114)
$Button1 = GUICtrlCreateButton("Отправить", 42, 27, 75, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
   Switch GUIGetMsg()
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Button1 ; После нажатия кнопки запустить скрипт
			_Go()
   EndSwitch
WEnd

Func _Go()
	Sleep (1000) ; Время после которого запуститься скрипт
	
	; Нажать на кнопку
	$oIE = _IECreate("http://ya.ru")
	$oInputs = _IETagNameGetCollection($oIE, "input")
	
	For $oInput In $oInputs
		If $oInput.type="submit" And $oInput.value="Найти" Then
			_IEAction($oInput, "click")
		EndIf
	Next
	
	Sleep (3000) ; тайм-аут 5 минут 
	
	_IENavigate($oIE,"http://google.ru")
	_IELinkClickByText ($oIE, "Новости") ; Текст ссылки
EndFunc
 
Автор
L

Lum

Новичок
Сообщения
61
Репутация
3
:laugh: Спасибо огромное! Заработало! В жизни бы не подумала _IENavigate использовать)

Премного благодарна ;D
 

Garrett

Модератор
Локальный модератор
Сообщения
3,999
Репутация
967
Рад был помочь!
 
Верх