Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Разное > Ваши программы
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 25.05.2015, 08:56
Stratego Stratego вне форума
Прохожий
 
Регистрация: 10.10.2014
Сообщения: 16
Версия Delphi: C++ 5
Репутация: 10
По умолчанию Программа выполняющая макросы по нажатию горячих клавиш

Программа кликер для выполнения макросов по нажатию горячих клавишей.
О программе подробнее http://kibor-bot.com/forum/topic.php?forum=6&topic=34

Сделан в Кибор. http://kibor-bot.com/site/programmed-autoclicker.php

Скачать Macro
virustotal запускного файла - https://www.virustotal.com/ru/file/443b05ff7d2f9aa16a0d3c5dcda353e29fab7a1dfb66901714 23039d4f7effef/analysis/1432423250/




Как использовать :

Синтаксис макросов:
M(680,84,5) - клик левой кнопкой мыши в координатах x 680 y 84 с рандомом +- 5 пикселей. Клик идет в оконных либо клиентских координатах как указано в настройках выпадающего списка. Смотри рис ниже. Если стоит галочка Background mode клик идет в фоновом режиме в привязанное окно. Мышь остается в пользование юзера.

K(a) - Нажатие кнопки A. Если стоит галочка Background mode нажатие идет в фоновом режиме в привязанное окно.

P(1000-2000) - пауза 1 - 2 сек.

Выпадающий список позволяет выбрать систему координат - оконный (все приложение) или клиентский (к примеру флеш в браузере). В зависимости от позиции списка показаны координаты которые использовать в кликах.

Во время запуска надо расположить программу так что бы кнопка была над программой или клиентской областью программы в которой будет использоваться макрос (к примеру над флешем).
Так как в момент нажатия на кнопку пуск будет привязка к области (окну) над которым находится мышь.




Скрипт этой программы для Кибор можно посмотреть на форуме программы

Последний раз редактировалось Stratego, 22.08.2015 в 20:05.
Ответить с цитированием
  #2  
Старый 25.05.2015, 10:19
Аватар для SCrat.ORS
SCrat.ORS SCrat.ORS вне форума
Активный
 
Регистрация: 20.02.2007
Адрес: Мой адрес не дом и не улица, мой адрес 0x7С00
Сообщения: 208
Версия Delphi: 2006
Репутация: 884
По умолчанию

Слабовато... У меня макросы куда сильнее:
Код:
Комманды:

	- Не обязательно писать команды большими буквами.
	- Все лишние пробелы удаляются автоматически. Если пробел нужен, то текст записыватся в одинарных кавычках 'Hello World'.
	- "//" - Ремарка, всё, что написано после неё, программой не учитывается.
	- Количество ячеек массива от 0 до 255 включительно.
	- При обнаружении неизвестнной команды, или не существующей Лейблы, производится запись в лог с указанием номера строки и ошибки.
	- В командах Условий, при необходимости, в место 2-го параметра можно использовать команду RETURN. 

Лейбла - это любая надпись в строке. !Единственная надпись!, начинающаяся с ':' и состоящая из цифр либо букв, а также знаков кроме "," , пробелов и символов юникода.
Для считывания значения из ячейки массива внитри команды, используется "#" и номер ячейки, пример: CLICK #10,#6 - кликнуть по координатам указаным в 10 и 6 ячейках массива.

