Версия для печати темы

Автор: Cockney 24.2.2016, 11:49

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

Ссылка(ЯДиск, надеюсь можно) : https://yadi.sk/d/D3IjSGTIpPzKS или  Release0000.zip ( 93,47 килобайт ) Кол-во скачиваний: 18071


В архиве сам плагин и файл разметки. Плагин в Плагинс, а разметку рядом с пилотом.

Саму разметку пока не документирую(будет, если время позволит), но там несложно разобрать что к чему. Удаление полей чревато исключением(пока нет проверок). Желательно заполнять все поля, однако некоторые спокойно могут быть пустыми(какие именно, укажу возможно позже).

Небольшое описание :

Каждый параметр заключается в *. Например, так : *par1*.

Параметры ЧУВСТВИТЕЛЬНЫ к регистру. Пробелы на концах обрезаются (для поддержки переменных).

Доступные типы элементов:

Form - само окно
Button - кнопка
Edit - поле ввода
Text - текст
Checkbox - флажок

Сами функции :

GUI.ShowForm (<Имя формы>) //Показывает форму с именем

GUI.HideForm (<Имя формы>) //Скрывает форму с именем

GUI.ActionExist () //получение флага события. Возвращает 0 или 1

GUI.GetAcion () //получение описания события. Вернет массив 1х3 с именами 
формы, компонента и описанием события.

GUI.Enable (<Тип элемента> <Имя формы> <Имя элемента> <Статус>) //включает/отключает элемент на форме. Статус принимает 0 или 1.

GUI.GetText (<Тип элемента> <Имя формы> <Имя элемента>) //вернет текст элемента.

GUI.SetText (<Тип элемента> <Имя формы> <Имя элемента> <Новый текст>) //устанавливает текст элемента

