Author Topic: Умники и умницы ХЭЭЭЛП  (Read 4931 times)

0 Members and 1 Guest are viewing this topic.

gogodanse

  • Освоившийся
  • **
  • Posts: 58
    • View Profile
Умники и умницы ХЭЭЭЛП
« on: September 03, 2020, 01:28:37 AM »
1.Получаем HTTPGET
2.Если находим нужные слова получаем айди
3.Ищем в коде строчку с масивом "videoId\":\"P_nlzisJQac\" жирным выделен айди
4.Нашли и копируем в буфер обмена

Накидал код но прога вылетает с ошибкой, значит ошибка у меня в мозгу


$HTML = HTTPGET ("https://www.youtube.com/watch?v=P_nlzisJQac")
if ((strpos($HTML, "СЕЙЧАС СМОТРЯТ:") > 0) | (strpos($HTML, "НАЧАЛАСЬ") > 0))
$str = TFREAD($HTML)
STRSEPARATE($str, STRCONCAT(CHAR(34), "videoId", CHAR(34), ":"), $arr)
$our_code = STRFILTER($arr[1], CHAR(34), 0)
LOGWRITE ($our_code) //
END_IF
HALT

gogodanse

  • Освоившийся
  • **
  • Posts: 58
    • View Profile
Re: Умники и умницы ХЭЭЭЛП
« Reply #1 on: September 04, 2020, 12:41:44 AM »
$var = HTTPGET("https://www.youtube.com/channel/UCi_VsjkIy8vPMQnRMhPu9OA/live")

 
STRSEPARATE($var, STRCONCAT(CHAR(34), "videoId", CHAR(34), ":" ), $arr)

$our_code = STRFILTER($arr[1], CHAR(34), 0)
 
LOGWRITE ($our_code)

HALT

В логе появляется айди но сразу после него лишний хлам



Vint

  • Супермодератор
  • Герой форума
  • *
  • Posts: 3935
  • Лечу куда хочу. cman 4.13.014x32, 4.14.003 W10
    • View Profile
Re: Умники и умницы ХЭЭЭЛП
« Reply #2 on: September 04, 2020, 09:21:04 AM »
У меня с ютуба вообще не получает ответ.

