Show Posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Topics - gogodanse

Pages: [1]
1
Общие вопросы / Выбор свободного окна
« on: August 10, 2021, 10:58:00 PM »
Всем привет, появилась новая задумка

Попрошу помочь подкованных людей с идеей и реализацией, у самого в голове есть задумки но возможно кто-то облегчит это без костылей

Суть такова, есть 6 окон (все образно их может быть больше)

В каждом окне есть кнопка start/stop и индикатор включения, а так же поле ввода текста

Дак вот, в программу будет поступать сообщения от яндекс денег с комментарием, в комментарии будет текст который кликер должен вытащить и вставить в поле ввода,
но перед этим он должен найти свободное окно где горит зеленый индикатор допустим через if pixel и запустить окно, после чего должен запуститься таймер чтобы это окно остановилось и освободилось

Ну что у кого какие мысли есть ? Буду очень признателен

2
Общие вопросы / Умники и умницы ХЭЭЭЛП
« 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

3
Общие вопросы / Домашняя работа, работа над ошибками, правильный порядок действий
« on: June 24, 2020, 10:03:21 AM »
Добрый день, делают бота чтобы хоть немного упростить себе работу, прошу проверить и где не хватает подсказать или поправить меня

$HTML = HTTPGET ("Ссылка") //// Бот отправляет запрос httpget
if ((strpos($HTML, "СЛОВО") > 0)) /// Если бот находит слово в полученном коде
   if(wndfind(ОКНО) = 0)  /// И если окно не найдено то делаем действия для открытия

 Для открытия над понадобится айди из этого же кода который мы получили HTML

Теперь нужно скопировать в буфер этот кусочек кода  Ищем строчку и вырезаем кусок кода  (тут мне нужна помощь, каким лучше методом вытащить кусок кода, допустим он будет в 6 строчке и после слов id="Наш код")

 Открываем окно бла бла бла вставляем айди жмем старт

   END_IF
ELSE
   if(wndfind($ОКНО) > 0) /// Если окно найдено а слово не найдено то закрываем все

      Действия для закрытия окна

   END_IF
END_IF

 :o  :o  :o  :o


4
Общие вопросы / Извлечение переменной из лога !?
« on: May 27, 2020, 11:16:05 PM »
Есть старый код, не использовал уже столько что позабыл как вообще пользоваться кликером
задался вопросом как можно вытащить переменную из лога html страницу


$HTML = HTTPGET ("ссылка")
if ((strpos($HTML, "NU LIVE") > 0) | (strpos($HTML, "NU LIVE") > 0)) /// Ищем слово NU LIVE если найдено то включаем (первое условие)
   if(пиксель ищем) = 0) /// Если пиксель не найден то включаем (второе условие условие)
   Выполняем действия по включению
   END_IF
ELSE
   if(wndfind($pack1) > 0) /// Если не выполнены условия то выключаем
      LCLICK(375,52)
   END_IF
END_IF

Теперь надо немного изменить

Теперь нужно:
Получить html и отправить данные в лог
Ищем так же слово NU LIVE и Пиксель
Если условия оба выполнены: Ищем в логе "channelid=2342342"
Берем и цифры после channelid= вписываем в переменную "2342342
И уже с этими цифрами выполняем определенное действие

Друзья есть кто шарит за логи html ? 

5
Общие вопросы / работа с PID
« on: April 10, 2020, 01:51:13 AM »
Добрый день!

Так и не нашел ни одной темы на форуме с значением PID и возможно ли это ?

В шаблонах вижу что есть какие то команды, а вот как насчет работы уже с самим окном ?

Допустим я знаю PID окна, и у меня таких окон 4-6 и на каждом этапе цикла мне нужно чтобы он нажимал левой кнопкой мышки по координатам внутри этого PID

Реально ? если да киньте пример буду очень благодарен

6
Общие вопросы / Проблема с httpget
« on: January 15, 2020, 09:26:33 PM »
Первые 3 дня все было хорошо