//Скрипт обслуживания оболочки
set linedelay 5
//Очистка начального сообщения(пока так)
set $a GUI.ActionExist ()
set #f 1
set logging clear
//Начинаем
while (#f = 1) //пока не прекратим
    set $act_ex GUI.ActionExist () //проверим наличие события
    if ($act_ex = 1)  //если есть событие
        set %action GUI.GetAction () //получаем это событие
        //тут обработка событий
        if (%action[1 3] = BUTTON_CLICK) //если нажата кнопка(любая)
            set logging Произошел клик на кнопке с именем %action[1 2]
        end_if
        if (%action[1 3] = BUTTON_DBL_CLICK) //если дабл.клик кнопки(любая)
            set logging Произошел двойной клик на кнопке с именем %action[1 2]
        end_if
        if (%action[1 3] = EDIT_CHANGE) //если редактируется поле ввода
            set $txt GUI.GetText (*Edit* * %action[1 1] * * %action[1 2] *)
            set logging Новый текст поля %action[1 2] : $txt
            if ($txt = stop) //если введено стоп
                set $a GUI.SetText (*Form* *Main* *Стоп!!!!*) //установка заголовка
                set linedelay 50 //побольше задержка перед выходом
                set #f 0
            end_if
            if ($txt = msg) //если введено стоп
                msg Введено msg
            end_if
        end_if
    end_if
end_while
exit
end_script

Автор: cirus 24.2.2016, 14:22

Сделай время для двойного клика побольше, а то иногда сначала срабатывает одинарный.

set %action GUI.GetAction () //получаем событие
if %action [1 2] = Button and %action [1 3] = BUTTON_CLICK
    log Сделан клик по первой кнопке
end_if

Автор: Cockney 24.2.2016, 14:31

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

set $a GUI.HideForm (*Main*) //если брать имя окна из примера разметки
--------------------
<Form_1>
    <Name>Main</Name> //имя окна, задаваемое в хмл
</Form_1>

Автор: cirus 24.2.2016, 15:07

Автор: Cockney 24.2.2016, 15:35

Ну тут тогда подходят чекбоксы. выбираешь, что нужно и скрипт проверяет/выполняет. а то чет мудрено с отключением ненужных кнопок. или я не допонял.

а может так?

if %action[1 2] = XP //если нажата кнопка использования XP
    //отключаем ее
   set #q 1 //флаг использования чего-то там
end_if

if #q = 1
/////
else
////
end_if

Автор: cirus 24.2.2016, 15:45

Автор: Cockney 24.2.2016, 19:20

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

Автор: Cockney 25.2.2016, 22:52

Апдейт.

-Новые элементы : чекбоксы(Checkbox), текст(Text).
-Функция GetState(). Возвращает состояние элемента(пока поддерживаются только чекбоксы). 1 - галка стоит, 0 - нет.
-Новые сообщения от контролов:
CHECKBOX_CLICK
CHECKBOX_DBL_CLICK
TEXT_CLICK
TEXT_DBL_CLICK

Пример:

set $a GUI.GetState (*Имя формы, на которой лежит чекбокс* *Имя чекбокса*)

Автор: cirus 26.2.2016, 3:40

if %action [1 3] = Script5     
//чем
if %action [1 2] = Button3

Автор: Cockney 26.2.2016, 11:37

Можно систему узнать?именно процессор и ос.
-----------
Возможно, это не тормоз, а анимация установки флажка.

Автор: cirus 26.2.2016, 11:41

Запустил утром, уже нормально галки ставятся, но опять двойные клики плохо срабатывают.
Win7 x64, i7 2600k

Автор: Cockney 26.2.2016, 11:45

А в чем проблема брать имя чекбокса из GetAction по событию клика? или там у тебя другая система обработки?

Клики еще в работе.

Автор: cirus 26.2.2016, 12:25

Автор: cirus 26.2.2016, 13:31

Автор: Cockney 26.2.2016, 13:35

Хорошо. Я уж думал мой косяк.

Автор: Cockney 26.2.2016, 19:34

По поводу чекбоксов : да, удобнее, если отображается 5 букв на чекбоксе, а если больше? + имя это уникальный(в принципе, может быть одинаковым, но тогда система даст сбой) идентификатор любого элемента. И указав его, можно безошибочно сделать все что угодно. Так и зачем возвращать написанное на контроле?



или я опять не понял суть?

Автор: Cockney 26.2.2016, 19:45

Апдейт.

-Пофикшены несрабатывающие события
-Добавлено свойство форм : AlwaysTop. 1 - окно всегда будет сверху других, 0 - обычное поведение.

 Test0201.zip ( 97,38 килобайт ) Кол-во скачиваний: 6728
или https://yadi.sk/d/D3IjSGTIpPzKS

Автор: DarkMaster 26.2.2016, 19:54

Ну и в целом можно коснуться старой, но все еще болезненно актуальной темы контроля статуса: https://forum.uokit.com/index.php?s=&showtopic=19856&view=findpost&p=157513
Переменные пока не выведешь, но вот массивы можно начинать разгр<вырезано анти-матом>.

Автор: cirus 27.2.2016, 3:51

set %action GUI.GetAction ()
if %action [1 2] = Button2 and %action [1 3] = BUTTON_CLICK

set %action GUI.GetAction ()
if %action [1 3] = Script2 and %action [1 4] = BUTTON_CLICK

Автор: cirus 27.2.2016, 23:47

Двойной клик по тексту (label) копирует этот текст в буфер. Так и должно быть?

Автор: Cockney 28.2.2016, 12:35

Вроде как нет.
-------
А вроде как бы и да. На ХР такого эффекта не должно быть. Но начиная с висты при двойном клике по тексту он скопируется в буфер. Этот эффект убирается путем отключения двойных кликов.

Автор: Cockney 28.2.2016, 13:37

Есть небольшой костыль.

Автор: cirus 28.2.2016, 13:51

Автор: Cockney 28.2.2016, 15:04

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

Автор: Cockney 28.2.2016, 17:18

Апдейт.

-Теперь GetAction возвращает 4 элемента:

1 - Имя формы
2 - Имя контрола
3 - Текст контрола
4 - Описание события

-GetState может получить статус чекбокса, обратившись к нему по его же тексту.(по имени так же работает).
Текст указывается во втором параметре.


 Test0221.zip ( 97,34 килобайт ) Кол-во скачиваний: 1455
или https://yadi.sk/d/D3IjSGTIpPzKS



----------------------------------
Так, я не помню, клики менял или нет? все так же некорректно отрабатывают?

Автор: cirus 28.2.2016, 17:37

Автор: Cockney 28.2.2016, 17:53

в целом работает нормально?тормоза,баги?

Автор: cirus 28.2.2016, 18:15

Автор: Cockney 28.2.2016, 19:02

А к чему несколько то их?один плагин в теории сможет обслуживать сколь угодно окон с любой начинкой.

Автор: cirus 28.2.2016, 19:05

Я имел ввиду несколько разных плагинов. Например, "Плагин для получения информации об окне" и "Математические операции с плавающей точкой" вместе не работают.

Автор: cirus 28.2.2016, 21:24

Автор: Cockney 28.2.2016, 21:45

для кнопки:

set $a GUI.Enable (*Button* *Main* *button* *0*) //выключить

Автор: cirus 28.2.2016, 22:11

Автор: Cockney 28.2.2016, 22:21

Странно, я не трогал Enable, но когда тестил он работал. Проверю.

Забыл, регистр имеет значенее, в моем коде ошибка.

Текст и чекбоксы пока не добавил.

Автор: cirus 28.2.2016, 22:21

Автор: cirus 28.2.2016, 22:42

Автор: Cockney 29.2.2016, 0:37

если это для едита,то свойство,позволяющее вмещать несколько строк в поле ввода.

Автор: cirus 29.2.2016, 10:51

set $a GUI.Enable (*Button* *Main* *button* *0*) //выключить

set $a GUI.Enable (*Button* *Main* *Button* *0*) //выключить

GUI.SetText (<Тип элемента> <Имя формы> <Имя элемента> <Новый текст> <Цвет текста>)

GUI.SetText (*Тип элемента* *Имя формы* *Имя элемента* *Новый текст* *Цвет текста*)

Автор: DarkMaster 29.2.2016, 11:02

Автор: cirus 29.2.2016, 11:24

Автор: DarkMaster 29.2.2016, 11:32

Автор: Cockney 29.2.2016, 18:19

Цитата(cirus @ 29.2.2016, 10:51)

set $a GUI.Enable (*Button* *Main* *button* *0*) //выключить

set $a GUI.Enable (*Button* *Main* *Button* *0*) //выключить

GUI.SetText (<Тип элемента> <Имя формы> <Имя элемента> <Новый текст> <Цвет текста>)

GUI.SetText (*Тип элемента* *Имя формы* *Имя элемента* *Новый текст* *Цвет текста*)

Автор: Cockney 29.2.2016, 18:44

Цитата(DarkMaster @ 29.2.2016, 11:02)

Автор: DarkMaster 29.2.2016, 18:58

Автор: Cockney 29.2.2016, 19:29

могу,ошибаться,но шрифты так и накладываются на контролы.

Автор: DarkMaster 29.2.2016, 19:43

Автор: Cockney 29.2.2016, 21:07

Цитата(DarkMaster @ 29.2.2016, 19:43)

Автор: DarkMaster 29.2.2016, 22:49

Автор: cirus 1.3.2016, 2:17

set $a GUI.SetText (*Edit* *Main* *edit* *aaa\nbbb*)

Автор: Cockney 1.3.2016, 6:27

Цитата(cirus @ 1.3.2016, 2:17)

set $a GUI.SetText (*Edit* *Main* *edit* *aaa\nbbb*)

Автор: DarkMaster 1.3.2016, 7:56

Можно попробовать 0x13, но скорее всего передаст строку. Тем не менее можно использовать chr(0x13).

Автор: cirus 1.3.2016, 10:47

Hint aaa\nbbb

set %b [1] chr(13)
set $a GUI.SetText (*Button* *Main* *Button* *aaa%b [1]bbb*)

Автор: DarkMaster 1.3.2016, 15:10

Автор: Cockney 1.3.2016, 17:12

мульти лайн и мульти текст отключаются тем, что мультилайн(для этида) позволяет вмещать произвольное кол-во строк в поле,а мультитекст(другие элементы) позволяет растянуть текст(если он не помещается в одну строку) на всем элементе.

Автор: Cockney 1.3.2016, 18:39

Копаюсь в прозрачности окон. Если главное окно прозрачное, то все контролы - тоже. Есть идеи как обойти?

Автор: DarkMaster 1.3.2016, 19:00

С гуями никогда не работал. Хотя вру - делал формочку под скрины, но толку от этого не много.

Автор: DarkMaster 3.3.2016, 19:12

А если чайлды перебрать и поснимать с них прозрачность? Решение, конечно, хреновое, но если тупик, то может помочь.

Автор: Cockney 3.3.2016, 21:22

Не-а. Прозрачность лепится либо на все окно(родитель), либо эмулируется битмапами с альфа-каналом.

Было два варианта:
1)Делать каждый контрол самостоятельным окном, что очень плохо.
2)Намазывать прозрачные битмапы на контролы

