Что нового

[Сеть, интернет] Переход по ссылке и загрузка файла через щелчок мышью

dimart

Новичок
Сообщения
21
Репутация
0
Версия AutoIt: 3

Описание:
Нужно, чтобы автоматически перешли по этой ссылке:

http://www.pagerage.com/?affid=19&s1=4789&s2=none&s3=us-&s4=direct&s5=&cid=3&FiliAff=4789&MIAFFSID=filitrack#

И нажали на "GET THE PLUG-IN!"

Пробовал через IE команды, объекты и т. д., но так и не получилось, нужна помощь.
(похоже там какой-то javascript
Примечания:
Можно через интернет эксплорер начать закачку, главное начать :smile:

С Днём Святого Валентина! ;)
 
Автор
D

dimart

Новичок
Сообщения
21
Репутация
0
OffTopic:
у меня уже за 12 часов :smile:
 

`p r o x y

«Улыбайтесь, господа!»
Команда форума
Глобальный модератор
Сообщения
596
Репутация
157
А может сразу файл качать?
Код:
InetGet('http://download.yontoo.com/YontooClientSetup.exe', @ScriptDir & '\YontooClientSetup.exe', 1)


Если нужен IE:
Код:
#include <IE.au3>

Global	$oIE, $oDIV, $sURL = 'http://www.pagerage.com/?affid=19&s1=4789&s2=none&s3=us-&s4=direct&s5=&cid=3&FiliAff=4789&MIAFFSID=filitrack#'

$oIE 	= _IECreate($sURL)
$oDIV	= _IEGetObjById($oIE, 'LeftColumnNavigation')
_IELinkClickByIndex($oDIV, 0)
 
Автор
D

dimart

Новичок
Сообщения
21
Репутация
0
огромная просьба объяснить кое-что. :smile:
Я так понял чтобы щёлкнуть на кнопку(гиперссылку) в странице, нужно достать что-то из кода страницы, можете объяснить что?

P.S. И НЕ в Интернет Эксплорере будет это работать? Возможно это реализовать?

Заранее всех благ :smile:
 

Garrett

Модератор
Локальный модератор
Сообщения
3 999
Репутация
964
dimart [?]
Я так понял чтобы щёлкнуть на кнопку(гиперссылку) в странице, нужно достать что-то из кода страницы, можете объяснить что?
Ничего доставать не нужно! Вы просто работаете с объектной моделью документа через COM/OLE браузера IE.

P.S. И НЕ в Интернет Эксплорере будет это работать? Возможно это реализовать?
Если только через WinHTTP.
 
Автор
D

dimart

Новичок
Сообщения
21
Репутация
0
вот сайт
http://www.widestream6.com/es/lp/008?&eme=FN9_v_dCt3

никак не получается сделать чтоб щёлкнуло по кнопке "¡Descargar películas ahora!", делал по аналогии с примером выше, в чём ошибка?
щёлкает не туда :(


Код:
#include <IE.au3>
Global  $oIE, $oDIV, $sURL = 'http://www.widestream6.com/es/lp/008?&eme=FN9_v_dCt3'
$oIE    = _IECreate($sURL)
$oDIV   = _IEGetObjById($oIE, 'container')
_IELinkClickByIndex($oDIV, 0)
 

madmasles

Модератор
Глобальный модератор
Сообщения
7 790
Репутация
2 319
dimart [?]
никак не получается сделать чтоб щёлкнуло по кнопке "¡Descargar películas ahora!"
Сходил по ссылке, перекидывает на http://www.widestream6.com/es/lp/006?&eme=FN97v7KCt3, этой кнопки не нашел.
 
Автор
D

dimart

Новичок
Сообщения
21
Репутация
0
Должно вот сюда
http://www.widestream6.com/es/lp/008?&eme=FN9_v_dCt3

Заменил в предыдущем моём посте
 

madmasles

Модератор
Глобальный модератор
Сообщения
7 790
Репутация
2 319
dimart
Попробуйте так, у меня скачалось (IE-8, Windows XP SP3).
Код:
#include <IE.au3>

$sUrl = 'http://www.widestream6.com/es/lp/008?&eme=FN9_v_dCt3'
$oIE = _IECreate($sUrl)
$oLinks = _IETagNameGetCollection($oIE, 'a')
For $oLink In $oLinks
	If $oLink.className == 'button' And StringInStr($oLink.title, 'ahora') Then
		_IEAction($oLink, 'click')
		ExitLoop
	EndIf
Next

$hWin = WinWait('Скачать файл', '', 20)
If $hWin Then
	ControlClick($hWin, '', '[CLASS:Button; INSTANCE:3]')
EndIf
$hWin = WinWait('Сохранить как', '', 5)
If $hWin Then
	ControlClick($hWin, '', '[CLASS:Button; INSTANCE:2]')
EndIf
 
Верх