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.


Messages - Космич

Pages: 1 2 [3] 4 5 ... 18
31
Общие вопросы / Re: Скрипт для рыбалки
« on: February 25, 2020, 05:57:48 AM »
Зайди в справку и посмотри раздел WinAPI, Привязка к окну. Там описаны все процедуры и функции по работе с окнами.
Code: (clickermann) [Select]
$hwnd = HGET(1326,423) // Получает идентификатор окна по координатам X,Y
hset($hwnd, 1) // Включает привязку к окну по идентификатору полученному через координаты
$x = 228
$y = 393
WNDSTATE($hwnd,0) // Сворачиваем окно по идентификатору
WAIT(1)

skip: // Метка
WAITMS(rnd(100,200))
postmessage($hwnd, 0x0201, 0x0001, $x + ($y*65536)) // Равносильно LDOWN($x, $y)
WAITMS(rnd(1000,2000))
postmessage($hwnd, 0x0202, 0x0000, $x + ($y*65536)) // Равносильно LUP($x, $y)
WAITMS(rnd(800,1200))
GOTO(skip) // Возвращаемся назад к метке skip, а это означает, что переход к метке приводит к вечному зацикливанию,
           // и всё написанное ниже GOTO(skip) никогда не выполнится

// закидывает удочку
...


Какой рыбы? На твоём скрине нет никакой Рыбы, зато есть еще один вечный цикл.
Код из тела цикла выполняется, пока проверяемое выражение возвращает истину, а у тебя оно истинно всегда, что приводит к очередному вечному зацикливанию на одном фрагменте кода.
Code: (clickermann) [Select]
// Ожидаем появления рыбы   рыба может появиться сразу а может спустя  пару секунд
$check = 0
WHILE($check = 0)
   GETSCREEN
   COLORMODE(6)
   IF_PICTURE_IN (0,0, $_xmax,$_ymax, "рыба.bmp", -1, 90)
      LCLICK($_return1 + 10, $_return2 + 10) // Нужен Клик по зацепить (как узнать координаты кнопки зацепить относительно координат найденной картинки "рыба" чтобы нажать именно на зацепить а не на "рыба.bmp?)
      WAITMS(500)
   END_IF
END_CYC
HALT

32
Code: (clickermann) [Select]
//           D М И Н С .
//           0 1 2 3 4 5
//       
// STATE 0   0 0 0 0 0 1   
//       1   0 0 0 2 S 0
//       2   0 0 3 0 0 0
//       3   0 M 0 0 0 0
//         
//                                ОК              ОК                ОК                ОК
$input_str = "... через нананана 1 с. 4543 ммин 1 мин. 499999 си. 05 мин. 1000 дин. 1000 с."
$lenght = STRLEN($input_str)
 
STRSEPARATE("0:0:0:0:0:1:0:0:0:2:99:0:0:0:3:0:0:0:0:40:0:0:0:0", ":", $array_state)
 
WHILE($lenght >= $i)
   skip_space:
   $char = STRCUT($input_str, $lenght - $i, 1)
   INC($i) 
   IF($char = " ")
      GOTO(skip_space)
   END_IF                                     
   IF($state < 4)
      SWITCH($char) 
      CASE("м")
         $char = 1
      CASE("и")
         $char = 2
      CASE("н")
         $char = 3
      CASE("с")
         $char = 4
      CASE(".")
         $char = 5
      DEFAULT
         $char = 0     
      END_SWITCH
      $state = $array_state[$state*6+$char]
   ELSE
      $char = CODE($char)
      IF( ($char >= #0) and ($char <= #9) )
         $time = (CHAR($char)*POW(10, $k)*(100-$state)) + $time
         INC($k)
      ELSE 
         $state = 0
         $k = 0
         $i = $i - 1
      END_IF   
   END_IF  
END_CYC
 
PRINT($time)
 
HALT

Code: ("") [Select]
02:17:51 1361

33
Ошибки / Re: Параметры подпрограммы
« on: January 22, 2020, 05:37:57 AM »
Уже давно есть GETVAR/SETVAR
Code: (clickermann) [Select]
SUB(_ARR_OUTPUT, $_arrName, $_strName, $_start, $_stop, $_step)
   $_stop = $_stop*$_step
   WHILE($_start*$_step <= $_stop)
      SETVAR($_strName, STRCONCAT(GETVAR($_strName), GETVAR(STRCONCAT($_arrName, "[", $_start, "]"))))   
      INC($_start, $_step)
   END_CYC
END_SUB

STRSEPARATE("0,1,2,3,4,5,6,7,8,9", ",", $arr)

$output_str = ""

_ARR_OUTPUT("$arr", "$output_str", ARRSIZE($arr)-1, INT(ARRSIZE($arr)/2), -1) // Заполнение строки в обратном порядке половиной массива

PRINT($output_str)
 
HALT

34
Code: ("" ) [Select]
Так же я напоминаю что "and", "or" и "xor" являются синонимами операций "&","|" и "^" соответственно.

35
Code: (clickermann) [Select]
PRINT(INT(5 / 2)) // Деление нацело
PRINT(5 - INT(5 / 2) * 2) // Остаток от деления

36
что конкретно тебе надо?
Code: (clickermann) [Select]
$h = INT(($_time_t - 1578542400) / 86400)
$d = $h - INT($h / 8) * 8

37
Предложения / Re: Защита кода
« on: December 10, 2019, 02:08:25 PM »
зачем лезть в %TEMP%, если можно сразу открыть архив и посмотреть))

