Что нового

Как нажать "Подписаться" на youtube

ckret

Новичок
Сообщения
44
Репутация
0
Youtube какой то очень вредный сервис...
Не получается кликнуть на кнопку подписаться на канал, хотя реализация функции подписаться на канал на стороннем сайте не вызвала ни каких трудностей.
Подскажите способ как победить эту кнопку.
 

alex33

Скриптер
Сообщения
1,457
Репутация
186
Попробуйте так:
Код:
#include <IE.au3>
Local $sURL, $oIE, $oButtons
$sURL = "http://www.youtube.com/user/FantomasSamos/" ; ссылка на канал или аккаунт
_IELoadWaitTimeout(10000)
$oIE = _IECreate($sURL)
$oButtons = _IETagNameGetCollection($oIE, "button")
If IsObj($oButtons) Then
	For $oButton In $oButtons
		If StringInStr(StringStripWS(_IEPropertyGet($oButton, "innerhtml"), 8), ">Подписаться</span>") > 0 Then
			_IEAction($oButton, "click")
			Do
				Sleep(1000)
				;~ ConsoleWrite("attr:" & $oButton.getAttribute("aria-busy") & @CRLF)
			Until ($oButton.getAttribute("aria-busy") = "false" Or $oButton.getAttribute("aria-busy") = "0" Or $oButton.getAttribute("aria-busy") = "")
			ExitLoop
		EndIf
	Next
EndIf
;~ _IENavigate($oIE, "ya.ru/")
 
Автор
C

ckret

Новичок
Сообщения
44
Репутация
0
Очень интересное решение ! Благодарю за помощь! :beer:
 

alex33

Скриптер
Сообщения
1,457
Репутация
186
Вот пример практически в одну строку, но без проверок и не работающий в IE6.
Код:
#include <IE.au3>
Local $sURL, $oIE, $oButtons
$sURL = "http://www.youtube.com/user/FantomasSamos/" ; ссылка на канал или аккаунт
_IELoadWaitTimeout(10000)
$oIE = _IECreate($sURL)
$oIE.document.querySelector("button span.subscribe-label").parentNode.click();
 

RockMan

Новичок
Сообщения
67
Репутация
0
подскажите, как можно дополнить этот код чтобы визуально ничего не открывалось на экране? и можно ли такое сделать на кнопку "мне нравится" ?
 

Kaen

Новичок
Сообщения
6
Репутация
0
Да, как можно это сделать для кнопки " мне понравилось" ?
Перебрал все классы от неё - не получается. :stars:
ТАкже интересно как это реализовать не в ИЕ, а в браузере по умолчанию и с отключением звука :-[

:IL_AutoIt_1:
 
Верх