Messages

31

Общие вопросы / Re: Команда HINTPOPUP

« on: September 29, 2015, 12:00:02 AM »

Спасибо за поправку, не верный у меня код получился.
Забыл просто, что в настройках КМ у меня стоит галочка "Игнорировать ошибки", поэтому и не заметил косяк.
[spoiler=Вот как всё было...][/spoiler]
Скрипт естественно тоже наспех состряпал, с одной лишь целью продемонстрировать прогрессбар в стиле а-ля "бегущая строка", да и не в скрипте дело.
Думаю, что эту тему можно развить и написать нормальный универсальный код.
[spoiler=Исправил ошибку ]

Code: (clickermann) [Select]

$i = 1
$str = ""
$string = ""
$max = 195
$k = $max / 71
FOR($a = 0, $a < $max)
   $var = INT($a / ($max / 100) + 1)
   IF($a / ($k * $i) > 1)
      $str = STRCONCAT($str, "|")
      INC($i)
   END_IF
   $string = STRCONCAT($str, " - ", $var, "%")
   WAITMS(50)
END_CYC

//--------------------------------

THREAD(Прогресс, 1)
   LOGCLEAR
   LOGWRITE ($string)
   WAITMS(30)
END_THREAD

HALT[/spoiler]

32

Общие вопросы / Re: Команда HINTPOPUP

« on: September 27, 2015, 07:55:45 PM »

Если сделать вывод прогресса работы скрипта через отдельный поток, то будет меньше тормозиться выполнение основного сценария, и интервалы вывода информации легко регулировать. Кстати, можно даже сделать прогрессбар, как в консольных приложениях.



 Вот скрипт, который ничего не делает, просто демо - для наглядности (с выводом в лог, можно и через HINTPOPUP, кому как нравится).

Code: (clickermann) [Select]

$str = ""
$string = ""
$max = 195
$k = $max / 71
FOR($a = 0, $a < $max)
   $var = INT($a / ($max / 100) + 1)
   IF($a / ($k * $i) > 1)
      $str = STRCONCAT($str, "|")
      INC($i)
   END_IF
   $string = STRCONCAT($str, " - ", $var, "%")
   WAITMS(50)
END_CYC

//--------------------------------

THREAD(Прогресс, 1)
   LOGCLEAR
   LOGWRITE ($string)
   WAITMS(30)
END_THREAD

HALT

33

Общие вопросы / Re: как обойти блокировку привязки к окну???

« on: September 16, 2015, 11:12:00 PM »

Для игр лучше установить VMware Workstation, т.к. она поддерживает 3D графику. Драйвера на нее искать не придется, они есть в ней самой и их надо просто установить в установленной виртуальной операционной системе. При первом входе в виртуальную систему, в трее около часов можно обнаружить установщик этих самых драйверов - "VMware Tools" называется. Этот установочный пакет, насколько я помню, может так же находиться на виртуальном дисководе виртуальной системы. Так же можно найти в меню виртуальной машины пункт "Обновить VMware Tools..." и скачать обновления драйверов. Эта виртуалка платная, но на торрент-трекерах полно раздач с кейгенами и ключами.

34

Общие вопросы / Re: Типовые алгоритмы, вводные статьи (Новички, читайте!)

« on: August 11, 2015, 07:44:24 PM »

Всем привет подскажите как вставить в буфер сообщение из переменной?
[spoiler]
пример:

Code: (clickermann) [Select]