Второй более реальный, но слишком много мороки, т.к. придется для каждого элемента снимать его размеры, создавать битмап.....

Автор: DarkMaster 3.3.2016, 21:38

а если вспомнить мобидика нашего? оверлеи?

Автор: Cockney 3.3.2016, 22:52

что за мобидик?

Автор: Cockney 3.3.2016, 23:06

а что оверлей?обычное окно же.

Автор: DarkMaster 4.3.2016, 8:30

кхе... Оверлей сильно не обычное окно. Прорисовывается уже после формирования выходной картинки при конвертации в сигнал. Т.е. оно может быть поверх всех окон не сбивая фокус. При этом оно не является виндовым окном. Ну разве, что костылями каким-то аналогичный прозрачный апи сделан. Оверлей накладывается на какую-либо область либо на какой-нибудь цвет. Подобным образом тот же фрапс выводит фпс в играх. Аналогично работают видео плееры, если отрисовка включена через оверлей(умеют вроде все или почти все). При воспроизведении видео как правило создается черно окно на которое по цвету проецируется картинка в связи с чем возможны некоторые грабли, которые, как раз и могут пригодиться: уведя плеер на второй план и написав в блокноте черным шрифтом "Hello world", ты получишь воспроизведение в пределах этой надписи. Подобным образом либо при использовании областей, можно выводить любую информацию, при этом будет прозрачный фон(ну точнее фона вообще не будет), необходимый текст/изображение. Так же сквозь подобные надписи можно свободно кликать, т.к. это не окна, а не более чем картинка. При необходимости для кликабельности можно на те же координаты помещать полностью прозрачное окно с необходимыми фичами.

Автор: Cockney 4.3.2016, 13:17

Я понял про что ты. Да, это реализуемо вроде на GDI или директе, однако, повлечет за собой переписание всего с нуля, абсолютно всего. Вроде как даже нужно ручками определять куда как и чем произошел инпут с клавы или мыши(могу ошибаться). + рисование контролов тоже руками + продумать еще анимации(как при наведении и тд.). По моему это не жизнеспособный вариант.

Автор: DarkMaster 4.3.2016, 13:54

Автор: Cockney 4.3.2016, 14:19

как это инпута не может быть?если в директ-приложениях есть возможность использовать мышку и клаву...

Автор: DarkMaster 4.3.2016, 15:46

Инпута куда? Инпута в оверлей не может быть даже в теории. Инпут в область, где оверлей - возможно. Т.е. по факту, например, инпут в окно бразуера, а мы его перехватываем и обрабатываем. Оверлей не хранится в памяти, не является окном и т.д. Для оси его вообще нет по сути. Его раньше даже вернуть невозможно было(скрином, напрмер, до висты не видел наложенное изображение).

Автор: Cockney 4.3.2016, 17:55

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

Автор: DarkMaster 4.3.2016, 18:36

Автор: cirus 6.3.2016, 12:55

За час работы скрипта пару раз вылезла ошибка такого вида:

set linedelay 1
set $edit GUI.GetText (*Edit* *Main2* *edit*)