Code: (clickermann) [Select]
$template = STRCONCAT(CHAR(34), "videoId\", CHAR(34), ":" )
$start = STRPOS($var, $template) + 13
$end = STRPOS($var, "\", $start) - 1
$our_code = STRCUT2($var, $start, $end)


gogodanse

  • Освоившийся
  • **
  • Posts: 58
    • View Profile
Re: Умники и умницы ХЭЭЭЛП
« Reply #3 on: September 04, 2020, 11:46:20 AM »
У меня с ютуба вообще не получает ответ.

Code: (clickermann) [Select]
$template = STRCONCAT(CHAR(34), "videoId\", CHAR(34), ":" )
$start = STRPOS($var, $template) + 13
$end = STRPOS($var, "\", $start) - 1
$our_code = STRCUT2($var, $start, $end)

.dll для чтения сертификата https закидывал ?

gogodanse

  • Освоившийся
  • **
  • Posts: 58
    • View Profile
Re: Умники и умницы ХЭЭЭЛП
« Reply #4 on: September 04, 2020, 02:29:27 PM »
У меня просто софт закрывается с ошибкой

gogodanse

  • Освоившийся
  • **
  • Posts: 58
    • View Profile
Re: Умники и умницы ХЭЭЭЛП
« Reply #5 on: September 04, 2020, 02:41:26 PM »
Есть у кого идеи ?

Vint

  • Супермодератор
  • Герой форума
  • *
  • Posts: 3935
  • Лечу куда хочу. cman 4.13.014x32, 4.14.003 W10
    • View Profile
Re: Умники и умницы ХЭЭЭЛП
« Reply #6 on: September 04, 2020, 02:51:44 PM »
.dll для чтения сертификата https закидывал ?
Нет. Теперь закинул.
Оно мне без надобности было, я подобные вещи на кликере не делаю.


Vint

  • Супермодератор
  • Герой форума
  • *
  • Posts: 3935
  • Лечу куда хочу. cman 4.13.014x32, 4.14.003 W10
    • View Profile
Re: Умники и умницы ХЭЭЭЛП
« Reply #7 on: September 04, 2020, 02:52:45 PM »
Подожди, подожди. А мой пример? У меня всё работает. Там нечему закрываться с ошибкой.

Code: (clickermann) [Select]
$var = HTTPGET("https://www.youtube.com/channel/UCi_VsjkIy8vPMQnRMhPu9OA/live")

$template = STRCONCAT(CHAR(34), "videoId\", CHAR(34), ":" )
$start = STRPOS($var, $template) + 13
$end = STRPOS($var, "\", $start) - 1
$our_code = STRCUT2($var, $start, $end)

LOGWRITE($our_code)
HALT

лог
Code: [Select]
14:58:13 XOuXIlN5MAI
« Last Edit: September 04, 2020, 02:59:07 PM by Vint »


gogodanse

  • Освоившийся
  • **
  • Posts: 58
    • View Profile
Re: Умники и умницы ХЭЭЭЛП
« Reply #8 on: September 04, 2020, 05:09:33 PM »
Подожди, подожди. А мой пример? У меня всё работает. Там нечему закрываться с ошибкой.

Code: (clickermann) [Select]
$var = HTTPGET("https://www.youtube.com/channel/UCi_VsjkIy8vPMQnRMhPu9OA/live")

$template = STRCONCAT(CHAR(34), "videoId\", CHAR(34), ":" )
$start = STRPOS($var, $template) + 13
$end = STRPOS($var, "\", $start) - 1
$our_code = STRCUT2($var, $start, $end)

LOGWRITE($our_code)
HALT

лог
Code: [Select]
14:58:13 XOuXIlN5MAI

Сигнатура проблемы:
  Имя события проблемы:   APPCRASH
  Имя приложения:   Clickermann.exe
  Версия приложения:   4.13.0.0
  Отметка времени приложения:   5afc1cad
  Имя модуля с ошибкой:   Clickermann.exe
  Версия модуля с ошибкой:   4.13.0.0
  Отметка времени модуля с ошибкой:   5afc1cad
  Код исключения:   c0000005
  Смещение исключения:   0000b716
  Версия ОС:   6.3.9600.2.0.0.272.79
  Код языка:   1049
  Дополнительные сведения 1:   87cd
  Дополнительные сведения 2:   87cd7c77fc4deb39aae5ecef832f09c1
  Дополнительные сведения 3:   fb4a
  Дополнительные сведения 4:   fb4ad2ee372e565f0551b35331d91e94

Ознакомьтесь с заявлением о конфиденциальности в Интернете:
  http://go.microsoft.com/fwlink/?linkid=280262

Если заявление о конфиденциальности в Интернете недоступно, ознакомьтесь с его локальным вариантом:
  C:\Windows\system32\ru-RU\erofflps.txt

gogodanse

  • Освоившийся
  • **
  • Posts: 58
    • View Profile
Re: Умники и умницы ХЭЭЭЛП
« Reply #9 on: September 04, 2020, 05:56:04 PM »
Все заработало спасибо большое <3

Vint

  • Супермодератор
  • Герой форума
  • *
  • Posts: 3935
  • Лечу куда хочу. cman 4.13.014x32, 4.14.003 W10
    • View Profile
Re: Умники и умницы ХЭЭЭЛП
« Reply #10 on: September 04, 2020, 08:14:42 PM »
.


gogodanse

  • Освоившийся
  • **
  • Posts: 58
    • View Profile
Re: Умники и умницы ХЭЭЭЛП
« Reply #11 on: September 04, 2020, 09:00:19 PM »
.

А что говорить ? windows server 2012 R2 standart, вылетела ошибка ? жмете "Попытаться исправить" перезапускаете и что-то чинится, это же windows он даже не написал в чом была проблема

gogodanse

  • Освоившийся
  • **
  • Posts: 58
    • View Profile
Re: Умники и умницы ХЭЭЭЛП
« Reply #12 on: September 05, 2020, 08:46:04 PM »
.

Посмотри пожалуйста

не работает

$var = HTTPGET ("https://www.youtube.com/channel/UCi_VsjkIy8vPMQnRMhPu9OA/live")
$template = STRCONCAT(CHAR(34), "videoId\", CHAR(34), ":" )
$start = STRPOS($var, $template) + 13
$end = STRPOS($var, "\", $start) - 1
$our_code = STRCUT2($var, $start, $end)
$HTML = HTTPGET ("https://www.youtube.com/channel/UCi_VsjkIy8vPMQnRMhPu9OA/live")
if ((strpos($HTML, "Сейчас смотрят") > 0))
WAIT(10)
KEYSTRING($our_code)
END_IF
HALT

Мне нужно чтобы он сначала нашел слово и если оно есть в коде то забрал бы из него айди и написал куда мне нужно

Oraven

  • Супермодератор
  • Герой форума
  • *
  • Posts: 3685
  • Котэ
    • View Profile
Re: Умники и умницы ХЭЭЭЛП
« Reply #13 on: September 06, 2020, 08:26:11 AM »
HTTPGET не работает с https, только с http

4.У.В.@.К

  • Активный участник
  • ***
  • Posts: 117
    • View Profile
Re: Умники и умницы ХЭЭЭЛП
« Reply #14 on: September 06, 2020, 09:34:51 AM »
HTTPGET не работает с https, только с http

Hito намутил же dll-ки для https.
http://crapware.aidf.org/forum/index.php?topic=5198.msg33755#msg33755
Спасибо Hito!  :)

Вот так вроде стабильно работает скрипт и Clickermann не крашится.
Code: (clickermann) [Select]
STRSEPARATE(STRFILTER(HTTPGET ("https://www.youtube.com/channel/UCi_VsjkIy8vPMQnRMhPu9OA/live"), "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz1234567890_Сейчассмотрят", 1), "wwwyoutubecomchannel", $arr_1)

IF(STRPOS($arr_1[8], "Сейчассмотрят"))
   STRSEPARATE($arr_1[8], "live", $arr_2)
   $our_code = $arr_2[0]
   LOGWRITE ($our_code) // айди стрима в лог

   // KEYSTRING($our_code) // вписываем айди куда нужно
   // KEYPRESS(#ENTER)
END_IF

HALT

Пробовал делать и другие варианты, но кликер то работает, то вырубается, как то безсистемно. А этот скрипт с массивом, у меня ни разу не заглючил.