Теперь перестал определять нужные слова в полученном коде не понимаю почему

Вроде другие слова ищет а фразы которые были нет

Может как то юзер агента можно ему прописать ?

7
Общие вопросы / HTTPGET
« on: January 04, 2020, 07:29:43 AM »
Добрый день !

Уважаемые эксперты решите мою задачку прошу  :)

Есть страница стрима ютуб, нужно чтобы бот определял онлайн ли (проигрывается ли плеер) и выполняю функцию

if HTTPGET https://www.youtube.com/channel/UCbwF5qItDGG6Owp3oXjszbg/live "параметр определения онлайн" - выполняет действия
if HTTPGET https://www.youtube.com/channel/UCbwF5qItDGG6Owp3oXjszbg/live "Если канал оффлайн - выполнят другие действия

*https://www.youtube.com/channel/UCbwF5qItDGG6Owp3oXjszbg/live рандомный канал с ютуба

8
Общие вопросы / Скрит перестает работать
« on: November 23, 2019, 01:44:43 AM »
Добрый день, накатал себе скрипт для автоматизации, но я в этом ньюфаг поэтому скрипт мусорный и водный

помощи по оптимизации не прошу, комп справляется на ура

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

Code: [Select]
//// 20.11.2019
#name "t"

////////////////////////////////////////////////
//pack1
GETSCREEN
IF_PICTURE_IN (0,0, $_xmax,$_ymax, "start1.bmp")
   IF_PIXEL_IN(155,130, 155,130, 4802889)
      WAITMS(1000)
      LCLICK(1523,148)
      WAITMS(500)
      KEYDOWN (#CTRL)
      WAITMS (50)
      KEYPRESS (#A)
      KEYUP (#CTRL)
      WAITMS(1000)
      KEYSTRING("Uggfd")
      WAITMS(1000)
      LCLICK(1699,147)
      WAITMS(1000)
      LCLICK(1650,220)
      WAITMS(1000)
      KEYSTRING("kek001")
      WAITMS(1000)
      LCLICK(1100,510)
      WAITMS(1000)
      LCLICK(1552,345)
      WAITMS(2000)
      WNDPOS(WNDFIND("1"), 35,32)
      WNDSIZE(WNDFIND("1"), 245, 170)
   END_IF
END_IF

IF_PICTURE_IN (0,0, $_xmax,$_ymax, "stop1.bmp")
   WHILE(PXL (195,104) ! 0)
      WAITMS (500)
   END_CYC
   LCLICK(250,43)
END_IF

WAITMS(1500)
////////////////////////////////////////////////

////////////////////////////////////////////////
//pack2
GETSCREEN
IF_PICTURE_IN (0,0, $_xmax,$_ymax, "start2.bmp")
   IF_PIXEL_IN(422,130, 422,130, 1907997)
      WAITMS(1000)
      LCLICK(1523,148)
      WAITMS(500)
      KEYDOWN (#CTRL)
      WAITMS (50)
      KEYPRESS (#A)
      KEYUP (#CTRL)
      WAITMS(1000)
      KEYSTRING("Udfgdfgtreytry")
      WAITMS(1000)
      LCLICK(1699,147)
      WAITMS(1000)
      LCLICK(1650,220)
      WAITMS(1000)
      KEYSTRING("kek002")
      WAITMS(1000)
      LCLICK(1100,510)
      WAITMS(1000)
      LCLICK(1552,345)
      WAITMS(2000)
      WNDPOS(WNDFIND("2"), 291,33)
      WNDSIZE(WNDFIND("2"), 245, 170)
   END_IF
END_IF

IF_PICTURE_IN (0,0, $_xmax,$_ymax, "stop2.bmp")
   WHILE(PXL (447,112) ! 0)
      WAITMS (500)
   END_CYC
   LCLICK(503,43)
END_IF

WAITMS(1500)
////////////////////////////////////////////////

////////////////////////////////////////////////
//pack3
GETSCREEN
IF_PICTURE_IN (0,0, $_xmax,$_ymax, "start3.bmp")
   IF_PIXEL_IN(675,117, 675,117, 4802889)
      WAITMS(1000)
      LCLICK(1523,148)
      WAITMS(500)
      KEYDOWN (#CTRL)
      WAITMS (50)
      KEYPRESS (#A)
      KEYUP (#CTRL)
      WAITMS(1000)
      KEYSTRING("UCrnert")
      WAITMS(1000)
      LCLICK(1699,147)
      WAITMS(1000)
      LCLICK(1650,220)
      WAITMS(1000)
      KEYSTRING("kek003")
      WAITMS(1000)
      LCLICK(1100,510)
      WAITMS(1000)
      LCLICK(1552,345)
      WAITMS(2000)
      WNDPOS(WNDFIND("3"), 548,32)
      WNDSIZE(WNDFIND("3"), 245, 170)
   END_IF
END_IF

IF_PICTURE_IN (0,0, $_xmax,$_ymax, "stop3.bmp")
   WHILE(PXL (709,109) ! 0)
      WAITMS (500)
   END_CYC
   LCLICK(762,44)
END_IF

WAITMS(1500)
////////////////////////////////////////////////

////////////////////////////////////////////////
//pack4
GETSCREEN
IF_PICTURE_IN (0,0, $_xmax,$_ymax, "start4.bmp")
   IF_PIXEL_IN(920,110, 920,110, 1907997)
      WAITMS(1000)
      LCLICK(1523,148)
      WAITMS(500)
      KEYDOWN (#CTRL)
      WAITMS (50)
      KEYPRESS (#A)
      KEYUP (#CTRL)
      WAITMS(1000)
      KEYSTRING("UCtyjtyjty")
      WAITMS(1000)
      LCLICK(1699,147)
      WAITMS(1000)
      LCLICK(1650,220)
      WAITMS(1000)
      KEYSTRING("kek004")
      WAITMS(1000)
      LCLICK(1100,510)
      WAITMS(1000)
      LCLICK(1552,345)
      WAITMS(2000)
      WNDPOS(WNDFIND("4"), 805,33)
      WNDSIZE(WNDFIND("4"), 245, 170)
   END_IF
END_IF

IF_PICTURE_IN (0,0, $_xmax,$_ymax, "stop4.bmp")
   WHILE(PXL (978,94) ! 0)
      WAITMS (500)
   END_CYC
   LCLICK(1013,43)
END_IF

WAITMS(1500)
////////////////////////////////////////////////

////////////////////////////////////////////////
//pack5
GETSCREEN
IF_PICTURE_IN (0,0, $_xmax,$_ymax, "start5.bmp")
   IF_PIXEL_IN(1176,112, 1176,122, 4802889)
      WAITMS(1000)
      LCLICK(1523,148)
      WAITMS(500)
      KEYDOWN (#CTRL)
      WAITMS (50)
      KEYPRESS (#A)
      KEYUP (#CTRL)
      WAITMS(1000)
      KEYSTRING("UCwFRr457")
      WAITMS(1000)
      LCLICK(1699,147)
      WAITMS(1000)
      LCLICK(1650,220)
      WAITMS(1000)
      KEYSTRING("kek005")
      WAITMS(1000)
      LCLICK(1100,510)
      WAITMS(1000)
      LCLICK(1552,345)
      WAITMS(2000)
      WNDPOS(WNDFIND("5"), 1062,32)
      WNDSIZE(WNDFIND("5"), 245, 170)
   END_IF
END_IF

IF_PICTURE_IN (0,0, $_xmax,$_ymax, "stop5.bmp")
   WHILE(PXL (1224,109) ! 0)
      WAITMS (500)
   END_CYC
   LCLICK(1275,41)
END_IF

WAITMS(1500)
////////////////////////////////////////////////

////////////////////////////////////////////////
//pack6
GETSCREEN
IF_PICTURE_IN (0,0, $_xmax,$_ymax, "start6.bmp")
   IF_PIXEL_IN(160,320, 160,320, 1907997)
      WAITMS(1000)
      LCLICK(1523,148)
      WAITMS(500)
      KEYDOWN (#CTRL)
      WAITMS (50)
      KEYPRESS (#A)
      KEYUP (#CTRL)
      WAITMS(1000)
      KEYSTRING("U234435Q")
      WAITMS(1000)
      LCLICK(1699,147)
      WAITMS(1000)
      LCLICK(1650,220)
      WAITMS(1000)
      KEYSTRING("kek006")
      WAITMS(1000)
      LCLICK(1100,510)
      WAITMS(1000)
      LCLICK(1552,345)
      WAITMS(2000)
      WNDPOS(WNDFIND("6"), 35,235)
      WNDSIZE(WNDFIND("6"), 245, 170)
   END_IF
END_IF

IF_PICTURE_IN (0,0, $_xmax,$_ymax, "stop6.bmp")
   WHILE(PXL (200,310) ! 0)
      WAITMS (500)
   END_CYC
   LCLICK(246,247)
END_IF

WAITMS(1500)
////////////////////////////////////////////////

////////////////////////////////////////////////
//pack7
GETSCREEN
IF_PICTURE_IN (0,0, $_xmax,$_ymax, "start7.bmp")
   IF_PIXEL_IN(430,325, 430,325, 4802889)
      WAITMS(1000)
      LCLICK(1523,148)
      WAITMS(500)
      KEYDOWN (#CTRL)
      WAITMS (50)
      KEYPRESS (#A)
      KEYUP (#CTRL)
      WAITMS(1000)
      KEYSTRING("UC37k67k67CQ")
      WAITMS(1000)
      LCLICK(1699,147)
      WAITMS(1000)
      LCLICK(1650,220)
      WAITMS(1000)
      KEYSTRING("kek007")
      WAITMS(1000)
      LCLICK(1100,510)
      WAITMS(1000)
      LCLICK(1552,345)
      WAITMS(2000)
      WNDPOS(WNDFIND("7"), 292,234)
      WNDSIZE(WNDFIND("7"), 245, 170)
   END_IF
END_IF

IF_PICTURE_IN (0,0, $_xmax,$_ymax, "stop7.bmp")
   WHILE(PXL (460,303) ! 0)
      WAITMS (500)
   END_CYC
   LCLICK(508,248)
END_IF

WAITMS(1500)
////////////////////////////////////////////////

////////////////////////////////////////////////
//pack8
GETSCREEN
IF_PICTURE_IN (0,0, $_xmax,$_ymax, "start8.bmp")
   IF_PIXEL_IN(675,320, 675,320, 1907997)
      WAITMS(1000)
      LCLICK(1523,148)
      WAITMS(500)
      KEYDOWN (#CTRL)
      WAITMS (50)
      KEYPRESS (#A)
      KEYUP (#CTRL)
      WAITMS(1000)
      KEYSTRING("UC567567BMjYSaw")
      WAITMS(1000)
      LCLICK(1699,147)
      WAITMS(1000)
      LCLICK(1650,220)
      WAITMS(1000)
      KEYSTRING("kek008")
      WAITMS(1000)
      LCLICK(1100,510)
      WAITMS(1000)
      LCLICK(1552,345)
      WAITMS(2000)
      WNDPOS(WNDFIND("8"), 549,234)
      WNDSIZE(WNDFIND("8"), 245, 170)
   END_IF
END_IF

IF_PICTURE_IN (0,0, $_xmax,$_ymax, "stop8.bmp")
   WHILE(PXL (710,310) ! 0)
      WAITMS (500)
   END_CYC
   LCLICK(760,245)
END_IF

WAITMS(1500)
////////////////////////////////////////////////

////////////////////////////////////////////////
//pack9
GETSCREEN
IF_PICTURE_IN (0,0, $_xmax,$_ymax, "start9.bmp")
   IF_PIXEL_IN(920,320, 920,320, 4802889)
      WAITMS(1000)
      LCLICK(1523,148)
      WAITMS(500)
      KEYDOWN (#CTRL)
      WAITMS (50)
      KEYPRESS (#A)
      KEYUP (#CTRL)
      WAITMS(1000)
      KEYSTRING("UCQiKHRV45645-Q")
      WAITMS(1000)
      LCLICK(1699,147)
      WAITMS(1000)
      LCLICK(1650,220)
      WAITMS(1000)
      KEYSTRING("kek009")
      WAITMS(1000)
      LCLICK(1100,510)
      WAITMS(1000)
      LCLICK(1552,345)
      WAITMS(2000)
      WNDPOS(WNDFIND("9"), 805,234)
      WNDSIZE(WNDFIND("9"), 245, 170)
   END_IF
END_IF

IF_PICTURE_IN (0,0, $_xmax,$_ymax, "stop9.bmp")
   WHILE(PXL (975,300) ! 0)
      WAITMS (500)
   END_CYC
   LCLICK(1018,244)
END_IF

WAITMS(1500)
////////////////////////////////////////////////

////////////////////////////////////////////////
//pack10
GETSCREEN
IF_PICTURE_IN (0,0, $_xmax,$_ymax, "start10.bmp")
   IF_PIXEL_IN(1210,317, 1210,317, 1907997)
      WAITMS(1000)
      LCLICK(1523,148)
      WAITMS(500)
      KEYDOWN (#CTRL)
      WAITMS (50)
      KEYPRESS (#A)
      KEYUP (#CTRL)
      WAITMS(1000)
      KEYSTRING("UCzvj0w5645KOqBQ")
      WAITMS(1000)
      LCLICK(1699,147)
      WAITMS(1000)
      LCLICK(1650,220)
      WAITMS(1000)
      KEYSTRING("kek010")
      WAITMS(1000)
      LCLICK(1100,510)
      WAITMS(1000)
      LCLICK(1552,345)
      WAITMS(2000)
      WNDPOS(WNDFIND("10"), 1062,235)
      WNDSIZE(WNDFIND("10"), 245, 170)
   END_IF
END_IF

IF_PICTURE_IN (0,0, $_xmax,$_ymax, "stop10.bmp")
   WHILE(PXL (1223,306) ! 0)
      WAITMS (500)
   END_CYC
   LCLICK(1273,247)
END_IF

WAITMS(1500)
////////////////////////////////////////////////

////////////////////////////////////////////////
//pack23
GETSCREEN
IF_PICTURE_IN (0,0, $_xmax,$_ymax, "start23.bmp")
   IF_PIXEL_IN(695,916, 695,916, 4802889)
      WAITMS(1000)
      LCLICK(1523,148)
      WAITMS(500)
      KEYDOWN (#CTRL)
      WAITMS (50)
      KEYPRESS (#A)
      KEYUP (#CTRL)
      WAITMS(1000)
      KEYSTRING("UC78778A")
      WAITMS(1000)
      LCLICK(1637,285)
      KEYDOWN (#CTRL)
      WAITMS (50)
      KEYPRESS (#A)
      KEYUP (#CTRL)
      WAITMS(1000)
      KEYSTRING("2000")
      WAITMS(1000)
      LCLICK(1699,147)
      WAITMS(1000)
      LCLICK(1650,220)
      WAITMS(1000)
      KEYSTRING("kek023")
      WAITMS(1000)
      LCLICK(1100,510)
      WAITMS(1000)
      LCLICK(1552,345)
      WAITMS(2000)
      WNDPOS(WNDFIND("23"), 549,841)
      WNDSIZE(WNDFIND("23"), 245, 170)
      WAITMS(1000)
      LCLICK(1637,285)
      KEYDOWN (#CTRL)
      WAITMS (50)
      KEYPRESS (#A)
      KEYUP (#CTRL)
      WAITMS(1000)
      KEYSTRING("1000")
   END_IF
END_IF

IF_PICTURE_IN (0,0, $_xmax,$_ymax, "stop23.bmp")
   WHILE(PXL (725,906) ! 0)
      WAITMS (500)
   END_CYC
   LCLICK(755,853)
END_IF

WAITMS(1500)
////////////////////////////////////////////////

////////////////////////////////////////////////
//pack24
GETSCREEN
IF_PICTURE_IN (0,0, $_xmax,$_ymax, "start24.bmp")
   IF_PIXEL_IN(928,906, 928,906, 1907997)
      WAITMS(1000)
      LCLICK(1523,148)
      WAITMS(500)
      KEYDOWN (#CTRL)
      WAITMS (50)
      KEYPRESS (#A)
      KEYUP (#CTRL)
      WAITMS(1000)
      KEYSTRING("UCzo87978qQT8Mg")
      WAITMS(1000)
      LCLICK(1637,285)
      KEYDOWN (#CTRL)
      WAITMS (50)
      KEYPRESS (#A)
      KEYUP (#CTRL)
      WAITMS(1000)
      KEYSTRING("2000")
      WAITMS(1000)
      LCLICK(1699,147)
      WAITMS(1000)
      LCLICK(1650,220)
      WAITMS(1000)
      KEYSTRING("kek024")
      WAITMS(1000)
      LCLICK(1100,510)
      WAITMS(1000)
      LCLICK(1552,345)
      WAITMS(2000)
      WNDPOS(WNDFIND("24"), 806,842)
      WNDSIZE(WNDFIND("24"), 245, 170)
      WAITMS(1000)
      LCLICK(1637,285)
      KEYDOWN (#CTRL)
      WAITMS (50)
      KEYPRESS (#A)
      KEYUP (#CTRL)
      WAITMS(1000)
      KEYSTRING("1000")
   END_IF
END_IF

IF_PICTURE_IN (0,0, $_xmax,$_ymax, "stop24.bmp")
   WHILE(PXL (970,902) ! 0)
      WAITMS (500)
   END_CYC
   LCLICK(1016,853)
END_IF

WAITMS(1500)
////////////////////////////////////////////////

////////////////////////////////////////////////
//pack25
GETSCREEN
IF_PICTURE_IN (0,0, $_xmax,$_ymax, "start25.bmp")
   IF_PIXEL_IN(1203,923, 1203,923, 4802889)
      WAITMS(1000)
      LCLICK(1523,148)
      WAITMS(500)
      KEYDOWN (#CTRL)
      WAITMS (50)
      KEYPRESS (#A)
      KEYUP (#CTRL)
      WAITMS(1000)
      KEYSTRING("U6868689")
      WAITMS(1000)
      LCLICK(1637,285)
      KEYDOWN (#CTRL)
      WAITMS (50)
      KEYPRESS (#A)
      KEYUP (#CTRL)
      WAITMS(1000)
      KEYSTRING("2000")
      WAITMS(1000)
      LCLICK(1699,147)
      WAITMS(1000)
      LCLICK(1650,220)
      WAITMS(1000)
      KEYSTRING("kek025")
      WAITMS(1000)
      LCLICK(1100,510)
      WAITMS(1000)
      LCLICK(1552,345)
      WAITMS(2000)
      WNDPOS(WNDFIND("25"), 1062,841)
      WNDSIZE(WNDFIND("25"), 245, 170)
      WAITMS(1000)
      LCLICK(1637,285)
      KEYDOWN (#CTRL)
      WAITMS (50)
      KEYPRESS (#A)
      KEYUP (#CTRL)
      WAITMS(1000)
      KEYSTRING("1000")
   END_IF
END_IF

IF_PICTURE_IN (0,0, $_xmax,$_ymax, "stop25.bmp")
   WHILE(PXL (1238,906) ! 0)
      WAITMS (500)
   END_CYC
   LCLICK(1287,849)
END_IF

WAITMS(1500)
////////////////////////////////////////////////

Pages: [1]