Author Topic: Запись "сложного" скрипта.  (Read 11679 times)

0 Members and 3 Guests are viewing this topic.

lahesis333

  • Освоившийся
  • **
  • Posts: 55
    • View Profile
Re: Запись "сложного" скрипта.
« Reply #45 on: December 05, 2019, 02:00:56 PM »
Вот что имеем на данный момент. Отрабатывается открытие окна браузера с последующим запуском игры и зыкрытием стартовых диалоговых окон. Плюс реализован сбор ежедневных заданий.
Code: (clickermann) [Select]
#DEFINE WM_SYSCOMMAND: 0x0112 
#DEFINE SC_CLOSE:      0xF060

#DEFINE PROFILE_NAME: "vk_user_data_"
#DEFINE GAME_TITLE:   "Хроники Хаоса"
#DEFINE GAME_LINK:    "https://vk.com/app5327745_569506422"

#DEFINE WINDOW_POS:  0, 0   
#DEFINE WINDOW_SIZE: 1280, 840 
#DEFINE GAME_CLIENT_POS:  200, 180   
#DEFINE GAME_CLIENT_SIZE: WINDOW_SIZE

#INCLUDE "data\includes\mySub.cms"

FOR($counter, $counter < 10)
   EXECUTE("palemoon.exe", STRCONCAT("-P ", PROFILE_NAME, $counter, " -new-window ", GAME_LINK))
   $hwnd = #FALSE
   WHILE($hwnd = #FALSE)
      $hwnd = WNDFIND(GAME_TITLE)
   END_CYC
   WNDSETINFO($hwnd, WINDOW_POS, WINDOW_SIZE)   

GAME_LOADING()        // Ожидание загрузки игры
SKIP_OFFER()          // Пропускаем рекламу
   OPEN_DAILY_MISSIONS() // Открываем ежедневные миссии
   COMPLETE()            // Завершение миссиий
   
   SENDMESSAGE($hwnd, WM_SYSCOMMAND, SC_CLOSE, 0)
   WHILE(STRLEN(HGETTEXT($hwnd)))
      WAITMS(25)
   END_CYC
   HALT
END_CYC

Code: (clickermann) [Select]
SUB(SKIP_OFFER)
   $time = $_time_t + 5
   WHILE($time > $_time_t)
      GETSCREEN
      COLORMODE(8)
      IF_PICTURE_IN (GAME_CLIENT_POS, GAME_CLIENT_SIZE, "data\pictures\OFFER_CLOSE.bmp", -1, 100)
         PRINT("offer_close found")
         LCLICK($_return1 + 5 + RND(-2,2), $_return2 + 5 + RND(-2,2))
         WAITMS(2500)
         $time = $_time_t + 5
      END_IF
   END_CYC
END_SUB

SUB(OPEN_DAILY_MISSIONS)
   STRSEPARATE("daily_missions.bmp;daily_missions_open.bmp", ";", $arr_temp)
   $state = 0
   WHILE($state < 2)
      GETSCREEN     (GAME_CLIENT_POS, GAME_CLIENT_SIZE)
      COLORMODE  (8, GAME_CLIENT_POS, GAME_CLIENT_SIZE)
      IF_PICTURE_IN (GAME_CLIENT_POS, GAME_CLIENT_SIZE, STRCONCAT("data\pictures\", $arr_temp[$state]), -1, 100)
         PRINT($arr_temp[$state], " found")
         IF($state = 0)
            LCLICK($_return1 + 40 + RND(-5,5), $_return2 + 20 + RND(-5,5))
            WAITMS(1500)
         END_IF
         $state = $state + 1
      ELSE
         PRINT($arr_temp[$state], " not found")
      END_IF
   END_CYC
END_SUB

SUB(COMPLETE)
   $check = #FALSE
   WHILE($check = #FALSE)
      GETSCREEN
      COLORMODE(8)
      IF_PICTURE_IN(GAME_CLIENT_POS, GAME_CLIENT_SIZE, "data\pictures\complete.bmp", -1, 100)
         PRINT("complete found")
         LCLICK($_return1 + 40 + RND(-5,5), $_return2 + 8 + RND(-5,5))
         WAITMS(1500)
      ELSE
         PRINT("complete not found")
         $check = #TRUE
      END_IF
   END_CYC
END_SUB

SUB(GAME_LOADING)
   $game_loading = #FALSE
   WHILE($game_loading = #FALSE)
      GETSCREEN               (GAME_CLIENT_POS, GAME_CLIENT_SIZE)
      $game_loading = PXLCOUNT(GAME_CLIENT_POS, GAME_CLIENT_SIZE, 6225919)
      WAITMS(25)
   END_CYC
END_SUB
« Last Edit: December 06, 2019, 01:27:00 PM by lahesis333 »

lahesis333

  • Освоившийся
  • **
  • Posts: 55
    • View Profile
Re: Запись "сложного" скрипта.
« Reply #46 on: December 05, 2019, 02:27:42 PM »
Можно ли сделать в кликере такие чудеса:
Запускаем скрипт. Он открывает первый профиль браузера(всего их допустим 10) и сразу заходит в ВК.
В ВК заходит в определенную группу-ищет на странице нужную картинку(подарки в игре)-если находит нажимает по ней и сразу запускается игра-как только игра прогрузилась до определенного момента(окно рекламы) игра закрывается.
Мы вновь заходим в ту же группу и прокручиваем страницу до тех пор, пока не появится опять такая же картинка(картинки одинаковые. обычно два раза в день появляются утром и вечером. но проблема в том, что первая картинка, на которую мы нажали ранее, никуда не пропадает а так и остается в группе т.к. это пост).
После нажатия на вторую картинку мы опять ждем пока игра не прогрузится до окна рекламы и после этого закрывает браузер.
И сразу же после закрытия первого профиля открывался второй(потом когда закроется второй, третий и тд) с аналогичными действиями в группе ВК.
Выше выложил скрипт, которые открывает профиль браузера с последующим запуском игры и закрытием окна браузера после выполнения всех необходимых действий(спасибо большое за написание пользователю Космич! :D)

Космич

  • Активный участник
  • ***
  • Posts: 265
    • View Profile
Re: Запись "сложного" скрипта.
« Reply #47 on: December 05, 2019, 03:30:40 PM »
тут надо думать над парсером страницы группы за определённое время
«Иногда ты ваяешь до тех пор, пока до тебя не дойдёт, что именно ты делаешь.»

lahesis333

  • Освоившийся
  • **
  • Posts: 55
    • View Profile
Re: Запись "сложного" скрипта.
« Reply #48 on: December 05, 2019, 05:49:59 PM »
тут надо думать над парсером страницы группы за определённое время
А можно языком для таких как я?)Или это не мне сообщение? :-X

lahesis333

  • Освоившийся
  • **
  • Posts: 55
    • View Profile
Re: Запись "сложного" скрипта.
« Reply #49 on: December 06, 2019, 10:14:09 AM »
А можно языком для таких как я?)

Ну, так все сразу понятно! А главное, сразу приблизились к решению вопроса!

lahesis333

  • Освоившийся
  • **
  • Posts: 55
    • View Profile
Re: Запись "сложного" скрипта.
« Reply #50 on: December 06, 2019, 12:46:30 PM »
чтоб, сразу приблизились к решению вопроса, не буду раздражать вас дополнительными вопросами, необходимыми для написания кода, а корректно и точно отвечу на тот единственный, который вы смогли здесь сформулировать: ДА, МОЖНО.
Вы как всегда оригинальны в своих ответах! Но вам не кажется, что люди, которые обращаются за помощью на данном форуме(в большинстве или в меньшинстве, неважно) не всегда понимают какую именно информацию они должны предоставить ВАМ(помогающим) для решения того или иного вопроса? Есть вопрос "Можно ли ...." и есть ваш ответ "Да можно...". Моя ошибка в том, что я некорректно задал вопрос и не знаю какую информацию, кроме того как это должно выглядеть, предоставить. Но вместо того, чтобы хоть как то помочь(да вы не обязаны) и направить в нужное русло(даже в таком элементарном деле, как выражение МОИХ хотелок и мыслей), вы применяете не совсем уместный сарказм.
ЗЫ.Прошу прощения за разведенную в теме полемику!
« Last Edit: December 06, 2019, 12:48:37 PM by lahesis333 »

Космич

  • Активный участник
  • ***
  • Posts: 265
    • View Profile
Re: Запись "сложного" скрипта.
« Reply #51 on: December 06, 2019, 08:14:18 PM »
Проверь вот это. Должен появится файл с html кодом страницы группы
Code: (clickermann) [Select]
#DEFINE HTTPGET_SITE: "https://vk.com/bestmobagroup"
#DEFINE HTTPGET_OUTPUT_FILE: "bestmobagroup.txt"

EXECUTE("httpget.exe", STRCONCAT("-S ", HTTPGET_SITE, " -F ", HTTPGET_OUTPUT_FILE))

WHILE($isnew = 0)
   GETMESSAGE($wParam, $lParam, $isnew)
END_CYC

HALT
«Иногда ты ваяешь до тех пор, пока до тебя не дойдёт, что именно ты делаешь.»