38
Общие вопросы / Re: Скрипт на движение мыши
« on: December 10, 2019, 04:20:18 AM »
Чтобы не писать одно и тоже))

Еще можно вот так
Code: (clickermann) [Select]
STRSEPARATE("0;2;3;1", ";", $array_state)
 
WHILE(#TRUE)
   SWITCH($array_state[ISKEYDOWN(#F9) + $state_mouse * 2])
   CASE(1)
      $array_coord[0] = $array_coord[0] - 10
      MOVE($array_coord[0], $array_coord[1])
      WAITMS(100)
   CASE(2)
      STRSEPARATE(STRCONCAT($_xmouse, ";", $_ymouse), ";", $array_coord)
      RDOWN($array_coord[0], $array_coord[1])
      $state_mouse = 1
   CASE(3)
      RUP($array_coord[0], $array_coord[1])
      $state_mouse = 0
   END_SWITCH
END_CYC

39
Общие вопросы / Re: Скрипт на движение мыши
« on: December 09, 2019, 11:13:25 PM »
Code: (clickermann) [Select]
$state_key = ISKEYDOWN(#F9)
SWITCH(POW(2, $state_key) * POW(3, (($state_key = #FALSE) and ($state_mouse = #TRUE))) - 1)
CASE(1)
   MOVE($_xmouse, $_ymouse + 10)
   WAITMS(100)
   RDOWN($_xmouse, $_ymouse)
   $state_mouse = #TRUE
CASE(2)
   RUP($_xmouse, $_ymouse)
   $state_mouse = #FALSE
END_SWITCH

40
Проверь вот это. Должен появится файл с 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

41
тут надо думать над парсером страницы группы за определённое время

42
А почему сразу дичь? просто переменную не добавил

43
Code: (clickermann) [Select]
$time = 3001
$timer = $_ms + $time
WHILE($timer > $_ms)
   GETSCREEN(113, 214, 701, 253)
   IF_PIXEL_IN(113, 214, 701, 253, 10198777)
      $timer = 0
   END_IF
   SWITCH($time)
   CASE(0)
      LCLICK(321,223)
   CASE(3001)
      LCLICK(850,341) 
      $time = $time  - 1
   END_SWITCH
   WAITMS(200)
END_CYC

44
это всё предстоит написать с 10-11 строки

45
Ты с профилями разобрался же?

Code: (clickermann) [Select]
#DEFINE WM_SYSCOMMAND: 0x0112 
#DEFINE SC_CLOSE:      0xF060

EXECUTE("firefox.exe", STRCONCAT("-P vk_user_data_", $counter, " -new-window https://vk.com/app5327745_569506422")) // открываем игру под профилем от 0 до 10 в мозилле
$hwnd = 0
WHILE($hwnd = 0)
   $hwnd = WNDFIND("Хроники Хаоса - Mozilla Firefox")
END_CYC
WNDSETINFO($hwnd, 0, 0, 1280, 800) // устанавливаем позицию и размер окна

WAIT(2) // Тут ожидание загрузки игры и какие то действия
SENDMESSAGE($hwnd, WM_SYSCOMMAND, SC_CLOSE, 0) // закрываем окно

$counter = $counter + 1 // инкрементируем переменную счётчик аккаунтов
IF($counter > 10) // Если счётчик больше 10, то стоп
   HALT
END_IF

Pages: 1 2 [3] 4 5 ... 18