DEFINE ($Message, Всем удачи)
TOCLIP ("$Message")
LCLICK(81, 171)
WAIT(1)
KEYDOWN (#CTRL)
WAITMS (100)
KEYDOWN (#V)
WAITMS (100)
KEYUP (#V)
KEYUP (#CTRL)
WAIT(1)
LCLICK(626, 216)
WAIT(1)
В чате появилось $Message, а не значение переменной.

Привет, у тебя просто кавычки не в тех местах где надо стоят.

Code: (clickermann) [Select]

DEFINE ($Message, "Всем удачи")
TOCLIP ($Message)
LCLICK(81, 171)
WAIT(1)
KEYDOWN (#CTRL)
WAITMS (100)
KEYDOWN (#V)
WAITMS (100)
KEYUP (#V)
KEYUP (#CTRL)
WAIT(1)
LCLICK(626, 216)
WAIT(1)

35

Общие вопросы / Re: Скрипт-кликер по цвету в пикселе (работает не так где хотелось()

« on: August 08, 2015, 06:29:49 PM »

Code: (clickermann) [Select]

$arr[0] = "BMP\0001.bmp" // Названия картинок, включая относительный путь, помещаем в массив
$arr[1] = "BMP\0004.bmp"
$arr[2] = "BMP\0005.bmp"
$arr[3] = "BMP\0006.bmp"
$arr[4] = "BMP\0007.bmp"

SUB(Billboard)
   GETSCREEN // Один GETSCREEN и один COLORMODE для поиска всех картинок
   COLORMODE(5)
   FOR($i = 0, $i < 5) // Выполнится 5 раз (по количеству искомых каринок в массиве) и без задержек
      IF_PICTURE_IN (1000,240,1500,420, $arr[$i], -1, 80) // красный крестик
         LCLICK($_return1+5, $_return2+5)
         $i = 5 // Завершаем поиск, если изображение найдено
      END_IF
      // WAIT(1) // Секундная пауза, независимо найдена картинка или нет (так задано в условии). Зачем? Удаляем её.
   END_CYC
END_SUB

36

Общие вопросы / Re: как объединить несколько строк в одну большую строку ?

« on: July 15, 2015, 08:50:14 PM »

При всём уважении, но условие в цикле ничем не оправдано.

Code: (clickermann) [Select]

TFREADARR("baza.txt", $arr)

$s = ARRSIZE($arr)

$str  =  $arr[$a]

FOR($a = 1, $a < $s)
   $str = STRCONCAT($str, ",", $arr[$a])
END_CYC

TFWRITE("output.txt", $str)

HALT

37

Общие вопросы / Re: Название скриншота

« on: June 28, 2015, 12:17:52 AM »

Без посторонних программ, насколько я знаю, Clickermann дописывает к имени скриншота его порядковый номер, в этом есть свои плюсы и минусы.

Code: (clickermann) [Select]

GETSCREEN
SCREENSHOT(FROMCLIP())
HALTМожно отделить этот порядковый номер, например символом подчеркивания, или что либо в это имя добавить, используя текстовую функцию STRCONCAT().

Code: (clickermann) [Select]

GETSCREEN
SCREENSHOT(STRCONCAT(FROMCLIP(), "_"))
HALT
А можно установить программу IrfanView и вызывать её прямо из скрипта процедурой EXECUTE(). IrfanView много чего можно заставить делать таким способом (через парамеры командной строки). Справку по этим парамерам можно найти, если нажать Пуск => Все программы => IrfanView => Command line Options. Там есть примеры и параметры для команды захвата изображения capture.

Code: (clickermann) [Select]

EXECUTE("C:\Program Files\IrfanView\i_view32.exe", STRCONCAT("/capture=0 /convert=screens\", FROMCLIP(), ".bmp"))
HALTIrfanView создаст файл в нужном формате, указанном в этой команде, в данном примере это *.bmp.

38

Общие вопросы / Re: Случайный порядок

« on: June 03, 2015, 11:46:12 AM »

Благодарю за высокую оценку моего скромного труда.    Тем более, что оценка авторитетная, поэтому вдвойне приятно. Спасибо.
В продолжение темы хочу представить на ваш суд еще один скрипт, теперь тоже более универсальный и простой.

Code: (clickermann) [Select]

LOGCLEAR

// На входе имеем массив из произвольных данных, для примера создадим его сами...
$arr[0] = "Audi R8 (4.2 FSI quattro AT) кабриолет 2012"
$arr[1] = "BMW i8 (362hp) купе 2013"
$arr[2] = "Ford Mustang 2.3 AT купе 2014"
$arr[3] = "Honda CR-V (1.6D AT 4WD) кроссовер 2015"
$arr[4] = "Mercedes-Benz GLE Coupe (350D AT) кроссовер 2015"

//--------------------------------

FOR($i = ARRSIZE($arr) - 1, $i > -1, -1) // Переменная "$i" это номер последней ячейки нашего входного массива
   
   $n = RND(0,$i) // Номер нужной ячейки массива, выбирается случайным образом из диапазона номеров оставшихся ячеек
   
   LOGWRITE ($arr[$n]) // Содержимое ячейки, которую мы выбрали случайным образом, выводим в лог
   
   // Теперь использованную ячейку нужно удалить из массива, чтобы не использовать ее повторно.
   // Но так как, на сегодняшний день, для удаления элемента массива мы располагаем только функцией "ARRPOP($arr)",
   // то пересохраняем содержимое последней (удаляемой) ячейки в позицию уже использованной и более ненужной ячейки с номером "$n".
   $arr[$n] = $arr[$i]
   
   ARRPOP($arr) // Последнюю ячейку массива теперь просто удаляем
   
END_CYC

HALT

39

Общие вопросы / Re: Случайный порядок

« on: June 01, 2015, 07:37:51 PM »

Всем привет! Рад видеть всех в добром здравии и в трудах праведных. 
Массивы это конечно здорово, но были же времена, когда обходились и без них. Вы просто забыли наверно, что сами писали полтора-два года тому назад, про псевдо массивы из строк с разделителями. Для работы со строками у Кликермана функций побольше, чем для массивов, по крайней мере пока. Я даже не рискну назвать эти функции костылями, применительно к этой задаче, просто они есть и они классные. И если бы такую тему подняли пару лет тому назад, то уверен, что никто бы так сильно не заморачивался и решение было бы примерно таким...

Code: (clickermann) [Select]

LOGCLEAR
$str = 0x010x020x030x040x050x060x070x080x090x0A0x0B0x0C0x0D0x0E0x0F0x100x110x12
FOR($i = 18, $i > 0, -1)
   $n = STRCUT($str, RND(1,$i) * 4 - 3, 4)
   $str = STRREPLACE($str, $n, "")
   LOGWRITE (INT($n))
END_CYC
HALTСлава СОЗДАТЕЛЮ!

40

Общие вопросы / Re: Имитация присутствия и Flash приложение

« on: December 12, 2014, 08:23:18 PM »

Было уже обсуждение такой темы, еле нашел..

Вот нагуглил статью в Википедии.
Вебвизор (WebVisor) — технология, благодаря которой можно анализировать действия посетителей интернет-сайта в режиме онлайн-видео

А вот и подтверждение: Яндекс.Метрика > Вопросы по Вебвизору. Там и про Flash-плеер упоминается. Беда короче.
Может быть плагины какие для браузера помогут защититься от слежения или программы наподобие PrivDog?

41

Использование / Re: Помогите пожалуйста разобраться с программой

« on: December 10, 2014, 08:59:29 AM »

... я пробовал Click (x,y) - неполучилось, ...

42

Общие вопросы / Re: Ребят, ткните носом плиз...

« on: November 19, 2014, 04:16:33 PM »

Программы, которые облегчают работу с Clickermann

Beyond Compare 3
Страница загрузки на сайте разработчика: http://www.scootersoftware.com/download.php
Скриншоты: http://www.scootersoftware.com/features.php?zz=gallery
Видео: http://www.scootersoftware.com/features.php?zz=v4videos
Программа платная, но с ключами в интернете проблем нет (подходят от старых версий).
Интерфейс английский, но интуитивно понятный.
Удобный, быстрый "комбайн" для сравнения и синхронизации чего угодно. Например, для попиксельного сравнения изображений или каталогов жесткого диска. Может сравнивать ветки реестра и работать с FTP серверами. Имеет быстрые фильтры и подсветку сравниваемых файлов и областей текста, открывает файлы в различных кодировках. Подсветка синтаксиса Delphi, HML, SQL, C, C++, HTML,... и других. Сохраняет проекты сравнения, автоматически или вручную. Настройка списка файлов для сравнения по маскам. Папку с программой можно таскать с собой на флешке (будет обновляться сохраняя активацию). Очень хорошая вещь, однозначно советую к ней присмотреться. Супер программа.

Теперь уже Beyond Compare 4 вышла в свет.

43

Прочее / Re: Предложение Johnny

« on: November 14, 2014, 11:51:11 PM »

Поздравляю!

44

Общие вопросы / Re: Как мне вычислить миллисекунды?

« on: November 13, 2014, 08:22:07 AM »

Вот как-то так, в общих чертах.

Code: (clickermann) [Select]

KEYPRESS(#A)

$time_1 = $_ms // Запоминаем время нажатия клавиши #A

WHILE($time_2 = 0)
   GETSCREEN
   IF_PIXEL_IN(0,0, $_xmax,$_ymax, 255)
      $time_2 = $_ms // Запоминаем время появления пикселя
   END_IF
END_CYC

$time_3 = $time_2 - $time_1 // Вычисляем время затраченное на ожидание

LOGWRITE (STRCONCAT("Пиксель появился через - ", $time_3, " ms")) // Выводим результат в лог

HALT

45

Общие вопросы / Re: IF_PICTURE_IN, IF_PIXEL_IN - по дргому работает по RDP?

« on: November 12, 2014, 08:53:50 AM »

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

TeamViewer надо ставить или другие аналогичные программы.