Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Интегрированная среда разработки ботов, Новая программа 
:(
    Опции темы
DMaster
Дата 28.3.2013, 16:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 47
Регистрация: 9.11.2005

Репутация: нет
Всего: нет



Кибор - самодостаточная программа позволяющая с помощью несложного скриптового языка задать логику и автоматизировать любые действия на компьютере.
Простой в усвоение Си образный язык используемый в программе Кибор заточен для анализа изображения экрана, работу с окнами и контролами, управления компьютерной мышью и клавиатурой с помощью несложных команд. Для этого язык Кибор снабжен необходимыми функциями легкими в применение.
Кибор снабжен не имеющими аналогов в подобных программах инструментами для работы с экраном игры непосредственно через окно программы в реальном времени.
Назначение программы - легкое программирование автоматизации действий на компьютере, в частности написание ботов к играм... 

Видео демонстрирующее учебное создание бота для игры Warspear Online 

Описание и учебник:

О программе Кибор

Описание языка Кибор
Переменные
Операции с переменными
Логика и переходы
Указатели
Функции

Список функций

Индификация окон и контролов
Управление окнами
Клавиатура
Мышь
Контролы
Работа с изображением
Сканирование экрана и поиск изображений
Определение цвета пикселя
Система
Вывод сообщений
Вспомогательные

Интерфейс программы

Текстовый редактор
Контролы управления

Визуальные инструменты Кибор

Шпион получающий информацию о окнах, контролах, координатах мыши и цвете экрана
Сканер графического интерфейса

Демонстрационные примеры
Бот для игры в пасьянс Косынка 
Бот для Warspear Online 

Скачать программу можно с домашней страницы. Программа отрабатывает мое время участием в партнерской программе.

Это первая версия. В дальнейшем еще много планов.

user posted image
user posted image
PM MAIL   Вверх
DMaster
Дата 24.1.2014, 12:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 47
Регистрация: 9.11.2005

Репутация: нет
Всего: нет



За это время программа значительно расширила свой функционал.

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

Видео гайд по основам использования программы Кибор.
Основы синтаксиса.
Графический редактор.
Подготовка изображения маски для поиска.
Поиск изображений.
Создание функций.
Как пользоваться справкой.
Смотреть Видео гайд Кибор. Основы.
На этом видео демонстрируется поиск мобов в 3Д игре. Посмотреть видео в поиска мобов в игре

Список функций Кибор

Указатель на окно или контролл, привязка потока, определение курсора
window - Получает указатель на окно или контрол
getwindow - Позволяет получить указатель на окно или контролл по указанным координатам
attach - Привязывает поток для определения типа курсора
getcursor - Определение типа курсора

Управление окнами
movewindow - Переименование, сдвиг и изменение размеров окон
moveclient - Переименование окна, сдвиг и изменение размеров окон (клиентские координаты, без оконтовки окна)
activate - Активировать окно
start- Открытие файлов и запуск программ
sendlanguage- Меняет раскладку языка в окне

Управление клавиатурой
key - Нажать и отпустить клавиатурную клавишу
keydown - Нажать клавиатурную клавишу
keyup - Отпустить клавиатурную клавишу
В не активное окно
sendkey - Отправить нажатие клавиатуры в не активное окно напрямую
sendtext - Отправить текст окну или контролу

Управление мышью
mouse - Клик кнопкой мыши
mousedown - Нажать кнопку мыши
mouseup - Отпустить кнопку мыши
mousedbl - Двойной клик мышью
mousemove - Переместить мышь на новые координаты
mousetransfer - Плавное перетаскивание мыши с зажатыми или нет кнопками
В не активное окно
sendmouse - Делает клик мышки в не активном или свернутом окне или контроле
sendmousedown - Делает нажатие мышки в не активном или свернутом окне или контроле
sendmousetransfer - Перетаскивание мышки в не активном или свернутом окне или контроле
sendmouseup - Отпускает зажатую кнопку мыши в не активном или свернутом окне или контроле
sendmousedbl - Двойной клик мышки в не активном или свернутом окне или контроле
sendmousemove - Переместить мышь на новые координаты в не активном или свернутом окне или контроле

Управление контроллами в приложениях
button- Отправить нажатие на кнопку в другой программе

Загрузка изображений в память Кибор, определение размера
loadimage- Загрузить изображение в память программы с файла
imagewidth- Получить ширину загруженного в память Кибор изображения
imageheight- Получить высоту загруженного в память Кибор изображения

Сканирование изображения экрана
finddynamic- Искать динамично меняющиеся области экрана
findimage- Искать изображение на экране по маске изображения загруженного в память Кибор
findheapcolor- Ищет области на которых есть скученности пикселей определенных цветов
getcolor- Получить цвет пикселя
scanpixel- Сравнивает введенный цвет с цветом пикселя в веденных координатах ориентируясь на разбежности в цветах RGB
findcolor- Найти все координаты всех пикселей указанного цвета

Получение скриншотов, сохранение их в файл и в памяти Кибор
screen- Делает скрин окна и записывает его в память Кибор в двухмерный массив int
savescreen- Делает скрин окна и сохраняет его на диск файлом .bmp .png .jpg
saveimage- Сохраняет на диск файлом .bmp .png .jpg загруженный ранее или созданный программно двухмерный массив int в котором хранится изображение

Получение информации о нажатых кнопках и координатах мыши
getkeystate- Определение статуса (нажата-не нажата) клавиша клавиатуры или кнопки мышки (коды клавиш)
getmouse- Получить текущие координаты мышки

Открытие процессов. Чтение и запись в память других программ
openprocess- Открыть процесс для чтения или записи в его память
findmemory- Поиск любых данных в памяти процесса
findmemorymask- Поиск данных в памяти процесса по маске (не учитывая некоторые байты в поиске)
readmemory- Читает байты с памяти процесса
writememory- Записывает байты в память процесса
freezememory - Записывает в память процесса по указанному адресу набор байт и замораживает их (то есть не дает программе изменить их)
freememory- Размораживат замороженные данные

Работа с интернетом
opensocket- Откывает сокет
sendhtml- Отправляет байты на сервер
recvhtml- Принимает ответ от сервера
closesocket- Закрыть сокет

Чтение и запись в файлы
fopen- Открыть файл для чтения или записи (текстовый и бинарный режим)
fclose- Закрыть открытый ранее файл
fwrit- Запись в открытый файл (текстовый и бинарный режим)
fread- Читает с открытого файла (текстовый и бинарный режим)
freadline- Чтение строки с файла

Работа с временем, паузы
sleep- Приостановить выполнение скрипта на время с заморозкой Кибор
pause- Приостановить выполнение скрипта на время без заморозки Кибор
gettime- Получить время в милисекундах прошедшее с запуска компьютера
getlocaltime- Получить локальное время в формате Год - ... - милисекунды

Работа с буфером обмена
writeclipboard- Запись в буфер обмена
readclipboard- Чтение с буфера обмена

Вывод текста на экран
textbkcolor- Установка цвета текста и фона для вывода его непосредственно на экран
textout- Вывод текста на экран
enabletextout- Отключить показ текста на экране
disabletextout- Включить показ текста на экране
resettextout- Сбросить текст

Преобразование одного типа данных к другому
format- Привод целго число int или дробного double к string
formatsn- Преобразование строк в которых записаны числа в натуральное число int или double
formatci- Возвращает int char'а значения в параметре
formatic- Возвращает char чисового значения в параметре
strcpy- Копирование string в массив char
codhex- Переводит целые или дробные числа (до 4 байт) в HEX (справа на лево)

Математические и геометрические функции
pow- Вычисление возведения в степень
sqrt- Вычисление корня
cos- Возвращает косинус угла в градусах
sin- Возвращает синус угла в градусах
tan- Возвращает тангенс угла в градусах
acos- Возвращает акосинус
asin- Возвращает асинус
atan- Возвращает атангенс

Определение размера данных
size- Возвращает количество элементов массива char до первого нуля

Звук
beep- Звучит звуковой сигнал

Рандом
rand- Получение рандомного числа

Работа с экраном
getdisplay- Получить данные о цветности и разрешение экрана
senddisplay- Изменить цветность или разрешение экрана
update- Обновить окно

Вывод сообщений
messagebox- Вывод текстового сообщения
messageboxyn- Вывод текстового сообщения с кнопками (Да Нет)
messageboxync- Вывод текстового сообщения с кнопками (Да Нет Отмена)

Интерфейс Кибор и графическая оболочка и управление контроллами создаваемого EXE.
sendcontrol- Отправляет данные контролу созданному в Кибор
getcontrol- Считывает данные с контрола созданного в Кибор
rename - Переименовать окно Кибор - rename("Новое имя")

Это сообщение отредактировал(а) DMaster - 24.1.2014, 12:33
PM MAIL   Вверх
DMaster
Дата 3.3.2016, 13:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 47
Регистрация: 9.11.2005

Репутация: нет
Всего: нет



Видео работы с визуальным редактором на примере создания бота для игры даркорбит.
https://youtu.be/-jTzXvBTalE
Использовался этот файл рисунок.
http://kibor-bot.com/imagesop/Image_0.bmp

Визуальный редактор кода - инструмент позволяющий в виде почти свободной схемы определить логику работы программы. Почти как рисовать в паинте.
Пример реализации бота в редакторе
user posted image

PM MAIL   Вверх
DMaster
Дата 14.9.2016, 12:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 47
Регистрация: 9.11.2005

Репутация: нет
Всего: нет



Поскольку программа направлена не на программистов возможности визуального редактора расширяются и при этом ом остается простым для пользователя как 3 копейки..
Улучшено юзабилити редактора. Добавлены в него не имеющие аналогов в подобных программах функции анализа экрана и поиска на нем нужных объектов.

Видео создания бота для такси мани. Создан в визуальном редакторе кода Кибор.
Смотреть создание и работу бота https://youtu.be/C2put6M2JT8
Схема этого бота в визуальном редакторе
user posted image
PM MAIL   Вверх
_zorn_
Дата 16.9.2016, 17:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1077
Регистрация: 21.8.2007

Репутация: нет
Всего: 12



А вы не считаете, что в наше время всяких NodeJS и прочего как то глупо изучать язык очередного Васи Пупкина ?
PM MAIL   Вверх
DMaster
Дата 17.9.2016, 10:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 47
Регистрация: 9.11.2005

Репутация: нет
Всего: нет



) ??????
Каким образом NodeJS и прочее относится к данной программе???
И каким образом человек которому понадобится что то быстро и удобно автоматизировать (тот же бот) применит все то прочее?

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

Разве то что на видео постом выше похоже на что то прочее??????
PM MAIL   Вверх
_zorn_
Дата 28.9.2016, 20:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1077
Регистрация: 21.8.2007

Репутация: нет
Всего: 12



Цитата(DMaster @  17.9.2016,  17:51 Найти цитируемый пост)
И каким образом человек которому понадобится что то быстро и удобно автоматизировать (тот же бот) применит все то прочее?

Вопрос не в том что он "применит", а в том что он "знает"
В этом посыл

Цитата(DMaster @  17.9.2016,  17:51 Найти цитируемый пост)
со своим языком

А в этом главная проблема, которая похоронит твой проект.
ЗЫ. Хотя ботописатели возможно и будут изучать твой "язык" (деваца некуда), но уйдут сразу же туда где скриптовый язык проще и понятней (а язык разрабатываемый десятилетиями, всяко "проще и понятней", чем от "васи пупкина"... ну за исключением ЧИСТОГО JS.  Там постарались запутать smile)

ЗЫЫ. Ты пытаешься действовать как Майкрософт лет 10-20 назад. Короче устарел ты чувак. Даже микрософт уже в опенсорсе.

PSSS. Не, ну если это чисто быстрая прибыль, которая сейчас есть, то мои советы не для тебя. Завтра другого бота придумаешь с другим языком. А потом выдохнешся.

Это сообщение отредактировал(а) _zorn_ - 28.9.2016, 20:48
PM MAIL   Вверх
DMaster
Дата 11.10.2016, 22:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 47
Регистрация: 9.11.2005

Репутация: нет
Всего: нет



Цитата(_zorn_ @  28.9.2016,  20:19 Найти цитируемый пост)
Вопрос не в том что он "применит", а в том что он "знает"

В чем применит?? Как можно применить молоток когда тебе надо нарисовать картину?


Цитата(_zorn_ @  28.9.2016,  20:19 Найти цитируемый пост)
А в этом главная проблема, которая похоронит твой проект.
ЗЫ. Хотя ботописатели возможно и будут изучать твой "язык" (деваца некуда), но уйдут сразу же туда где скриптовый язык проще и понятней (а язык разрабатываемый десятилетиями, всяко "проще и понятней", чем от "васи пупкина"... ну за исключением ЧИСТОГО JS.  Там постарались запутать smile)


что вообще не понятного в таком например коде??
Код

int Image[28][30], col, ex, ey, x[20], y[20], k, n;


loadimage (#Image[0][0], "C:\Image.bmp");
getdisplay(col, ex, ey);
pause(1000);

scan();


function scan()
{
k=findimage(20, #Image[0][0], 0, #x[0], #y[0], 0, 0, ex, ey, -1);
for (n=0; n<k; n++)
{
mouse(LEFT, x[n], y[n]);
sleep(500);
}
}

Он чем то оригинальный??


Цитата(_zorn_ @  28.9.2016,  20:19 Найти цитируемый пост)
Завтра другого бота придумаешь с другим языком. А потом выдохнешся.

Какого другого бота? Эта программа давно уже функционирует в полном объеме. Я в ней легко пишу разных ботов для разных игр. И не только я. Кроме этого Кибор имеет кучу инструментария встроенного вплоть до Визуального редактора кода который используют много людей и не вникают в сам код..

Это сообщение отредактировал(а) DMaster - 15.10.2016, 00:59
PM MAIL   Вверх
_zorn_
Дата 21.10.2016, 22:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1077
Регистрация: 21.8.2007

Репутация: нет
Всего: 12



Цитата(DMaster @  12.10.2016,  05:12 Найти цитируемый пост)
что вообще не понятного в таком например коде??

В этом то и вся проблема. Он понятен для ВАС.
И вам НАСРАТЬ что есть и будут другие языки.

А клиент он такой.

Реально было бы на яваскрипте - может и побольше было бы клиентов. (нода)
Ну а вообще конечно главная проблема в "продвигальщике". Без рекламы мы никто.
PM MAIL   Вверх
DMaster
Дата 23.10.2016, 18:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 47
Регистрация: 9.11.2005

Репутация: нет
Всего: нет



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

Это сообщение отредактировал(а) DMaster - 23.10.2016, 18:40
PM MAIL   Вверх
DMaster
Дата 14.12.2016, 21:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 47
Регистрация: 9.11.2005

Репутация: нет
Всего: нет



Создание бота для Даркорбит в Визуальном редакторе. Визуальное программирование Кибор Бот бьет мобов и собирает коробки.
Создание диалогового окна.
Демонстрация использования функций.
Использование блоков кода.
Видео создания бота

Схема бота
user posted image
PM MAIL   Вверх
vpf
Дата 15.12.2016, 08:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 119
Регистрация: 14.11.2016
Где: Moscow

Репутация: нет
Всего: нет



Не слушайте никого, это они от зависти, отличная программа, спасибо Вам!
PM MAIL IM ICQ Skype GTalk Jabber AOL YIM MSN   Вверх
DMaster
Дата 15.12.2016, 21:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 47
Регистрация: 9.11.2005

Репутация: нет
Всего: нет



Цитата(vpf @ 15.12.2016,  08:22)
Не слушайте никого, это они от зависти, отличная программа, спасибо Вам!

Спасибо. Мне как разработчику приятно слышать)
PM MAIL   Вверх
DMaster
Дата 9.1.2017, 22:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 47
Регистрация: 9.11.2005

Репутация: нет
Всего: нет



Демонстрация создания бота для Hay Day

Бот создается без программирования в визуальном редакторе Кибор.

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

Видео создания бота можно посмотреть тут
Видео создания бота
Схема бота для  Hay Day  в визуальном редакторе Кибор
user posted image

Это сообщение отредактировал(а) DMaster - 9.1.2017, 22:32
PM MAIL   Вверх
DMaster
Дата 19.10.2017, 23:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 47
Регистрация: 9.11.2005

Репутация: нет
Всего: нет



В Кибор появилась обучаемая функция распознавания текста.
Теперь считывание с экрана текста не будет проблемой. Для обучения разработан специальный инструмент.
Подробнее о распознавание текста в Кибор
Видео работы и настройки функции распознавания текста
user posted image
PM MAIL   Вверх
DMaster
Дата 28.10.2017, 14:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 47
Регистрация: 9.11.2005

Репутация: нет
Всего: нет



Записал видео создания бота для Music Wars. бот создается в реальном времени с нуля.
Демонстрируется настройка параметров функции распознавания текста, так как бот во время работы сканирует и распознает количество доступных боев, энергии.
Так же распознаются силовые параметры игрока и соперников.
Видео подробно прокомментировано.
https://youtu.be/km8weD1hucY
PM MAIL   Вверх
DMaster
Дата 18.8.2018, 04:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 47
Регистрация: 9.11.2005

Репутация: нет
Всего: нет



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

Это сообщение отредактировал(а) DMaster - 18.8.2018, 04:03
PM MAIL   Вверх
jabchik
Дата 10.1.2019, 10:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 2
Регистрация: 10.1.2019

Репутация: нет
Всего: нет



 smile  smile  smile 
PM MAIL   Вверх
DMaster
Дата 2.2.2019, 01:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 47
Регистрация: 9.11.2005

Репутация: нет
Всего: нет



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

Появилась возможность создавать функции обработчики сообщений полученных окнами. Используется WinApi

Пример:
Код

external(INT, "CreateMenu", "CreateMenu", "User32.dll" );
external(INT, "CreatePopupMenu", "CreatePopupMenu", "User32.dll" );
external(INT, "AppendMenu", "AppendMenuA", "User32.dll" );
external(INT, "SetMenuInfo", "SetMenuInfo", "User32.dll" );
external(INT, "SetMenu", "SetMenu", "User32.dll" );
external(INT, "CreateWindow", "CreateWindowExA", "User32.dll" );
external(INT, "TrackPopupMenu", "TrackPopupMenu", "User32.dll" );


//Сожание меню
int MENUINFO[7]={28, 16, 134217728, 0, 0, 0, 0};
int HMENU, HMENU2, HMENU3;

HMENU2=CreatePopupMenu();
AppendMenu(HMENU2, 16, 1, "Новый" );
AppendMenu(HMENU2, 16, 2, "Открыть" );
AppendMenu(HMENU2, 16, 3, "Сохранить" );
AppendMenu(HMENU2, 16, 4, "Сохранить как" );

HMENU3=CreatePopupMenu();
AppendMenu(HMENU3, 16, 5, "Вырезать" );
AppendMenu(HMENU3, 16, 6, "Копировать" );

HMENU=CreateMenu();
AppendMenu(HMENU, 16, HMENU2, "Файл" );
AppendMenu(HMENU, 16, HMENU3, "Правка" );



//Создание всплывающего меню
int vHMENU, vHMENU2, result;

vHMENU=CreatePopupMenu();
AppendMenu(vHMENU, 0, 111, "MessageBox" );
AppendMenu(vHMENU, 0, 222, "Findimage" );

vHMENU2=CreatePopupMenu();
AppendMenu(vHMENU2, 0, 333, "25" );
AppendMenu(vHMENU2, 0, 444, "50" );
AppendMenu(vHMENU2, 0, 555, "75" );
AppendMenu(vHMENU2, 0, 666, "100" );
AppendMenu(vHMENU, 16, vHMENU2, "Прозрачность" );


int b1, b2;


createdialog(0);
showdialog(0, "Диалог",100, 100, 300, 300, 1, 1);

while(window ("Диалог")==0)sleep(10);
win w=window ("Диалог");


loop()
{
w=window ("Диалог");
textout(1, w.left, w.top, " Не обновляли ", 0);
sleep(1);
}

function Простая_функция()//В ней пересчитаем на экранные координаты
{
textout(0, message.x+w.leftclient, message.y+w.topclient, " "+format(message.x)+" "+format(message.y), 1);
}

function getmessage(0, WM_MOUSEMOVE)//Отлавливаем перемещешие мыши над окном
{
Простая_функция();//Перейдем в другую функцию
}

function getmessage(0, WM_CREATE)//Создаем контролы при создание окна
{
int hwnd=gethwnd(0);
SetMenuInfo(HMENU, address(#MENUINFO[0]));
SetMenu(hwnd, HMENU);

//Создание кнопок
b1=CreateWindow(0, "BUTTON", "Первая кнопка", 1342177280, 10, 10, 120, 30, hwnd, 0, 0, 0);
b2=CreateWindow(0, "BUTTON", "Ворая кнопка", 1342177280, 10, 50, 120, 30, hwnd, 0, 0, 0);
}

function getmessage(0, WM_COMMAND)
{
if (message.lparam==b1)messagebox ("Первая кнопка");
if (message.lparam==b2)messagebox ("Ворая кнопка");

}


function getmessage(0, WM_MENUCOMMAND)//Отлавливаем клик по пункту меню
{
if (message.lparam==HMENU2)//идентификатор меню "Файл"
{
if (message.wparam==0)messagebox ("Новый");
if (message.wparam==1)messagebox ("Открыть");
if (message.wparam==2)messagebox ("Сохранить");
if (message.wparam==3)messagebox ("Сохранить как");
}

if (message.lparam==HMENU3)//идентификатор меню "Правка"
{
if (message.wparam==0)messagebox ("Вырезать");
if (message.wparam==1)messagebox ("Копировать");
}
}



function getmessage(0, WM_RBUTTONDOWN)//Отлавливаем клик правой кнопки мыши всплывающее меню
{
w=window ("Диалог" );
result=TrackPopupMenu(vHMENU, 256, message.x+w.leftclient, message.y+w.topclient, 0, formatwi(w), 0 ); // вывести меню
if(result==111)messagebox("Выбран пункт MessageBox" );
if(result==222)messagebox("Выбран пункт Findimage" );

if(result==333)transparency(25, w);
if(result==444)transparency(50, w);
if(result==555)transparency(75, w);
if(result==666)transparency(100, w);
}


function getmessage(0, WM_LBUTTONDOWN)//Отлавливаем клик левой кнопки мыши
{
beep(2500, 100);
}

function getmessage(0, 15)//WM_PAINT Отлавливаем обновление окна
{
textout(1, w.left, w.top, " Обновили окно ", 0);
sleep(100);
}



Это сообщение отредактировал(а) DMaster - 3.2.2019, 09:29
PM MAIL   Вверх
DMaster
Дата 10.5.2019, 03:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 47
Регистрация: 9.11.2005

Репутация: нет
Всего: нет



Обновил программу.
Появился отладчик.
Возможности:
Логирование работы в реальном времени и просмотр лога при вылете программы.
Логирование значений переменных во время работы скрипта и запись в лог.
Определение строки кода при крахе Кибор.
Установка пауз между выполнением строк кода.


Скрин


Логирование работы Кибор в реальном времени
PM MAIL   Вверх
DMaster
Дата 30.5.2019, 13:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 47
Регистрация: 9.11.2005

Репутация: нет
Всего: нет



Видео как за 10 минут и несколько строк кода решить вопрос с распознаванием многострочного текста, составления списка названий каждого из пунктов и нахождения их координат.

Сканируется это изображение и составляется список с ников и их координат.

user posted image

Видео: https://youtu.be/WbQ36STrV24
PM MAIL   Вверх
dorcasmelda
Дата 27.5.2020, 09:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 5
Регистрация: 11.12.2019

Репутация: нет
Всего: нет



Among other courses, cultural studies coursework writing services has become popular since students seek Cultural Studies Writing Services and cultural studies essay writing services. 
https://researchpapers247.com/cultural-stud...riting-service/
PM MAIL   Вверх
DMaster
Дата 9.6.2020, 13:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 47
Регистрация: 9.11.2005

Репутация: нет
Всего: нет



Много разных обновлений было.

Одно из них, это парсер JSON формата:

Код
/*
{
"clientKey":"dce6bcbb1a728ea8d563de6d169a2057",
"task":
{
"type":"ImageToTextTask",
"body":"BASE64_BODY_HERE!",
"phrase":false,
"case":false,
"numeric":0,
"math":false,
"minLength":0,
"maxLength":0
}
}
*/

string Json="{^"clientKey^":^"" + "dce6bcbb1a728ea8d563de6d169a2057^"," +
"^"task^":" +
"{^"type^":^"ImageToTextTask^"," +
"^"body^":^"BASE64_BODY_HERE!^"," +
"^"phrase^":false," +
"^"case^":false," +
"^"numeric^":0," +
"^"math^":false," +
"^"minLength^":0," +
"^"maxLength^":0}}";

messagebox (Json);

parserjson(Rez_Json, Json);//Создаем объект JSON с символьным именем Rez_Json и Парсим запись JSON с Json

messagebox (Rez_Json.task.case);//Выводим значение объекта JSON



Узнать все name и value массива stats

Файл C:\json.txt
Код
{
"playerstats": {
"steamID": "76561198050187807",
"gameName": "ValveTestApp260",
"stats": [
{
"name": "total_kills",
"value": 35179
},
{
"name": "total_deaths",
"value": 30241
},
{
"name": "total_time_played",
"value": 2444377
}
]
}
}


Скрипт
Код
string исходник="";
string Tt;

if (fopen ("C:\json.txt", "r")!=0)//открываем файл для чтения "r"
{
while (freadline(Tt))исходник=исходник+Tt;
fclose();
}



parserjson(Rez_Json, исходник);

int n=0;
while (Rez_Json.playerstats.stats[n].name!="ERROR_SEARCH_JSON")
{
messagebox (Rez_Json.playerstats.stats[n].name+" = "+Rez_Json.playerstats.stats[n].value);
n++;
}


https://kibor-bot.com/forum/topic.php?forum=1&topic=140
PM MAIL   Вверх
DMaster
Дата 8.7.2020, 10:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 47
Регистрация: 9.11.2005

Репутация: нет
Всего: нет



Простой скрипт для автоматического поиска бесплатных прокси. Избавляет от ручного захода на сайт с списком бесплатных прокси и проверки их на работоспособность вручную.

В случае нахождения рабочего прокси выдает код страницы https://kibor-bot.com/forum  и выдает IP и порт для дальнейшего использования.

Видео работы.
https://youtu.be/DVcnJIvqYEI

Код
int pos_size_edit0[1][4];
string text_edit0[1];

pos_size_edit0[0][0]=10; pos_size_edit0[0][1]=9; pos_size_edit0[0][2]=221; pos_size_edit0[0][3]=20;
text_edit0[0]="Парсинг прокси...";

createdialog(0, EDIT, #pos_size_edit0[0][0], #text_edit0[0]);
showdialog(0, "Поиск прокси", 200, 200, 250, 70, 1, 1);
//////////



find_proxi();

loop()sleep(10);

function find_proxi()
{
string P[100];
string R="(?<=input type=^"checkbox^" class=^"ch^" value=^")[\d]+(\.)[\d]+(\.)[\d]+(\.)[\d]+(:)[\d]+(?=^" onclick=^"SelectProxy\(this\)^")";
int pade=1;
string T;
S:;
  if (sendgetweb(#T, "Mozilla/5.0 (Windows NT 6.1; Win64; x64; rv:78.0) Gecko/20100101 Firefox/78.0", "GET", "http:/^/foxtools.ru", "Proxy?page="+format(pade)))
  {
  text_edit0[0]="Парсинг прокси...";
  
  int k=regexsearch(100, #P[0], T, R);
    if (k==0)
    {
    messagebox ("Прокси нет");
    return;
    }
    for (int n=0; n<k; n++)
    {
    text_edit0[0]=P[n];
    
      if (sendgetweb(P[n], #T, "Mozilla/5.0 (Windows NT 6.1; Win64; x64; rv:78.0) Gecko/20100101 Firefox/78.0", "GET", "https:/^/kibor-bot.com", "forum"))
      {
        if (T!="")
        {
          if (fopen (tempfolder()+"proxi.txt", "w")!=0)
          {//если открылся
          fwrite("Рабочий прокси "+P[n]+"^r^n"+T);
          fclose();//закрываем файл
          }
        start(tempfolder()+"proxi.txt");
        if (messageboxyn("Прокси найден.^r^nДа - Закончить поиск^r^nНет - Продолжить поиск")==1)return;        
        }
      }
    }
  }
pade++;
goto S;
}





Это сообщение отредактировал(а) DMaster - 9.7.2020, 12:23
PM MAIL   Вверх
DMaster
Дата 9.7.2020, 18:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 47
Регистрация: 9.11.2005

Репутация: нет
Всего: нет



Дополнительно показывает страну:
использует api сайта и парсер json

Получаемый JSON:
Код
{"response":{"pageNumber":1,"pageCount":2,"items":[{"ip":"116.66.197.228","port":8080,"type":2,"anonymity":"HighKeepAlive","uptime":2.34,"checked":"2020-07-07T06:55:28","available":"Yes","free":"Yes","country":{"nameEn":"Nepal","nameRu":"Непал","iso3166a2":"NP"}},{"ip":"200.239.64.36","port":80,"type":1,"anonymity":"HighKeepAlive","uptime":0.36,"checked":"2020-07-07T06:38:42","available":"Yes","free":"Yes","country":{"nameEn":"Brazil","nameRu":"Бразилия","iso3166a2":"BR"}},
.....................................


Код
IP в Json.response.items[i].ip    
Порт в Json.response.items[i].port
Страна в Json.response.items[i].country.nameEn



Код
int pos_size_edit0[1][4];
string text_edit0[1];

pos_size_edit0[0][0]=10; pos_size_edit0[0][1]=9; pos_size_edit0[0][2]=221; pos_size_edit0[0][3]=20;
text_edit0[0]="Парсинг прокси...";

createdialog(0, EDIT, #pos_size_edit0[0][0], #text_edit0[0]);
showdialog(0, "Поиск прокси", 200, 200, 250, 70, 1, 1);
//////////


find_proxi();

//loop()sleep(10);

function find_proxi()
{
string T;
int limit=100;
int page=1;

  loop()
  {
    if (sendgetweb(#T, "Mozilla/5.0 (Windows NT 6.1; Win64; x64; rv:78.0) Gecko/20100101 Firefox/78.0", "POST", "http:/^/api.foxtools.ru", "v2/Proxy?limit="+format(limit)+"&page="+format(page)))
    {
    //messagebox (T);
    text_edit0[0]="Парсинг прокси...";
    parserjson(Json, T);
    
      for(int i=0; i<limit; i++)
      {
      string ip = Json.response.items[i].ip;
      string port = Json.response.items[i].port;
      
        if(ip == "ERROR_SEARCH_JSON")
        {
        messagebox("Прокси не найден");
        return;
        }
     text_edit0[0]=ip+":"+port+"^t"+Json.response.items[i].country.nameEn;
      sleep(100);
      
        if (sendgetweb(ip+":"+port, #T, "Mozilla/5.0 (Windows NT 6.1; Win64; x64; rv:78.0) Gecko/20100101 Firefox/78.0", "GET", "https:/^/kibor-bot.com", "forum"))
        {
          if (T!="")
          {
            if (fopen (tempfolder()+"proxi.txt", "w")!=0)
            {//если открылся
            fwrite("Рабочий прокси "+ip+":"+port+"^r^n"+T);
            fclose();//закрываем файл
            }
          start(tempfolder()+"proxi.txt");
          if (messageboxyn("Прокси найден.^r^nДа - Закончить поиск^r^nНет - Продолжить поиск")==1)return;
          }
        }
      
      }
    }
    else
    {
    messagebox ("Прокси не найден");
    return;
    }
  page++;
  }
}


Это сообщение отредактировал(а) DMaster - 9.7.2020, 18:16
PM MAIL   Вверх
DMaster
Дата 22.7.2020, 11:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 47
Регистрация: 9.11.2005

Репутация: нет
Всего: нет



Демонстрация автоматизации действий в браузере на примере  Бота для Ставок на спорт для сайта betcity

Используется распознавание текста.
Видео работы бота

PM MAIL   Вверх
DMaster
Дата 30.7.2020, 23:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 47
Регистрация: 9.11.2005

Репутация: нет
Всего: нет



Выполнение скриптов Python в Кибор

Запуск интерпретатора Python, налаживание сввязи с ним через PIPE и выполнение скриптов Python в Кибор

Необходим интерпретатор Питона. Его можно установить самому или скачать нужные файлы тут 20,9 МБ.  В архиве 2 фала. python.exe и python38.dll и папки DLLs и Lib. Их надо поместить в папку с программой Кибор.

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

Код
#define STARTF_USESHOWWINDOW 1
#define STARTF_USESTDHANDLES 256
#define SW_HIDE 0
#define INFINITE -1
external(INT, "CreatePipe", "CreatePipe", "kernel32.dll");
external(VOID, "ZeroMemory", "RtlZeroMemory", "kernel32.dll");
external(VOID, "GetStartupInfo", "GetStartupInfoA", "kernel32.dll");
external(INT, "CreateProcess", "CreateProcessA", "kernel32.dll");
external(INT, "ReadFile", "ReadFile", "kernel32.dll");
external(INT, "WriteFile", "WriteFile", "kernel32.dll");
external(INT, "TerminateProcess", "TerminateProcess", "kernel32.dll");
external(INT, "WaitForSingleObject", "WaitForSingleObject", "kernel32.dll");
external(INT, "CloseHandle", "CloseHandle", "kernel32.dll");

string path_python=pathfolder()+"python.exe -i";//Можно писать полный путь к интерпретатору Python если он не в папке с Кибор
int hReadPipe1, hWritePipe1, hReadPipe2, hWritePipe2;
char pi[16];
char W_buff[1000000];
string Rez;



if (StartPython())//Запустить интерпретатор python и наладить с ним связь PIPE
{
ReadPython();

WritePython("print(5+25)");// Выполнить в питоне "print(5+25)"
sleep(10);
Rez=ReadPython();// Получить ответ
messagebox (Rez);// Показать ответ

WritePython("print(2+5)");// Выполнить в питоне "print(2+5)"
sleep(10);
Rez=ReadPython();// Получить ответ
messagebox (Rez);// Показать ответ

WritePython("import webbrowser");// Выполнить в питоне "import webbrowser"
sleep(10);
Rez=ReadPython();// Получить ответ

WritePython("webbrowser.open(^'https:/^/google.com^', new=2)");// Выполнить в питоне "webbrowser.open('https://google.com', new=2)"
sleep(10);
Rez=ReadPython();// Получить ответ
messagebox (Rez);// Показать ответ

ClosePython();//Завершить работу с каналом и интерпретатором
}





function StartPython()
{
int ret;

//SECURITY_ATTRIBUTES
char sa[12];
initialarray(#sa[0], 0);
writeaddress(sizearray(sa), address(#sa[0]));
writeaddress(0, address(#sa[4]));
writeaddress(1, address(#sa[8]));

ret=CreatePipe(address(#hReadPipe1),address(#hWritePipe1),address(#sa[0]),0);
if (ret==0)return 0;
ret=CreatePipe(address(#hReadPipe2),address(#hWritePipe2),address(#sa[0]),0);
if (ret==0)return 0;

//STARTUPINFO
char si[68];
initialarray(#si[0], 0);
ZeroMemory(address(#si[0]),sizearray(si));
GetStartupInfo(address(#si[0]));
writeaddress(sizearray(si), address(#si[0]));
writeaddress(STARTF_USESHOWWINDOW | STARTF_USESTDHANDLES, address(#si[44]));
writeaddress(SW_HIDE, address(#si[48]));
writeaddress(hReadPipe2, address(#si[56]));
writeaddress(hWritePipe1, address(#si[60]));
writeaddress(hWritePipe1, address(#si[64]));

//PROCESS_INFORMATION
initialarray(#pi[0], 0);
ret=CreateProcess(0,path_python,0,0,1,0,0,0,address(#si[0]),address(#pi[0]));
if (ret==0)return 0;

return 1;
}

function WritePython(string COMMAND)
{
int lBytesWrite;
WriteFile(hWritePipe2,COMMAND+"^n", size(COMMAND+"^n"), address(#lBytesWrite), 0);
}

function ReadPython()
{
int readed;
int W_Ta=0;
  while(ReadFile(hReadPipe1, address(#W_buff[W_Ta]), 1024 , address(#readed), 0)==1)
  {
  W_Ta=W_Ta+readed;
  if (W_Ta>3){if (W_buff[W_Ta-2]=='>' && W_buff[W_Ta-3]=='>' && W_buff[W_Ta-4]=='>') {W_Ta=W_Ta-4; break;}}
  if(readed!=1024) break;
  }
W_buff[W_Ta]=0;
return format(#W_buff[0]);
}

function ClosePython()
{
TerminateProcess(addressi(address(#pi[0])), 0);
WaitForSingleObject(addressi(address(#pi[0])), INFINITE );
CloseHandle(addressi(address(#pi[0])));
CloseHandle(addressi(address(#pi[4])));
CloseHandle(hReadPipe1);
CloseHandle(hWritePipe1);
CloseHandle(hReadPipe2);
CloseHandle(hWritePipe2);
}


Это сообщение отредактировал(а) DMaster - 31.7.2020, 16:06
PM MAIL   Вверх
DMaster
Дата 1.8.2020, 01:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 47
Регистрация: 9.11.2005

Репутация: нет
Всего: нет



Пример как использовать Selenium для автоматизации действий в браузере.
Используется Python. В дальнейшем планируется его интегрировать в Кибор.
Для работы необходимо разместить в папке с Кибор файлы с этого архива. Это Python с Selenium.

Скрипт Python в Кибор. Работа с браузером через Selenium драйвер браузера

Видео работы

Скрипт запускает браузер Firefox
После запуска браузера переходит на поисковую систему Гугл
Находит по ID элемент поля ввода запроса
Вводит туда запрос "Kibor"
Нажимает Enter
В результатах поиска находит ссылку с частичным текстом kibor-bot.com
Переходит по ней на сайт https://kibor-bot.com

Код
#define STARTF_USESHOWWINDOW 1
#define STARTF_USESTDHANDLES 256
#define SW_HIDE 0
#define INFINITE -1
external(INT, "CreatePipe", "CreatePipe", "kernel32.dll");
external(VOID, "ZeroMemory", "RtlZeroMemory", "kernel32.dll");
external(VOID, "GetStartupInfo", "GetStartupInfoA", "kernel32.dll");
external(INT, "CreateProcess", "CreateProcessA", "kernel32.dll");
external(INT, "ReadFile", "ReadFile", "kernel32.dll");
external(INT, "WriteFile", "WriteFile", "kernel32.dll");
external(INT, "TerminateProcess", "TerminateProcess", "kernel32.dll");
external(INT, "WaitForSingleObject", "WaitForSingleObject", "kernel32.dll");
external(INT, "CloseHandle", "CloseHandle", "kernel32.dll");

string path_python=pathfolder()+"python.exe -i";//Можно писать полный путь к интерпретатору Python если он не в папке с Кибор
string path_browser="C:\Program Files (x86)\Mozilla Firefox\firefox.exe";//Путь к браузеру Firefox

int hReadPipe1, hWritePipe1, hReadPipe2, hWritePipe2;
char pi[16];
char W_buff[1000000];
string Rez;

/*
Скрипт Python
Работает через Selenium драйвер браузера
Скрипт запускает браузер Firefox
После запуска браузера переходит на поисковую систему Гугл
Находит по ID элемент поля ввода запроса
Вводит туда запрос "Kibor"
Нажимает Enter
В результатах поиска находит ссылку с частичным текстом kibor-bot.com
Переходит по ней на сайт [url]https://kibor-bot.com[/url]
*/

/*
import time
from selenium import webdriver
from selenium.webdriver.common.keys import Keys
web = webdriver.Firefox(executable_path=r'C:\Program Files (x86)\Kibor\webdriver\geckodriver.exe', firefox_binary=r'C:\Program Files (x86)\Mozilla Firefox\firefox.exe')
web.get('https://www.google.com')
time.sleep(1);
element = web.find_element_by_name('q')
element.send_keys("Kibor")
time.sleep(1);
element.send_keys(Keys.ENTER)
time.sleep(3);
web.find_element_by_partial_link_text("kibor-bot.com").click()
*/


if (StartPython())//Запустить интерпретатор python и наладить с ним связь PIPE
{
ReadPython();

WritePython("import time");
sleep(10);
Rez=ReadPython();// Получить ответ

WritePython("from selenium import webdriver");
sleep(10);
Rez=ReadPython();// Получить ответ

WritePython("from selenium.webdriver.common.keys import Keys");
sleep(10);
Rez=ReadPython();// Получить ответ

WritePython("web = webdriver.Firefox(executable_path=r^'"+pathfolder()+"\webdriver\geckodriver.exe^', firefox_binary=r^'"+path_browser+"^')");
sleep(10);
Rez=ReadPython();// Получить ответ

WritePython("web.get(^'https:/^/www.google.com^')");
sleep(10);
Rez=ReadPython();// Получить ответ

WritePython("time.sleep(1)");
sleep(10);
Rez=ReadPython();// Получить ответ

WritePython("element = web.find_element_by_name(^'q^')");
sleep(10);
Rez=ReadPython();// Получить ответ

WritePython("element.send_keys(^"Kibor^")");
sleep(10);
Rez=ReadPython();// Получить ответ

WritePython("time.sleep(1)");
sleep(10);
Rez=ReadPython();// Получить ответ

WritePython("element.send_keys(Keys.ENTER)");
sleep(10);
Rez=ReadPython();// Получить ответ

WritePython("time.sleep(3)");
sleep(10);
Rez=ReadPython();// Получить ответ

WritePython("web.find_element_by_partial_link_text(^"kibor-bot.com^").click()");
sleep(10);
Rez=ReadPython();// Получить ответ

ClosePython();//Завершить работу с каналом и интерпретатором
}





function StartPython()
{
int ret;

//SECURITY_ATTRIBUTES
char sa[12];
initialarray(#sa[0], 0);
writeaddress(sizearray(sa), address(#sa[0]));
writeaddress(0, address(#sa[4]));
writeaddress(1, address(#sa[8]));

ret=CreatePipe(address(#hReadPipe1),address(#hWritePipe1),address(#sa[0]),0);
if (ret==0)return 0;
ret=CreatePipe(address(#hReadPipe2),address(#hWritePipe2),address(#sa[0]),0);
if (ret==0)return 0;

//STARTUPINFO
char si[68];
initialarray(#si[0], 0);
ZeroMemory(address(#si[0]),sizearray(si));
GetStartupInfo(address(#si[0]));
writeaddress(sizearray(si), address(#si[0]));
writeaddress(STARTF_USESHOWWINDOW | STARTF_USESTDHANDLES, address(#si[44]));
writeaddress(SW_HIDE, address(#si[48]));
writeaddress(hReadPipe2, address(#si[56]));
writeaddress(hWritePipe1, address(#si[60]));
writeaddress(hWritePipe1, address(#si[64]));

//PROCESS_INFORMATION
initialarray(#pi[0], 0);
ret=CreateProcess(0,path_python,0,0,1,0,0,0,address(#si[0]),address(#pi[0]));
if (ret==0)return 0;

return 1;
}

function WritePython(string COMMAND)
{
int lBytesWrite;
WriteFile(hWritePipe2,COMMAND+"^n", size(COMMAND+"^n"), address(#lBytesWrite), 0);
}

function ReadPython()
{
int readed;
int W_Ta=0;
while(ReadFile(hReadPipe1, address(#W_buff[W_Ta]), 1024 , address(#readed), 0)==1)
{
W_Ta=W_Ta+readed;
if (W_Ta>3){if (W_buff[W_Ta-2]=='>' && W_buff[W_Ta-3]=='>' && W_buff[W_Ta-4]=='>') {W_Ta=W_Ta-4; break;}}
if(readed!=1024) break;
}
W_buff[W_Ta]=0;
return format(#W_buff[0]);
}

function ClosePython()
{
TerminateProcess(addressi(address(#pi[0])), 0);
WaitForSingleObject(addressi(address(#pi[0])), INFINITE );
CloseHandle(addressi(address(#pi[0])));
CloseHandle(addressi(address(#pi[4])));
CloseHandle(hReadPipe1);
CloseHandle(hWritePipe1);
CloseHandle(hReadPipe2);
CloseHandle(hWritePipe2);
}

PM MAIL   Вверх
DMaster
Дата 3.8.2020, 12:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 47
Регистрация: 9.11.2005

Репутация: нет
Всего: нет



В Кибор появилась возможность использовать Python.

Возможно выполнение скрипта с файла, вызов функций Питона с файлов.
Так же возможно выполнение отдельных команд Питона в коде Кибор и взаимный обмен данными.
Скрипт Питона можно запускать синхронно и асинхронно с выполнением скрипта Кибор.

Описание новых функций:
Цитата
runpython()

Запускает интерпретатор Питон.
Возвращает 1 при удачном запуске
0 при неудаче.

Цитата
closepython()

Завершает работу с интерпретатором.
Возвращает 1 если завершил работу.
0 если интерпретатор не был запущен.

Цитата
wpython("print(^'yes^')");

Отправляет Питону команду print('yes') и нажимает Ентер. Не синхронная. Не ждет окончания команды.
Возвращает 1 при удаче.

Цитата
rpython()

Считывает последний ответ с Питона.
Возвращает string.
То есть если перед этим мы отправили print('yes'), то прочитаем yes
Данная функция может считать ответ только один раз. При повторных попытках считывания или если Питон не готов выдать ответ (выполняет какую то задачу) эта функция вернет ERROR_READ_PYTHON

Цитата
wrpython("print(^'yes^')");

Посылает Питону print('yes') и сразу же получает ответ. Возвращает string. В данном случае yes.. Синхронная. После отправки ждет отработки кода и получения ответа.
Синхронность работы не распространяется на вызов Питон функций.

Цитата
fpython("C:\Program Files (x86)\Kibor\script.txt")

Считывает скрипт Питона с файла и выполняет его. Ответ, если есть необходимость надо получать так же как и в случае wpython функцией rpython
В файле допускаются функции и их вызов.
Перевод срока в файле является Ентером.

Примеры запуска скриптов Питона в Кибор

PM MAIL   Вверх
DMaster
Дата 8.8.2020, 16:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 47
Регистрация: 9.11.2005

Репутация: нет
Всего: нет



Добавил директивы __python и __end_python
Они позволяют указывать блоки скриптов Питон в редакторе Кибор.
Скрипты Питона и Кибор можно выполнять одновременно обмениваясь данными.

Пример использования функции Питон в Кибор
Код
if (runpython()==0){messagebox ("Не удалось запустить Python"); goto er;}
load_fen_python();//Загружаем все функции Питона

sleep(100);

//Вызываем когда понадобится с параметрами
messagebox (sendgetpython("similarity('мыло', 'мало')"));//0.75

closepython();

er:;


//Загружаем все функции Питона
function load_fen_python()
{
__python
import difflib

def similarity(s1, s2):
(отступ) normalized1 = s1.lower()
(отступ) normalized2 = s2.lower()
(отступ) matcher = difflib.SequenceMatcher(None, normalized1, normalized2)
(отступ) return matcher.ratio()

__end_python
}


------------------------

Сделал возможность в Кибор собрать единый запускной EXE который будет выполнять скрипт Кибор и Питона на компьютере где Питон не установлен.
PM MAIL   Вверх
DMaster
Дата 9.8.2020, 07:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 47
Регистрация: 9.11.2005

Репутация: нет
Всего: нет



 Скрипт автоматизация в браузере с помощью Кибор Python и Selenium
Скрипт запускает браузер, в Гугде вводит поисковый запрос и ищет нужный сайт и переходит на него.
Показано как совмещать Python скрипт с скриптом Кибор

Видео работы

Код
string find="Распознать текст OCR";//Запрос
string path_webdriver=pathfolder()+"python\webdriver\geckodriver.exe"; // Путь к webdriver. C:\Program Files (x86)\Kibor\python\webdriver\geckodriver.exe
string path_browser="C:\Program Files (x86)\Mozilla Firefox\Firefox.exe"; // Путь к браузеру Мозила

if (runpython()==0){messagebox ("Не удалось запустить Python"); goto er;}//Запускаем интерпретатор Python

//Подготовка
import();

//Запуск браузера и переход на https://www.google.com
start_browser();

//Находим на поисковой странице Гугла поле для ввода в поиск и вводим туда запрос
find_google();

//Искать на странице открывшегося поиска ссылку которая ведет на kibor-bot.com и кликнуть по ней
F: if (find_site("kibor-bot.com")==0)//Если этой станице ссылки на kibor-bot.com нет
{//Надо перейти на следующую станицу поиска
if (find_site("Следующая")==0) goto exits;//Если на этой странице нет кнопки Следующая завершить программу
pause(5000);//Если кликнули по кнопке Следующая пауза 5 секунд и повторяем поиск ссылки на kibor-bot.com
goto F;
}

exits:;
closepython();//Завершаем работу с интерпретатором
er:;


function find_site(string find_link)//Искать на странице открывшегося поиска ссылку которая ведет на указанный линк
{
string rez;
sendpython("web.find_element_by_partial_link_text(^'"+find_link+"^').click()");//Отправляем Питону команду найти ссылку содержащую kibor-bot.com и по ней кликнуть
sendpython("print(^'yes^')");//Сразу же не ожидая окончания первой команды Отправить print('yes')

loop()//Замкнутый цикл в котором ждем ответ
{
rez=getpython();//Пытаемся считать ответ Если ссылка не была найдена, то в ответе кроме yes будет еще описание ошибки.
if (rez!="ERROR_READ_PYTHON")//Если Питон нам что то ответил..
{
//messagebox (rez+);//Посмотреть что приходит когда нашли ссыку и когда не нашли
if (rez=="yes")return 1;//Если в ответе только слово yes, значит мы нашли ссылку и описания ошибки нет.
return 0;//Иначе в ответе не только слово yes. Значит мы не нашли ссылку
}
}
}

function find_google()//Находим на поисковой странице Гугла поле для ввода в поиск и вводим туда значение переменной find
{
//Вначале инициализируем переменную finds в Pythen нашей переменной find синхронной функцией
sendgetpython("finds=^'"+find+"^'"); // finds=find
__python
element = web.find_element_by_name('q')
element.send_keys(finds)
time.sleep(1);
element.send_keys(Keys.ENTER)
time.sleep(3);
print('yes')
__end_python
while (getpython()!="yes")sleep(100);// Ждем в цикле ответ "yes". Оно будет когжа скрипт Pythen отработает
}

function start_browser()//Запуск браузера
{
//Вначале инициализируем переменные в Pythen нашими значениями синхронными функциями.
sendgetpython("p_web=^'"+path_webdriver+"^'");// p_web=path_webdriver
sendgetpython("p_br=^'"+path_browser+"^'"); // p_br=path_browser
__python
web = webdriver.Firefox(executable_path=p_web, firefox_binary=p_br) # Тут мы используе переменные p_web и p_br
web.get('https://www.google.com')
time.sleep(1);
print('yes')
__end_python
while (getpython()!="yes")sleep(100);// Ждем в цикле ответ "yes". Оно будет когжа скрипт Pythen отработает
}


function import()//Подготовка
{
__python
import time
from selenium import webdriver
from selenium.webdriver.common.keys import Keys
print('yes')
__end_python
while (getpython()!="yes")sleep(100);// Ждем в цикле ответ "yes". Оно будет когжа скрипт Pythen отработает
}

PM MAIL   Вверх
DMaster
Дата 11.8.2020, 20:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 47
Регистрация: 9.11.2005

Репутация: нет
Всего: нет



Добавил настройку цвета синтаксиса.
Настраиваются все элементы, простые и выделенные по отдельности.
user posted image

Это сообщение отредактировал(а) DMaster - 11.8.2020, 23:21
PM MAIL   Вверх
DMaster
Дата 13.8.2020, 14:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 47
Регистрация: 9.11.2005

Репутация: нет
Всего: нет



Доработал настройки.
Можно устанавливать отдельно цвет панели с деревом объектов и цвет текста в ней.
Устранил излишнюю контрастность, но при этом нужные элементы остаются читабельными при любых настройках.

user posted image



Это сообщение отредактировал(а) DMaster - 11.9.2020, 11:03
PM MAIL   Вверх
sarahj50
Дата 27.8.2020, 08:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 1
Регистрация: 27.8.2020

Репутация: нет
Всего: нет



Hulu offers a video streaming service in the Hulu app. You can watch favorite movies and TV shows on the Hulu channel. Everything you need to enter your Hulu account email address and password. It may ask you to set up Hulu com at hulu.com/activatewww.hulu.com/activatehulu activatehulu activation code.
hulu.com/activatewww.hulu.com/activatehulu activatehulu activation code
hulu.com/activatewww.hulu.com/activatehulu activatehulu activation code

Go to Office.com/Setup website www.office.com/setup us Sign In to your Microsoft Account Or Create a new Account. Enter your Product key Nonprofits can no longer download Microsoft Office products directly through the VLSC. Here's how nonprofits can download these products
Go to {url=https://www.comoffice.co/setup]Office.com/Setup[/url] website {url=https://www.comoffice.co/setup]www.office.com/setup[/url] us Sign In to your Microsoft Account Or Create a new Account. Enter your Product key Nonprofits can no longer download Microsoft Office products directly through the VLSC. Here's how nonprofits can download these products

Go to Office.com/Setup website www.office.com/setup us Sign In to your Microsoft Account Or Create a new Account. Enter your Product key Nonprofits can no longer download Microsoft Office products directly through the VLSC. Here's how nonprofits can download these products

Go to norton.com/Setup website www.norton.com/setup us Sign In to your norton Account Or Create a new Account. Enter your Product key Nonprofits can no longer download norton antivirus product directly. 

Go to norton.com/Setup website www.norton.com/setup us Sign In to your norton Account Or Create a new Account. Enter your Product key Nonprofits can no longer download norton antivirus product directly. 

To activate and setup webroot on your pc please follow the steps here webroot.com/safewebroot keycodewebroot securewebroot.com/safe

To activate and setup webroot on your pc please follow the steps here webroot.com/safewebroot keycodewebroot secure webroot.com/safe

PM MAIL   Вверх
DMaster
Дата 11.9.2020, 11:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 47
Регистрация: 9.11.2005

Репутация: нет
Всего: нет



Парсер скрытой информации с сайтов на примере получения номеров телефонов с avito.ru и сохранение их в файл в текстовом виде. В учебных целях.
Скрипт https://kibor-bot.com/forum/topic.php?forum...3041#1599733041

https://youtu.be/_IugqfakXrw

PM MAIL   Вверх
loginpcmatic
Дата 24.10.2020, 12:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 5
Регистрация: 13.10.2020

Репутация: нет
Всего: нет



I'm really grateful for this useful information... thanks for sharing this valuable content with us.

pc matic my account
pc matic account
pc pitstop sign in
pc matic sign in
pc pitstop account

PM MAIL   Вверх
loginpcmatic
Дата 2.11.2020, 10:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 5
Регистрация: 13.10.2020

Репутация: нет
Всего: нет



We are a leading computer repair and IT services company located in New York, we also help with anti-virus and printer Problems. If you are looking for help with Webroot support, then to fix the Webroot not working.
https://www.webroot.support/

PM MAIL   Вверх
loginpcmatic
Дата 11.11.2020, 17:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 5
Регистрация: 13.10.2020

Репутация: нет
Всего: нет



Цитата(DMaster @ 22.7.2020,  11:50)
Демонстрация автоматизации действий в браузере на примере  Бота для Ставок на спорт для сайта betcity

Используется распознавание текста.
Видео работы бота

We are a leading computer repair and IT services company located in New York, we also help with anti-virus and printer Problems. If you are looking for help with Roadrunner Email support, then to fix the Roadrunner Email not working.
https://www.roadrunneremail.support/

PM MAIL   Вверх
loginpcmatic
Дата 17.11.2020, 14:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 5
Регистрация: 13.10.2020

Репутация: нет
Всего: нет



Цитата(DMaster @ 28.10.2017,  14:48)
Записал видео создания бота для Music Wars. бот создается в реальном времени с нуля.
Демонстрируется настройка параметров функции распознавания текста, так как бот во время работы сканирует и распознает количество доступных боев, энергии.
Так же распознаются силовые параметры игрока и соперников.
Видео подробно прокомментировано.
https://youtu.be/km8weD1hucY

We are a leading computer repair and IT services company located in New York, we also help with anti-virus and printer Problems. If you are looking for help with PC Matic support, then to fix the PC Matic not working.
https://loginpcmatic.tumblr.com/post/625510...nt-914-218-5430
https://loginpcmatic.livejournal.com/473.html
https://loginpcmatic.shutterfly.com/21
https://sites.google.com/view/loginpcmatic/home

PM MAIL   Вверх
kevinjonas5461
Дата 16.12.2020, 09:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 13
Регистрация: 1.10.2020

Репутация: нет
Всего: нет



I read this post fully regarding the difference of most up-to-date and preceding technologies, its amazing article.
https://techysupport.co/how-to-remove-activ...dows-watermark/

PM MAIL   Вверх
hardyyp
Дата 18.12.2020, 14:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 14
Регистрация: 14.12.2020

Репутация: нет
Всего: нет




Модератор: Сообщение скрыто.

PM MAIL   Вверх
kevinjonas5461
Дата 19.12.2020, 12:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 13
Регистрация: 1.10.2020

Репутация: нет
Всего: нет



I read this post fully regarding the difference of most up-to-date and preceding technologies, its amazing article.
Pc Matic Login
Pc matic sign in
Pc Matic My account

PM MAIL   Вверх
kevinjonas5461
Дата 23.12.2020, 13:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 13
Регистрация: 1.10.2020

Репутация: нет
Всего: нет



We are a leading computer repair and IT services company located in New York, we also help with anti-virus and printer Problems. If you are looking for help with Roadrunner Email support, then to fix the Roadrunner Email not working.
roadrunner email login
roadrunner email problems
spectrum customer service number

PM MAIL   Вверх
kevinjonas5461
Дата 28.12.2020, 15:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 13
Регистрация: 1.10.2020

Репутация: нет
Всего: нет



Цитата(DMaster @ 18.8.2018,  04:01)
В Кибор добавилось много функций для написания кода. Улучшился Визуальный редактор. Так же добавился новый инструмент, позволяющий упростить создание ботов до уровня простейшей записи в простом автокликере.
При этом не теряется возможность тонкой настройки логики и параметров как в Визуальном редакторе, так и в сгенерированном коде.
Это видео демонстрирует создание кода бота в считанные клики.
Создание блок схем в реальном времени

We are a leading computer repair and IT services company located in New York, we also help with anti-virus and printer Problems. If you are looking for help with Printer Not Activated, then to solve the Printer Issues.
Printer Not Activated

PM MAIL   Вверх
kevinjonas5461
Дата 1.1.2021, 12:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 13
Регистрация: 1.10.2020

Репутация: нет
Всего: нет



I'm really grateful for this useful information... thanks for sharing this valuable content with us.

Brother Printer not Printing
Brother printer not working

PM MAIL   Вверх
hardyyp
Дата 2.1.2021, 08:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 14
Регистрация: 14.12.2020

Репутация: нет
Всего: нет




Модератор: Сообщение скрыто.

PM MAIL   Вверх
Brajput123
Дата 4.1.2021, 10:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 10
Регистрация: 28.12.2020

Репутация: нет
Всего: нет





Note that you will need a unique  amazon.com/mytv verification code for the activation. You can only generate this code if you have a valid Amazon account or phone registration number. For users with these details, the activation code can be retrieved on their TV screen via the Amazon Prime Video App. 

PM MAIL   Вверх
hardyyp
Дата 6.1.2021, 09:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 14
Регистрация: 14.12.2020

Репутация: нет
Всего: нет




Модератор: Сообщение скрыто.

PM MAIL   Вверх
hardyyp
Дата 14.1.2021, 10:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 14
Регистрация: 14.12.2020

Репутация: нет
Всего: нет




Модератор: Сообщение скрыто.

PM MAIL   Вверх
hardyyp
Дата 18.1.2021, 08:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 14
Регистрация: 14.12.2020

Репутация: нет
Всего: нет




Модератор: Сообщение скрыто.

PM MAIL   Вверх
Brajput123
Дата 20.1.2021, 12:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 10
Регистрация: 28.12.2020

Репутация: нет
Всего: нет



 Amazon.com/mytv  Switch on your Smart TV. Now, on the homepage, go to your Amazon Prime App, or, if you don’t have it then download it from your app store or play store. Now, open the app and go to the sign-in option. You will receive an amazon code. visit  Amazon.com/mytv Enter Code  for TV Registration.

Добавлено через 41 секунду

The residents of India are presently in a nationwide COVID lockdown. Also, during this lockdown, the majority of us are marathon watching shows and films on various diversion s like Amazon Prime, Netflix, Hotstar, and so forth.We are provide third party service behalf of Amazon, if you are facing any problem related to Amazon.com/mytv contact us. our technical expert 24*7  Amazon.com/mytv enter code 

PM MAIL   Вверх
hardyyp
Дата 28.1.2021, 14:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 14
Регистрация: 14.12.2020

Репутация: нет
Всего: нет




Модератор: Сообщение скрыто.

PM MAIL   Вверх
Brajput123
Дата 2.2.2021, 12:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 10
Регистрация: 28.12.2020

Репутация: нет
Всего: нет





In modern times, there is hardly anybody who is unaware of the benefits that Amazon Prime comes with. But still, if you are completely new to Amazon Prime or Amazon TV, then you have landed at the right place. After activating your subscription you are entitled to get many benefits that come along with  www.amazon.com/mytv  to activate your subscription.To get started with using any of the benefits that come with your  Amazon activation code 

PM MAIL   Вверх
kevinjonas5461
Дата 2.2.2021, 17:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 13
Регистрация: 1.10.2020

Репутация: нет
Всего: нет



Цитата(DMaster @ 28.10.2017,  14:48)
I read this post fully regarding the difference of most up-to-date and preceding technologies, its amazing article.
spectrum roadrunner email settings
roadrunner email login
reset roadrunner email password

I read this post fully regarding the difference of most up-to-date and preceding technologies, its amazing article.
spectrum roadrunner email settings
roadrunner email login
reset roadrunner email password

PM MAIL   Вверх
Brajput123
Дата 4.2.2021, 12:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 10
Регистрация: 28.12.2020

Репутация: нет
Всего: нет






fuboTV offers up to 187 channels, a 500-hour cloud DVR, and a slick interface that neatly mirrors what you’re used to with cable or satellite service. It’s also just fun to say fubo.In fact, the majority of fuboTV’s livestreaming lineup is still made up of sports channels. So if you compare it to other streaming services and One of the best  fubo.tv/connect  that offer more balanced entertainment-to-sports programming ratios, fubo is still a few yards short.But, as a streaming TV service with hundreds of live channels.


PM MAIL   Вверх
kevinjonas5461
Дата 7.2.2021, 16:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 13
Регистрация: 1.10.2020

Репутация: нет
Всего: нет



Цитата(DMaster @ 2.2.2019,  01:50)
Много обновлений было.
Одно из последних..
Кибор изначально не был позиционирован на работу со своим интерфейсом, но при пополнение своего функционала возникла потребность в возможности создания различных контролов для интерактивного управления работой скриптов.
Стандартный набор при создание диалогов Кибор (для настройки параметров) стал тесен.

Появилась возможность создавать функции обработчики сообщений полученных окнами. Используется WinApi

Пример:
Код

external(INT, "CreateMenu", "CreateMenu", "User32.dll" );
external(INT, "CreatePopupMenu", "CreatePopupMenu", "User32.dll" );
external(INT, "AppendMenu", "AppendMenuA", "User32.dll" );
external(INT, "SetMenuInfo", "SetMenuInfo", "User32.dll" );
external(INT, "SetMenu", "SetMenu", "User32.dll" );
external(INT, "CreateWindow", "CreateWindowExA", "User32.dll" );
external(INT, "TrackPopupMenu", "TrackPopupMenu", "User32.dll" );


//Сожание меню
int MENUINFO[7]={28, 16, 134217728, 0, 0, 0, 0};
int HMENU, HMENU2, HMENU3;

HMENU2=CreatePopupMenu();
AppendMenu(HMENU2, 16, 1, "Новый" );
AppendMenu(HMENU2, 16, 2, "Открыть" );
AppendMenu(HMENU2, 16, 3, "Сохранить" );
AppendMenu(HMENU2, 16, 4, "Сохранить как" );

HMENU3=CreatePopupMenu();
AppendMenu(HMENU3, 16, 5, "Вырезать" );
AppendMenu(HMENU3, 16, 6, "Копировать" );

HMENU=CreateMenu();
AppendMenu(HMENU, 16, HMENU2, "Файл" );
AppendMenu(HMENU, 16, HMENU3, "Правка" );



//Создание всплывающего меню
int vHMENU, vHMENU2, result;

vHMENU=CreatePopupMenu();
AppendMenu(vHMENU, 0, 111, "MessageBox" );
AppendMenu(vHMENU, 0, 222, "Findimage" );

vHMENU2=CreatePopupMenu();
AppendMenu(vHMENU2, 0, 333, "25" );
AppendMenu(vHMENU2, 0, 444, "50" );
AppendMenu(vHMENU2, 0, 555, "75" );
AppendMenu(vHMENU2, 0, 666, "100" );
AppendMenu(vHMENU, 16, vHMENU2, "Прозрачность" );


int b1, b2;


createdialog(0);
showdialog(0, "Диалог",100, 100, 300, 300, 1, 1);

while(window ("Диалог")==0)sleep(10);
win w=window ("Диалог");


loop()
{
w=window ("Диалог");
textout(1, w.left, w.top, " Не обновляли ", 0);
sleep(1);
}

function Простая_функция()//В ней пересчитаем на экранные координаты
{
textout(0, message.x+w.leftclient, message.y+w.topclient, " "+format(message.x)+" "+format(message.y), 1);
}

function getmessage(0, WM_MOUSEMOVE)//Отлавливаем перемещешие мыши над окном
{
Простая_функция();//Перейдем в другую функцию
}

function getmessage(0, WM_CREATE)//Создаем контролы при создание окна
{
int hwnd=gethwnd(0);
SetMenuInfo(HMENU, address(#MENUINFO[0]));
SetMenu(hwnd, HMENU);

//Создание кнопок
b1=CreateWindow(0, "BUTTON", "Первая кнопка", 1342177280, 10, 10, 120, 30, hwnd, 0, 0, 0);
b2=CreateWindow(0, "BUTTON", "Ворая кнопка", 1342177280, 10, 50, 120, 30, hwnd, 0, 0, 0);
}

function getmessage(0, WM_COMMAND)
{
if (message.lparam==b1)messagebox ("Первая кнопка");
if (message.lparam==b2)messagebox ("Ворая кнопка");

}


function getmessage(0, WM_MENUCOMMAND)//Отлавливаем клик по пункту меню
{
if (message.lparam==HMENU2)//идентификатор меню "Файл"
{
if (message.wparam==0)messagebox ("Новый");
if (message.wparam==1)messagebox ("Открыть");
if (message.wparam==2)messagebox ("Сохранить");
if (message.wparam==3)messagebox ("Сохранить как");
}

if (message.lparam==HMENU3)//идентификатор меню "Правка"
{
if (message.wparam==0)messagebox ("Вырезать");
if (message.wparam==1)messagebox ("Копировать");
}
}



function getmessage(0, WM_RBUTTONDOWN)//Отлавливаем клик правой кнопки мыши всплывающее меню
{
w=window ("Диалог" );
result=TrackPopupMenu(vHMENU, 256, message.x+w.leftclient, message.y+w.topclient, 0, formatwi(w), 0 ); // вывести меню
if(result==111)messagebox("Выбран пункт MessageBox" );
if(result==222)messagebox("Выбран пункт Findimage" );

if(result==333)transparency(25, w);
if(result==444)transparency(50, w);
if(result==555)transparency(75, w);
if(result==666)transparency(100, w);
}


function getmessage(0, WM_LBUTTONDOWN)//Отлавливаем клик левой кнопки мыши
{
beep(2500, 100);
}

function getmessage(0, 15)//WM_PAINT Отлавливаем обновление окна
{
textout(1, w.left, w.top, " Обновили окно ", 0);
sleep(100);
}

I read this post fully regarding the difference of most up-to-date and preceding technologies, its amazing article.
Roadrunner Support number
Roadrunner Email Support Phone Number
Roadrunner Email Support Number

PM MAIL   Вверх
hardyyp
Дата 15.2.2021, 07:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 14
Регистрация: 14.12.2020

Репутация: нет
Всего: нет




Модератор: Сообщение скрыто.

PM MAIL   Вверх
hardyyp
Дата 17.2.2021, 07:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 14
Регистрация: 14.12.2020

Репутация: нет
Всего: нет




Модератор: Сообщение скрыто.

PM MAIL   Вверх
Brajput123
Дата 17.2.2021, 14:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 10
Регистрация: 28.12.2020

Репутация: нет
Всего: нет



Having issues with playing content through the channel? Want to know a way to get it working so you can get on with viewing? This tutorial will show you all that and more.One of the best parts about using Roku with Amazon Prime is that the app is compatible with every current model.It also works with Roku TVs, so you can start streaming on your smart TV.You don’t know how  watch Amazon Prime Video on Roku and  www .amazon.com/mytv enter code roku  tv.

PM MAIL   Вверх
kevinjonas5461
Дата 27.2.2021, 11:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 13
Регистрация: 1.10.2020

Репутация: нет
Всего: нет



We are a leading computer repair and IT services company located in New York, we also help with anti-virus and printer Problems. If you are looking for help with PC Matic related issue, then to solve the windows issue.
pc matic issues
pc matic problems
pc matic troubleshooting
pc matic phone number

PM MAIL   Вверх
kevinjonas5461
Дата 2.3.2021, 11:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 13
Регистрация: 1.10.2020

Репутация: нет
Всего: нет



I am been Reading your blog for a lot time i must say its a amazing blog and i found blog to be very informative and helpful will come back to read more. Thanks for sharing!
PC Matic
hyperx quadcast microphone

PM MAIL   Вверх
Brajput123
Дата 3.3.2021, 13:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 10
Регистрация: 28.12.2020

Репутация: нет
Всего: нет





To activate the service of  www .amazon.com/mytv  you will need to go to this site, enter the login information for your account from Amazon Video. Once you have logged into your account, you will be given a unique 5 or 6-digit code. After entering the amazon registration code, you need to press the button to continue and enjoy this service.







PM MAIL   Вверх
Brajput123
Дата 10.3.2021, 11:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 10
Регистрация: 28.12.2020

Репутация: нет
Всего: нет



Imagine you are right in the middle of your favorite program and suddenly you get the error code 143. You can’t understand what could possibly go wrong and how to fix it. Hulu error code 143 is quite common and with the right troubleshooting steps, you can fix the issue in no time. So, let’s take a look at how we can fix the Hulu error code 143 and enjoy uninterrupted streaming of content.The error is generally caused by an issue in the Hulu app itself. It could be certain information stored in the Hulu account on your device.


PM MAIL   Вверх
Brajput123
Дата 17.3.2021, 12:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 10
Регистрация: 28.12.2020

Репутация: нет
Всего: нет





To Get to the Amazon account, you should simply to enlist from your gadget and utilize the  amazon.com/mytv enter code Wii that is of 5 to 6 character and it is arranged in the Amazon video application on the TV or the gadget. In the event that you don't know what is Amazon Prime, it is a paid membership application to  www .amazon.com/mytv which will give you admittance to an enormous scope of administrations with free quick conveyance and limitless video web-based features that are only accessible with the arrangements among the others.

PM MAIL   Вверх
Brajput123
Дата 27.3.2021, 09:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 10
Регистрация: 28.12.2020

Репутация: нет
Всего: нет



In modern times, there is hardly anybody who is unaware of the benefits that Amazon Prime comes with. But still, if you are completely new to Amazon Prime or Amazon TV, then you have landed at the right place. After activating your subscription via amazon.com/code you are entitled to get many benefits that come along with it."covid-19"

PM MAIL   Вверх
kevinjonas5461
Дата 10.4.2021, 10:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 13
Регистрация: 1.10.2020

Репутация: нет
Всего: нет



Цитата(DMaster @ 28.10.2017,  14:48)
Записал видео создания бота для Music Wars. бот создается в реальном времени с нуля.
Демонстрируется настройка параметров функции распознавания текста, так как бот во время работы сканирует и распознает количество доступных боев, энергии.
Так же распознаются силовые параметры игрока и соперников.
Видео подробно прокомментировано.
https://youtu.be/km8weD1hucY

I read this post fully regarding the difference of most up-to-date and preceding technologies, its amazing article.
rr mail settings
spectrum email server settings
rr email settings

PM MAIL   Вверх
DMaster
Дата 27.4.2021, 19:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 47
Регистрация: 9.11.2005

Репутация: нет
Всего: нет



В разработке новый Визуальный редактор кода.

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

При программирование блока можно описать диалоговое окно, которое будет появляться при выборе свойств блока пользователем и полностью настроить работу кода, который он должен генерировать.
Программировать можно готовые функции, вызов Api, глобальный код, переменные, код который должен выполниться один раз при использование данного типа блока при запуске программы и тд.
Все указанные данные генерируются без дублирования и тл.

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

При этом для какого языка будет создаваться код не важно. Это альфа версия. Тест в разработке. Кое что надо будет поправить для какого то конкретного языка, но это больше связано если будут использоваться глобальные переменные и код.

На данный момент редактор позволяет создавать свои шаблоны и с помощью их использования генерировать код.

Подробнее о шаблонах https://kibor-bot.com/forum/topic.php?forum...3019#1619453019

Шаблон блока имеет текстовый формат такого плана:
Код
[ESCAPE_CHAR]
^
[END]

[INTERFACE]
DIALOG, "Поиск изображения", 499, 139;
BUTTON_OK, "Принять", 284, 88, 100, 20;
BUTTON_CANCEL, "Закрыть", 388, 88, 100, 20;
STATIC, "Путь к файлу", 8, 8, 100, 20;
EDIT, 116, 8, 276, 20, string Path;
BUTTON_FILE, "Путь к файлу", 396, 8, 92, 20, Path;
STATIC, "Сколько искать", 8, 32, 100, 20;
EDIT, 116, 32, 52, 20, int Kol;
COMBO, "Мышь клик" "Мышь нажать" "Мышь отпустить", 172, 32, 220, 80, int M;
STATIC, "Количество", 8, 56, 100, 20;
EDIT, 116, 56, 52, 20, int K;
STATIC, "X", 176, 56, 24, 20;
STATIC, "Y", 288, 56, 24, 20;
EDIT, 208, 56, 72, 20, int X;
EDIT, 320, 56, 72, 20, int Y;
[END]


[ASSOC_NUMBER]
Path
[END]

[ASSOC_VAR]
Path="C:\Image_0.bmp";
Kol = 1;
X = #X_Kib;
Y = #Y_kib;
K = #K_kib;
M = 0;
Image = #Image~*~;
[END]

[GLOBAL_VAR]
int K_kib, X_Kib[1000], Y_kib[1000];  
int Image~*~[~GET(imagewidth(~Path~))~][~GET(imageheight(~Path~))~]; 
[END]


[GLOBAL_SINGLE_CODE]
#define WM_COMMAND 0x111      
#include"C:\Program Files (x86)\Kibor\liba.txt" //Это для демонстрации (Будет ошибка, так как нет файла) ЗАКОММЕНТИРОВАТЬ в полученном коде     
external(INT, "MessageBoxA", "MessageBoxA", "UseR32.dlL");
messagebox   ("Будет использоваться FindImage");
beep (1000, 100);      
[END]

[GLOBAL_REPEAT_CODE]
loadimage(#Image~*~[0][0], ~Path~);
[END]

[FUNCTION_BODY]
function (int #image, int kol, int #mK, int #mX, int #mY, int Mouse)
{
mK=findimage(kol, #image[0][0], -1, #mX[0], #mY[0], 0, 0, 1024, 768, -1);
if (mK<0)MessageBoxA(0, "Ошибка", "Окно", 0);
if (Mouse==0)mouse(LEFT, mX[0], mY[0]);
if (Mouse==1)mousedown(LEFT, mX[0], mY[0]);
if (Mouse==2)mouseup(LEFT, mX[0], mY[0]);
return mK;
}
[END]

[FUNCTION_CALL]
(Image[0][0], Kol, K, X[0], Y[0], M)
[END]


[FUNCTION_LOGIC]  
>0
[END]


Для создания диалоговых окон в шаблонах есть визуальный редактор диалогов

user posted image
user posted image
user posted image
PM MAIL   Вверх
kevinjonas5461
Дата 4.5.2021, 13:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 13
Регистрация: 1.10.2020

Репутация: нет
Всего: нет



Цитата(DMaster @ 22.7.2020,  11:50)
Демонстрация автоматизации действий в браузере на примере  Бота для Ставок на спорт для сайта betcity

Используется распознавание текста.
Видео работы бота

I read this post fully regarding the difference of most up-to-date and preceding technologies, its amazing article.
CCleaner Support
Piriform CCleaner Download
CCleaner Download
CCleaner Support Phone Number

PM MAIL   Вверх
kevinjonas5461
Дата 10.5.2021, 22:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 13
Регистрация: 1.10.2020

Репутация: нет
Всего: нет



Цитата(DMaster @ 22.7.2020,  11:50)
I read this post fully regarding the difference of most up-to-date and preceding technologies, its amazing article.
CCLEANER Professional
ccleaner professional plus download
ccleaner free download
ccleaner issues

I read this post fully regarding the difference of most up-to-date and preceding technologies, its amazing article.
CCLEANER Professional
ccleaner professional plus download
ccleaner free download
ccleaner issues

PM MAIL   Вверх
DMaster
Дата 14.5.2021, 00:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 47
Регистрация: 9.11.2005

Репутация: нет
Всего: нет



Ознакомительное видео о новом редакторе.
https://youtu.be/DXcvtN9GmYg
PM MAIL   Вверх
kevinjonas5461
Дата 24.5.2021, 11:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 13
Регистрация: 1.10.2020

Репутация: нет
Всего: нет



We take great pride in providing outstanding services to our business partners. How can we help you? Request live demo. Get a Quote. Contact Sales Team. Contact ...
Each antivirus arrangement makes intermittent mistakes and Avast is no special case. Indeed, even with current heuristics and progressed antivirus tech, bogus positives are conceivable, bringing about Avast obstructing sites or executables. Fortunately, you can undoubtedly deactivate antivirus programming, including Avast, on the off chance that it erroneously denotes a document as vindictive.
uninstall avast
best antivirus software
avast customer service
avast customer service phone number

PM MAIL   Вверх
DMaster
Дата 25.5.2021, 16:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 47
Регистрация: 9.11.2005

Репутация: нет
Всего: нет



Тест драйв программы.
Создание схемы бота в новом Визуальном редакторе..

Все шаблоны Блоков, их свойства и функционал создаются отдельно и находятся в папке с программой.
https://youtu.be/P-idnAwtQ2g

user posted image
PM MAIL   Вверх
DMaster
Дата 2.6.2021, 09:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 47
Регистрация: 9.11.2005

Репутация: нет
Всего: нет





Развитие Визуального редактора продолжается.
В принципе он готов к использованию.
Его функционал зависит от созданных шаблонов.

Добавил несколько шаблонов и получился мини ZennoPoster

Данные шаблоны используют вставки кода Python и Selenium

Весь код создается в визуальном редакторе и запускается одной кнопкой без программирования и установки чего либо кроме Кибор.
На видео показан процесс авторизации на сайте и создания новой темы.
Процесс настройки такой автоматизации довольно простой. Работа возможна как в видимом режиме (мышь свободна), так и в фоновом.
https://youtu.be/BaJBUEcFQ-U

PM MAIL   Вверх
DMaster
Дата 4.6.2021, 17:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 47
Регистрация: 9.11.2005

Репутация: нет
Всего: нет



Записал демонстрационное видео создания полубота для betcity. Может работать без активно запущенного браузера.
Бот получает информацию со страницы игры Баскетбол. Сканирует идущее время партий, фамилии, счет. 
Выводит эту информацию на экран в виде текста.
Если секунды попали между 20 и 30 переходит на страницу игры. Это для демонстрации. Можно настроить на любые параметры.

Проект этого бота находится в архиве с программой betcityru.txt. Архив с программой https://kibor-bot.com/VisualEditor.rar

Видео работы с пояснениями https://youtu.be/dT6jO1PreR4

user posted image

PM MAIL   Вверх
DMaster
Дата 6.6.2021, 05:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 47
Регистрация: 9.11.2005

Репутация: нет
Всего: нет



Релиз первой версии Визуального редактора.
https://kibor-bot.com/forum/topic.php?forum=1&topic=175
user posted image

PM MAIL   Вверх
Ответ в темуСоздание новой темы Создание опроса
Добро пожаловать в раздел "Другие языки" форума Vingrad!

Void
Void

Раздел посвящён различным языкам программирования, для которых (в силу невысокой популярности) нет отдельного раздела (GPSS, Lua, MATLAB, Ada, Forth, Smalltalk, Tcl, REXX, AWK и др.)

  • Обязательно следуйте правилам Форума.
  • Пожалуйста, прочитайте и следуйте рекомендациям по работе в разделе и навигации по Форуму.
  • Для вставки текстов исходных кодов используйте подсветку синтаксиса из выплывающего списка Код в форме ответа. Если Ваш язык в списке не представлен, то используйте тег: [code=ваш_язык]код[/code], например, [code=ada]код[/code]. Если в будущем подсветка синтаксиса для указанного языка будет реализована, исходный код преобразится.
  • Помните, один вопрос - одна тема.

Приятного времяпрепровождения! С уважением, Void, kemiisto .

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Другие языки | Следующая тема »


 




[ Время генерации скрипта: 0.4345 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.