:start
if #timeRess1cd < timer1 and #timeRess1 > 0
    set #timeRess1 #timeRess1 - 1
    set $ress1cd GUI.SetText (*Text* *Main2* *label* * #timeRess1 *)      //обновляется время(число после кнопки Ress1)
    set #timeRess1cd timer1 + 1000
end_if

if #timeRess2cd < timer2 and #timeRess2 > 0
    set #timeRess2 #timeRess2 - 1
    set $ress2cd GUI.SetText (*Text* *Main2* *label2* * #timeRess2 *)     //обновляется время(число после кнопки Ress2)
    set #timeRess2cd timer2 + 1000
end_if

if #timeRess3cd < timer3 and #timeRess3 > 0
    set #timeRess3 #timeRess3 - 1
    set $ress3cd GUI.SetText (*Text* *Main2* *label3* * #timeRess3 *)     //обновляется время(число после кнопки Ress3)
    set #timeRess3cd timer3 + 1000
end_if

wait 2
set #a GUI.ActionExist ()
if #a = 1
    wait 2
    set %a GUI.GetAction ()
    if %a [1 4] = EDIT_CHANGE                  //если редактируется Edit
        set $edit GUI.GetText (*Edit* *%a [1 1]* *%a [1 2]*)
    end_if

    if %a [1 3] = Ress1 and %a [1 4] = BUTTON_CLICK         //если сделан клик по кнопке Ress1
        set workwindow %handle [1 1]
        send f1
        set #timeRess1 $edit             //присваиваем число из edit
    end_if

    if %a [1 3] = Ress2 and %a [1 4] = BUTTON_CLICK            //если сделан клик по кнопке Ress2
        set workwindow %handle [2 1]
        send f1
        set #timeRess2 $edit               //присваиваем число из edit
    end_if

    if %a [1 3] = Ress3 and %a [1 4] = BUTTON_CLICK             //если сделан клик по кнопке Ress3
        set workwindow %handle [3 1]
        send f1
        set #timeRess3 $edit                //присваиваем число из edit
    end_if
end_if
goto start

Автор: Cockney 6.3.2016, 13:23

прикрепи пожалуйста xml.
----------
А если задержку побольше выставить?

Автор: cirus 6.3.2016, 13:50

Автор: Cockney 6.3.2016, 14:58

Потестил. Гонял ровно час, баг не воспроизводится. Во время работы менял едит. Все корректно. Возможно задержка. Если еще будет проявляться - пиши, буду глубже смотреть.

Автор: cirus 6.3.2016, 15:24

Тоже проверял сейчас, причём задержку в 0 поставил, проблем пока нет. Погоняю до вечера, если что-то будет напишу.

А вообще спасибо за плагин, классная вещь.

Автор: cirus 6.3.2016, 23:13

Скорее всего из-за маленьких задержек были ошибки. При linedelay 0, пару раз была эта же ошибка когда быстро и много раз кликал по кнопкам. Хотя иногда как ни старайся ошибки нет. Врят ли кто-то будет такой ерундой заниматься Было ещё это:

Поставил задержку (точнее таймер на 100мс) перед GUI.ActionExist () пока не было ошибок. Как будет время проверю ещё.

И ещё, если в пустой скрипт написать:

set %a GUI.GetAction ()

Автор: Cockney 7.3.2016, 6:29

вот этот второй скрипт работает вместе с основным?или отдельно?

100мс слишком,думаю тут до 20мс вполне нормально будет.

и какую ошибку бьет? что на скрине?

Автор: cirus 7.3.2016, 18:18

Автор: Cockney 7.3.2016, 18:48

чет я даже не знаю на че думать.....помнится дарк обмолвился, что плагины как-то с вкладками связаны.
-----
А если в этом скрипте перед GetAction вызвать pluginload?

Автор: Cockney 7.3.2016, 18:59

Хотя тут что-то другое. Возможно связанное с потоками. Да, скорее всего так и есть.

Автор: cirus 7.3.2016, 19:24

Пока можно решить проблему таймером. Врят ли кто-то умеет кликать больше 10 раз в секунду. На меньших задержках не тестил.

set #time 100

:start
if #time < timer
    set #time timer + 100
    set %a GUI.GetAction ()
end_if
goto start

Автор: DarkMaster 7.3.2016, 19:55

Автор: Cockney 7.3.2016, 21:42

Цитата(DarkMaster @ 29.7.2015, 1:52)

Автор: cirus 7.3.2016, 22:06

На счёт этой ошибки: https://forum.uokit.com/index.php?s=&showtopic=29457&view=findpost&p=219482
Вчера тестил скрипт, кликал на кнопки пилотом, работало часа 2 без проблем, причём задержка была 0. Потом запустил 2 окна lineage2, еще где-то час работало без проблем, как только запустил третье окно l2 вылезла эта ошибка. Стал пробовать запускать и выгружать окна во время работы скрипта, ошибок не было никаких. Решил что совпадение.
Сегодня было запущено 2 окна l2, часа 1,5 никаких проблем, но уже с задержкой 100 мс, как только запустил третье окно l2 та же ошибка вылезла.
Как связан запуск приложения с работой плагина не знаю, но когда я только написал про эту ошибку первый раз, то никакие окна не загружались.

Автор: Cockney 7.3.2016, 22:23

Чудеса. Плагин никак не связан с линейкой. Абсолютно. Более того, он не связан вообще с другими окнами системы. Что может мешать работе - не знаю. Лично у себя такого не наблюдаю. Может и причуды винды, а может и моя криворукость.

Автор: DarkMaster 7.3.2016, 22:36

Автор: Cockney 7.3.2016, 22:37

Цитата(DarkMaster @ 7.3.2016, 22:36)

Автор: DarkMaster 7.3.2016, 22:39

самый простой способ проверить:
1 функция - записывает строку с параметром
2 функция - возвращает эту строку

вызови их из разных вкладок.

Автор: Cockney 7.3.2016, 22:53

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

вот кажется и возможная проблема. поэтому иногда задержка и прокатывает. однако теперь не ясно при чем тут окна другие.

Автор: DarkMaster 7.3.2016, 23:00

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

Автор: Cockney 7.3.2016, 23:04

Да, но это сколько окон нужно?

+ плагин обрабатывает события методом он-евент, а не циклом, что как бы дает маленькую нагрузку.

Автор: cirus 7.3.2016, 23:34

Автор: DarkMaster 8.3.2016, 9:41

А запись и чтение одновременно не происходят случаем? Чтение оно вроде как безопасно, но учитывая, что там должны быть структуры, то может получиться ситуация когда считывается половина старой и половина новой. Результат поведения после этого не ясен.

Автор: Cockney 8.3.2016, 11:24

В плагине?структура(это я так обозвал) на самом деле просто несколько отдельных переменных. Может, о чем я и говорил, первый скрипт очищает эти переменные, очистил часть, а тут второй скрипт обращается либо к пустым данным, либо к данным, которые косвенно связаны с уже пустыми переменными.

Автор: DarkMaster 8.3.2016, 12:11

очередь надо, чтобы исключить подобные варианты.

Автор: Cockney 9.3.2016, 14:15

Эт понятно. Каким методом? читал про мьютексы, но они вроде только для кодовых потоков. Флаг какой-нибудь завести и таймер на него повесить?

Автор: DarkMaster 9.3.2016, 15:20

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

Грубо говоря что-то вроде https://forum.uokit.com/index.php?s=&showtopic=28316&view=findpost&p=209321
но уже в контексте нормального языка и некоторых ограничений из-за отсутствия прямого доступа к переменным скрипта, в виде списка и, скорее всего, идентификаторы завязывать на TID, а поток не закрывать пока таск не будет в очередь помещен.

В бусте что-то готовое есть для этого дела кстати. Там есть и очередь на n потоков и n потоков на одну очередь.

Автор: Cockney 10.3.2016, 18:28

Сильно загнул).
-------------------
По поводу перекосов с флагом. Да, такое может быть, только думаю не дойдет до этого, ибо 1 байт обработать очень быстрое дело, не то, что сейчас, считывание/запись структуры.

Автор: DarkMaster 10.3.2016, 18:57

Посмотри буст там есть готовое решение. Я с полгода назад ковырял многопоточку, неоднократно натыкался. У меня задача была несколько иная и подключение бустовских либ мне показалось слишком громоздким - там обошлось все проще.

Автор: Cockney 11.3.2016, 23:17

Апдейт.

-Пофикшены клики. Теперь одиночный клик не лезет перед двойным.


Обработка одиночного клика идет с небольшой задержкой, так и должно быть.


 Test0231.zip ( 97,2 килобайт ) Кол-во скачиваний: 385
или https://yadi.sk/d/D3IjSGTIpPzKS
-------------------------
На подходе изменение цвета элементов.

Автор: Cockney 11.3.2016, 23:43

Предлагаешь мне буст переписать?)

Автор: DarkMaster 12.3.2016, 7:41

Автор: Cockney 12.3.2016, 11:17

плагин то на делфи)
---------
хотя,вроде он понимает obj.

Автор: DarkMaster 12.3.2016, 15:12

А зачем тогда выспрашивал столько времени, как завести на с++, а потом сел на делфю?) Вообще и буст можно переписать конечно) Я вообще образец плагина переписывал с делфи на с++ не зная ни первого ни второго.

Автор: Cockney 12.3.2016, 16:18

так с++ так, больше для развлечения,я в нем не уверенно себя чувствую. а плагин изначально на делфи был.

Автор: DarkMaster 12.3.2016, 17:41

кстати ты меня заставил задуматься... буст это по сути дела либа... Может прилинковать и получится. Точнее даже не так. Может трудозатраты линковки окупят результат

Автор: cirus 12.3.2016, 20:34

Автор: Cockney 12.3.2016, 20:59

текст элемента там должен быть?
----
вроде пофиксил, в следующий апдейт войдет.

Автор: Cockney 12.3.2016, 21:42

Цитата(DarkMaster @ 12.3.2016, 17:41)

кстати ты меня заставил задуматься... буст это по сути дела либа... Может прилинковать и получится. Точнее даже не так. Может трудозатраты линковки окупят результат

Автор: Cockney 16.3.2016, 14:44

Апдейт.


-Теперь Enable может принимать вместо имени элемента его текст.
-Добавлена возможность изменить цвет фона, текста.

set $a GUI.SetTextColor (<тип элемента> <форма> <имя элемента> <канал R> <канал G> <канал B>) //цвет текста
set $a GUI.SetBckgColor (<тип элемента> <форма> <имя элемента> <канал R> <канал G> <канал B>) //цвет фона

Автор: DarkMaster 16.3.2016, 19:26

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

Автор: Cockney 16.3.2016, 19:57

в том то и дело,когда думал о манифесте не знал о таких граблях,думал все единообразно...но нет,это виндоуз.

Автор: cirus 18.3.2016, 2:14

В описание плагина надо дописать что нужно для его работы, чтоб не возникало лишних вопросов, почему это:

Автор: DarkMaster 18.3.2016, 9:11

редисты установить надо. Можно взять из моей темы с антигейтом.

Автор: Cockney 18.3.2016, 11:56

Вообще, удивлен, что программа, собранная на делфи требует редист. В первые вообще слышу об это. Может другой плагин требует?

Автор: DarkMaster 18.3.2016, 12:07

Автор: cirus 18.3.2016, 13:35

Автор: Cockney 18.3.2016, 13:46

скрин можно?

Автор: DarkMaster 18.3.2016, 13:53

Cockney, а ты в плагине дллки никакие не подключал?

Автор: Cockney 18.3.2016, 14:11

лично я - нет, сама дельфи , в теории может.


есть предположение одно...

Автор: cirus 18.3.2016, 14:11

Автор: Cockney 18.3.2016, 14:21

Все, увидел. Не знаю как такое могло выдать.

Автор: Cockney 18.3.2016, 22:47

После установки требуемой либы что-то еще просил?

Автор: cirus 19.3.2016, 3:38

Автор: Cockney 19.3.2016, 6:55

тот баг повторялся?

Автор: cirus 19.3.2016, 11:09

Автор: mircha 25.3.2016, 0:35

всем привет, помогите сделать мини клиент для браузерной игры... скрипты все есть, только сам клиент надо сделать, всего пару кнопок... оплачу тем кто поможет!!! скайп mircha56 аька 324376342)

Автор: DarkMaster 25.3.2016, 13:27

Cockney, собери в кучу первый пост. А то скоро болезнь пилота будет: хелпа норм нет, но есть история развития. Так же сейчас несколько не ясно какая версия последняя, которая релиз или которые имеют бОльший номер версии. Создается впечатление, что бОльшие версии были бетами, а релиз был выпущен под номером 0000.

Error loading plugin: GUI.dll. Call 'InitPlugin' failed.
0.2.3.1
0.3.4.1

Автор: cirus 25.3.2016, 14:09

Старые версии вообще не актуальны. Можно оставить только https://forum.uokit.com/index.php?s=&showtopic=29457&view=findpost&p=219832

Автор: DarkMaster 25.3.2016, 14:13

Автор: cirus 25.3.2016, 14:21

Странно. Только что скачал, работает.

Автор: DarkMaster 25.3.2016, 15:04

Дернул, даже в папку отдельную положил копию пилота, с нуля запустил. Не хочет.

Автор: Cockney 25.3.2016, 15:08

Все понял, учту и сделаю.


По поводу ошибки - скорее всего, версия GUI.xml старая, это серьезная недоработка с моей стороны в плане оформления(казалось, что тот, кто пользуется будет только плагин заменять, а xml изредка), в будущем к каждой бетке и релизу буду прикладывать актуальный для текущей версии xml.

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

И справка тоже планируется.

Автор: DarkMaster 25.3.2016, 15:10

С запуском то что делать?

Автор: Cockney 25.3.2016, 15:17

xml взят https://forum.uokit.com/index.php?showtopic=29457&st=100&p=219832&#entry219832?

Автор: DarkMaster 25.3.2016, 15:24

да.

Автор: Cockney 25.3.2016, 15:27

Не знаю. Тоже завел новую папку, скачал и все встало как должно быть.


Вин какой?

Автор: DarkMaster 25.3.2016, 15:33

вин7 x64.

Количество функций совпадает с объявленным?

Автор: Cockney 25.3.2016, 15:35

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

Автор: DarkMaster 25.3.2016, 15:47

Автор: Cockney 25.3.2016, 15:57

чтение начальных данных из xml и создание контролов по этим данным.


у меня тоже 7 х64 и проблем нет.

Автор: DarkMaster 25.3.2016, 15:59

можешь в качестве теста оставить только заглушки и непосредственно заполнение структуры?

Автор: Cockney 25.3.2016, 16:10

т.е. вырезать весь код из инитплагин и оставить в нем только заполнение initstruct?


такое могу. через час-два в лс сброшу.

Автор: DarkMaster 25.3.2016, 17:29

Ну да. Чтобы понять в чем именно проблема. В системном куске который должен вернуться в пилот или непосредственно в манипуляциях отвлеченных от пилота.

Автор: Cockney 25.3.2016, 18:10

Так и не понял, как в личку прибить файл, поэтому тут прикреплю

-----------
Хех, забавно, вырезал весь функционирующий код и у меня появилась ошибка вызова инитплагин.
 GUI.zip ( 52,41 килобайт ) Кол-во скачиваний: 228

Автор: DarkMaster 25.3.2016, 18:19

Автор: Cockney 25.3.2016, 18:23

Все функции, передаваемые в пилот, доступны к экспорту. Я не знаю нормального объяснения причины.


А с кодом работает.

Автор: DarkMaster 25.3.2016, 18:25

Можешь дать функцию и объявление структуры? Можно в личку. Сяду и буду с примером сравнивать... Делфи я не знаю, но пример на с++ был написан именно с расшифровки дельфийского) Было бы все тоже самое - работало бы.

Автор: Cockney 25.3.2016, 18:28

Ок

Автор: DarkMaster 25.3.2016, 18:29

функцию без хмл кода.

Автор: Cockney 25.3.2016, 18:41

Походу поздно)

Автор: DarkMaster 25.3.2016, 18:43

Ну я как раз зашел еще раз написать про хмл после увиденного))

Автор: Cockney 25.3.2016, 18:53

Так а все, вся функция и есть чтение хмл, ну не считая пары строк, которые я указал.

Я только не пойму, че не так. У меня работает, к цируса(или цайрус, как там) тоже. Только у тебя...

Автор: DarkMaster 25.3.2016, 18:54

Дык если не работает в виде пары строк, то эти пару строк и надо смотреть. Смысл ковырять хмл, если проблемы возникают без него?

Автор: Cockney 25.3.2016, 18:56

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

Автор: DarkMaster 25.3.2016, 18:58

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

Автор: Cockney 25.3.2016, 18:58

 GUI.zip ( 99,66 килобайт ) Кол-во скачиваний: 213


Без тех строк.

Автор: DarkMaster 25.3.2016, 19:24

закинул 0.3.4.1 на чужой комп вин7 64 - та же самая проблема.

Автор: Cockney 25.3.2016, 19:26

Дурдом. Я не знаю, честно. И повторить не получается.

Автор: DarkMaster 25.3.2016, 19:33

в обрезке же получилось.

Автор: Cockney 25.3.2016, 19:38

Ну, судя по обрезку, получается проблема в пилоте, что сомнительно.

Автор: DarkMaster 25.3.2016, 19:53

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

Автор: Cockney 25.3.2016, 20:10

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

Автор: DarkMaster 25.3.2016, 20:13

еще тесты:
почти чистая виртуалка вин7 32 - ошибка.
засраная вин7 64 - запустилась.

Клянчу копию виртуалки тебе в доступ, чтобы воспроизвести смог.

Автор: Cockney 25.3.2016, 20:19

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

Автор: DarkMaster 25.3.2016, 20:29

Автор: Cockney 25.3.2016, 20:42

да,4

про некорректный \0. по дефолту этот символ ты не обязан писать нигде. система сама вставит где нужно. в дельфовых строках она ставит его в конец.

Автор: DarkMaster 25.3.2016, 20:44

Автор: Cockney 25.3.2016, 20:45

изменил свой пост,был не внимателен.


следовательно,если я не ставлю 0 в начало,а я и не ставлю,то все должно быть корректно.

Автор: DarkMaster 25.3.2016, 21:16

Виртуалку выдать?

Автор: Cockney 25.3.2016, 21:33

Результат или что?

Автор: DarkMaster 25.3.2016, 22:39

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

Автор: Cockney 25.3.2016, 22:54

Так а на кой мне? Никаких полезных данных я не получу.


Ладно, пошел отдыхать. Завтра еще поломаю голову.

Автор: DarkMaster 25.3.2016, 23:45

Ну смотри. Было бы где тестить.

Автор: cirus 26.3.2016, 19:04

Проверил на втором компе, плагин работает. На обоих стоит Win7 x64. Пилот 2.36.1.

Автор: Cockney 26.3.2016, 21:33

По моему я схожу с ума....


Сегодня имел :

3 ноутбука с виндами 8,8.1,10 соответственно.
1 мак с виртуалкой вин хр
стационар с вин 7 32х
еще один стационар с вин 7 64х

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

Автор: DarkMaster 26.3.2016, 23:06

вот поэтому я и предлагал выделить тебе виртуалку, где ошибка воспроизводилась бы.

Автор: Cockney 26.3.2016, 23:11

ты серьезно? ну не может же так быть ,что на стольких машинах работает, а на других нет?это как так?

Автор: DarkMaster 26.3.2016, 23:58

Ты думаешь, что я тебе вру что ли? В числе тестеров был zavas, если еще помнишь такого. Его виртуалку тебе и предлагали. Еще из вариантов - обновления винды, но тут очень сложно будет вычислить проблемный патч (имхо проще понять на что ругается и переписать).

Автор: Cockney 27.3.2016, 14:37

Нет, не думаю) просто реально на издевку похоже. Дальнейшую беседу предлагаю перенести в лс, дабы не захламлять уж в конец тему.

Автор: Cockney 5.4.2016, 16:14

Работа не заброшена) давит учеба. Скоро продолжу работу.

Автор: DarkMaster 6.4.2016, 7:04

это гут

Автор: cirus 6.4.2016, 11:07

С запуском плагина решился вопрос?

Автор: DarkMaster 6.4.2016, 11:21

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

Автор: Cockney 23.4.2016, 22:17

Ну, первый, наверно, не лагающий релиз.


-Повысил стабильность работы раз в 40. Теперь плагин как и пилот, в теории, не валятся от неаккуратных действий.
-Добавил параметры в блок <SysInfo>в GUI.xml : <SafeMode>, <Warning>.
<SafeMode> - при отсутствии какого либо параметра или неправильного значения в нем автоматически применяет значение по дефолту.
Если установлено 1, то фича работает, 0 - будет выбивать ошибку при некорректном параметре, при этом прерывая обработку некоторых блоков полностью.
<Warnings> - работает только в сочетании с SafeMode = 1. Выводит предупреждения, о неправильных параметрах.

Перемудрил тут походу.

-Теперь функции при ошибке будут возвращать отрицательные значения. Расшифровка будет скоро.
-Поправил места потенциальных багов, в том числе связанных с возвращаемым результатом от GetAction.


Постарался оформить нормально. Если что не так - напишите.

---------------
В скором времени приведу в порядок описание и справку нормальную(надеюсь) прибью.

 Release0341.zip ( 111,12 килобайт ) Кол-во скачиваний: 300
или https://yadi.sk/d/0wITwKnbqXjGc.

Автор: Cockney 9.5.2016, 14:24

В связи с новой возможностью группировки функций по категориям появилась идея продублировать для каждого элемента все функции, тобиш вместо SetText будет SetButtonText и т.д. Основные плюсы :

1)Все функции элемента в отдельной вкладке.
2)Отпадет нужда указывать тип элемента в параметрах.
3)Специфичные функции для некоторых элементов будут во вкладке этого элемента.

Ну и минусы :

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

Кто что думает?

Думаю, пока слишком не поздно перейти на новый формат.

Автор: cirus 9.5.2016, 16:17

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

Автор: DarkMaster 9.5.2016, 18:14

Автор: Cockney 29.6.2016, 15:14

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

Автор: DarkMaster 29.6.2016, 15:42

Причины? Переосмысление?

Автор: Cockney 29.6.2016, 21:21

Ага, перфекционист во мне сидит. Да и костылей много. Охота все как надо сделать, а не через...

Автор: InG 1.12.2016, 1:00

Ребят, подскажите чо как делать, я даже пример не могу заставить работать, может что не так делаю, пошагово дайте инструкцию как например сделать чтобы по нажатию на кнопку выполнялся "alarm" а дальше я как нить разберусь

Автор: cirus 1.12.2016, 2:11

Если архив взят отсюда https://forum.uokit.com/index.php?s=&showtopic=29457&view=findpost&p=220793, то:

set %a GUI.GetAction ()
if %a [1 3] = Старт and %a [1 4] = BUTTON_CLICK   // если сделан один клик по кнопке Старт
     alarm
end_if
wait 100

Автор: InG 2.12.2016, 0:59

Цитата(cirus @ 1.12.2016, 3:11)

set %a GUI.GetAction ()
if %a [1 3] = Старт and %a [1 4] = BUTTON_CLICK   // если сделан один клик по кнопке Старт
     alarm
end_if
wait 100

Автор: cirus 2.12.2016, 2:10

<Name>Button</Name>    
<Caption>Старт</Caption>

1 - Имя формы
2 - Имя контрола
3 - Текст контрола
4 - Описание события

BUTTON_CLICK - Клик по кнопке
BUTTON_DBL_CLICK - Двойной клик по кнопке
TEXT_CLICK - Клик по тексту
EDIT_CHANGE - Если редактируется поле ввода

Автор: InG 2.12.2016, 14:07

Цитата(cirus @ 2.12.2016, 3:10)

<Name>Button</Name>    
<Caption>Старт</Caption>

1 - Имя формы
2 - Имя контрола
3 - Текст контрола
4 - Описание события

BUTTON_CLICK - Клик по кнопке
BUTTON_DBL_CLICK - Двойной клик по кнопке
TEXT_CLICK - Клик по тексту
EDIT_CHANGE - Если редактируется поле ввода

Автор: cirus 2.12.2016, 14:59

Можно просто получить текст из обоих edit.

set $a GUI.GetText (*Edit* *Main* *edit*)      // присвоить переменной текст из edit
set $b GUI.GetText (*Edit* *Main* *edit2*)    // присвоить переменной текст из edit2
hint $a   $b
wait 100

Автор: ivanTu 24.1.2017, 15:30

А как к примеру при клики по одной кнопке, изменить visible = другой

Автор: cirus 24.1.2017, 15:52

set %a GUI.GetAction ()
if %a [1 3] = Старт and %a [1 4] = BUTTON_CLICK   // если сделан один клик по кнопке Старт
     set $a GUI.Enable (*Button* *Main* *Button2* *0*)        // 0 - выключить, 1 - включить
end_if
wait 100

Автор: ivanTu 24.1.2017, 16:04

Спасибо!

Пытался по этому же принципу скрыть кнопку не получилось...

set %a GUI.GetAction ()
if %a [1 3] = Старт and %a [1 4] = BUTTON_CLICK // если сделан один клик по кнопке Старт
set $a GUI.Visible (*Button* *Main* *Button2* *0*) // 0 - выключить, 1 - включить
end_if

Автор: cirus 24.1.2017, 16:16

Автор: ivanTu 24.1.2017, 16:22

То есть, кликнув по одной кнопки, изменить свойство Visible у другой кнопки нет возможности?

Автор: cirus 24.1.2017, 16:25

В данный момент нет. Разве что Cockney допишет такую команду.

Автор: Cockney 26.1.2017, 23:06

Не допишу. Пока закрыл развитие плагина, ибо нет подходящих инструментов для рисования гуи из под длл. Найду - продолжу работу. Исходники могу выложить в паблик, если кто-то осмелится поддерживать их, но код уж больно ужасен.

Автор: ivanTu 9.2.2017, 11:28

У меня еще вопрос как проверять чексбокс, стоит ли галочка?

Автор: cirus 9.2.2017, 11:41

set $a GUI.GetState (*Имя формы, на которой лежит чекбокс* *Имя чекбокса*)

set $a GUI.GetState (*Main* *chk*)      // chk - это имя чекбокса в xml
log $a
// или 
set $a GUI.GetState (*Main* *Останавливать при ошибке*)   // тут указано имя чекбокса на форме
log $a
End_script

Автор: sel 2.8.2018, 2:03

Цитата(Cockney @ 29.2.2016, 0:21)

Автор: cirus 2.8.2018, 3:12

Автор: sel 2.8.2018, 6:03

В итоге я нашёл способ снимать галки, костылём конечно, но мне подходит.

exec UoPilotStart.bat
exit

Автор: cirus 2.8.2018, 11:51

Можно и кликом left поставить галку.

Автор: sel 25.12.2018, 14:38

Цитата(cirus @ 2.8.2018, 13:51)