DEBUG X - Запуск отладчика ошибок. X - Задержка в выполнении строк скрипта, если X не задан, то задержка = 0,001 сек.
DIFCOLORS X - Приближенность цвета на X %.
DISPCOORD X,Y - Смещение начала координат.
KEYDOWN X - Нажатие клавиши, скан-код которой записан в Х.
KEYUP X - Отпускание клавиши, скан-код которой записан в Х.
DOWN - Нажатие левой кнопки в текущем положении курсора. параметров нет. Использование - DOWN
RIGHTDOWN - Тоже самое, тока правой кнопкой мыши.
UP - Отпускание левой кнопки в текущем положении курсора. параметров нет. Использование - UP
RIGHTUP - Тоже самое, тока правой кнопкой мыши.
MOVE X,Y - Перемещение курсора мыши в заданные координаты, указанные в параметрах. Использование - MOVE 100,200
MOVETO X,Y - Перемещение курсора мыши на заданное растояние, относительно текушего положения, указанное в параметрах. Использование - MOVETO 100,-200
SLEEP T - Задержка выполнения в миллисекундах заданная в параметре Т. Использование - SLEEP 100
CLICK X,Y - Клик левой кнопкой мыши в заданных координатах, указанных в параметрах. Использование - CLICK 100,200
RIGHTCLICK X,Y - Тоже самое, тока правой кнопкой мыши.
CLICKTO X,Y - Перемешение и Клик левой кнопкой мыши на указанном в парраметрах расстоянии относительно текущего положения курсора. Использование - CLICKTO -100,-200
RIGHTCLICKTO X,Y - Тоже самое, тока правой кнопкой мыши.
END - Остановка выполнения скрипта.
COLOR X,Y - Считывание цвета пикселя в заданных координатах.
IFCOLOR X,Y - Условие. В X - значение условия цвета по RGB ( 00FF65 R-00, G-FF, B-65), Y - лейбла для перехода к ней, Если X = Ранее считанному COLOR, то переход к лейбле Y в скрипте.
$IFCOLOR X,Y - Тоже самое, но с поддержкой возврата RETURN.
IFNOTCOLOR X,Y - Обратное условие, Если цвет не равен указанному в параметре X, то переход к лейбле Y скрипта. 
$IFNOTCOLOR X,Y - Тоже самое, но с поддержкой возврата RETURN.
GOTO X - Переход лейбле X в скрипте, используется для зацикливания скрипта.
$GOTO X - Тоже самое, но с поддержкой возврата RETURN.
SAY 'Text' - Написать текст, который записан в Text, в текущем окне ввода. Рекомендуется текст помещать в одинарные кавычки 'Hello World'.
COUNT - Счетчик, по умолчанию = 0, эта функция прибавляет 1 с каждым использованием.
COUNTCLEAR - Сбрасыват счетчик в 0.
IFCOUNT X,Y - Условие, если текущее соостояние счетчика = X, то переход к лейбле Y.
$IFCOUNT X,Y - Тоже самое, но с поддержкой возврата RETURN.
ARRAYREAD X - Считать значение из массива, X - номер ячейки.
IFARRAY X,Y - Условие, если значение ранее считанной ячейки из массива = X, то переход к лейбле Y.
$IFARRAY X,Y - Тоже самое, но с поддержкой возврата RETURN.
IFNOTARRAY X,Y - Обратное условие, если значение ранее считанной ячейки из массива не равно X, то переход к лейбле Y.
$IFNOTARRAY X,Y - Тоже самое, но с поддержкой возврата RETURN.
ARRAYWRITE X,Y - Записать значение в массив X - Номер ячейки, Y - Значение.
ARRAYADD X,Y - Операция сложения в массиве. X - Номер ячейки, Y - Число, которое нужно прибавить.
ARRAYSUB X,Y - Операция вычитания в массиве. X - Номер ячейки, Y - Число, которое нужно вычесть.
ARRAYCOUNT X - Занести значение счетчика в ячейку X массива.
ARRAYCOLOR X - Занести значение Ранее считанного COLOR в ячейку X массива.
ARRAYADDCOUNT X - Прибавить значение счетчика к значению ячейки X массива.
ARRAYSUBCOUNT X - Вычесть значение счетчика из значения ячейки X массива.
COUNTARRAY X - Установить значение счетчика в значение ячейки X массива.
COLORARRAY X - Установить значение цвета COLOR в значение ячейки X массива.
RETURN - Возврат на строку, с которой был произведён переход на лейблу.
CLEARRETURN - Очистка списка возвратов.
GETCURSOR X,Y - Запись положения курсора в ячейки массива с номерами X и Y соответственно.
BEEP X,Y - Звуковой сигнал. X - Частота. Y - Продолжительность.
__________________
Програмистами не рождаются, ими становятся!

Последний раз редактировалось SCrat.ORS, 25.05.2015 в 10:42.
Ответить с цитированием
  #3  
Старый 25.05.2015, 11:04
Аватар для M.A.D.M.A.N.
M.A.D.M.A.N. M.A.D.M.A.N. вне форума
Sir Richard Abramson
 
Регистрация: 05.04.2008
Сообщения: 5,505
Версия Delphi: XE10
Репутация: выкл
По умолчанию

Вам обоим:
__________________
— Как тебя понимать?
— Понимать меня не обязательно. Обязательно меня любить и кормить вовремя.


На Delphi, увы, больше не программирую.
Рекомендуемая литература по программированию
Ответить с цитированием
  #4  
Старый 25.05.2015, 11:16
Stratego Stratego вне форума
Прохожий
 
Регистрация: 10.10.2014
Сообщения: 16
Версия Delphi: C++ 5
Репутация: 10
По умолчанию

Цитата:
Сообщение от SCrat.ORS
Слабовато... У меня макросы куда сильнее:

неа. у меня все же сильнее)). В Кибор.http://www.delphisources.ru/forum/sh...ad.php?t=26733
Кибор моя программа. А эта программа уже сделана в нем же... Просто для демо Кибора, ну и чтоб юзали..
Ответить с цитированием
  #5  
Старый 25.05.2015, 19:08
Аватар для SCrat.ORS
SCrat.ORS SCrat.ORS вне форума
Активный
 
Регистрация: 20.02.2007
Адрес: Мой адрес не дом и не улица, мой адрес 0x7С00
Сообщения: 208
Версия Delphi: 2006
Репутация: 884
По умолчанию

Ну дак с этого и надо было начинать название темы.
А то макрос, макрос - тупо кликер. Если тупо кликер - то у меня писька длинее, А если среда разработки - сорри, братюнь, у нас разные весовые категории. =)
__________________
Програмистами не рождаются, ими становятся!
Ответить с цитированием
  #6  
Старый 25.05.2015, 19:41
Stratego Stratego вне форума
Прохожий
 
Регистрация: 10.10.2014
Сообщения: 16
Версия Delphi: C++ 5
Репутация: 10
По умолчанию

Цитата:
Сообщение от SCrat.ORS
Ну дак с этого и надо было начинать название темы.
А то макрос, макрос - тупо кликер. Если тупо кликер - то у меня писька длинее, А если среда разработки - сорри, братюнь, у нас разные весовые категории. =)
При чем тут писька) я не меряюсь.
просто вчера делать было нечего и стяпал прожку.
ну а по тому что простая, так она такая и задумана. Для сложных задач Кибор, для простого юзера которому надо быстренько нажатием одной кнопкой выполнить макрос из кликов и нажатий самое то.
Тема верно названа. Она именно о этой программе, а не о Кибор.
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 02:05.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter