Вверх ↑
Этот топик читают: Гость
Ответов: 871
Рейтинг: 322
#16: 2018-12-09 15:32:23 ЛС | профиль | цитата
Ну так

Add(MainForm,4835711,266,140)
{
Width=315
Height=238
Position=1
Point(onMouseDown)
Point(onMouseUp)
link(onMouseDown,6471037:doWork2,[])
link(onMouseUp,6471037:doWork3,[(333,174)])
}
Add(LED,14295622,588,161)
{
Left=205
Top=75
}
Add(CounterEx,14150627,413,161)
{
Min=1
Max=2
link(onNext,11562193:doCase,[])
}
Add(Timer,6276072,532,161)
{
Interval=100
Enable=1
link(onTimer,14295622:doChangeValue,[])
}
Add(Case,11562193,469,161)
{
Value=Integer(2)
DataOnTrue=Integer(1)
link(onNextCase,6276072:doTimer,[])
link(onTrue,6276072:doStop,[])
}
Add(HubEx,6471037,329,161)
{
link(onEvent,3716090:doCase,[])
}
Add(Case,3716090,364,161)
{
Value=Integer(0)
link(onTrue,14150627:doNext,[(404,174)(404,167)])
}


не понял это "Проблема в том что после эмуляции нажатия я не могу отследить мыш не посредствено ."
карма: 1

0
Ответов: 839
Рейтинг: 17
#17: 2018-12-09 17:59:24 ЛС | профиль | цитата
процесс привязан к форме . попробуй в совокупности с эмуляцией клика .
и без привязки фокуса только на форме

--- Добавлено в 2018-12-09 18:17:53

kamakama писал(а):
Ну так

Add(MainForm,4835711,266,140)
{
Width=315
Height=238
Position=1
Point(onMouseDown)
Point(onMouseUp)
link(onMouseDown,6471037:doWork2,[])
link(onMouseUp,6471037:doWork3,[(333,174)])
}
Add(LED,14295622,588,161)
{
Left=205
Top=75
}
Add(CounterEx,14150627,413,161)
{
Min=1
Max=2
link(onNext,11562193:doCase,[])
}
Add(Timer,6276072,532,161)
{
Interval=100
Enable=1
link(onTimer,14295622:doChangeValue,[])
}
Add(Case,11562193,469,161)
{
Value=Integer(2)
DataOnTrue=Integer(1)
link(onNextCase,6276072:doTimer,[])
link(onTrue,6276072:doStop,[])
}
Add(HubEx,6471037,329,161)
{
link(onEvent,3716090:doCase,[])
}
Add(Case,3716090,364,161)
{
Value=Integer(0)
link(onTrue,14150627:doNext,[(404,174)(404,167)])
}


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


ТЫ сам попробуй посмотри что выйдет .....




Add(Keyboard,1636610,343,189)
{
Key=1
Point(ToggleState)
link(onReadKey,3716090:doCase,[])
}
Add(Timer,10251937,294,189)
{
Interval=100
Enable=1
link(onTimer,1636610:doReadKey,[])
}
Add(MouseEvent,12174754,771,252)
{
Point(onVisible)
}
Add(Label,2127031,826,196)
{
Left=240
Top=10
link(Text,9671515:Count,[(832,191)(800,191)(800,240)(769,240)])
}
Add(CounterEx,9671515,763,196)
{
link(onNext,2127031:doText,[])
}
Add(Hub,14779423,700,196)
{
link(onEvent1,9671515:doNext,[])
link(onEvent2,12174754:doClick,[(742,209)(742,258)])
}
Add(LineBreak,10030209,240,175)
{
Caption="start"
link(Out,10251937:doTimer,[(283,181)(283,195)])
Primary=[14075264,-46,0]
}
Add(LineBreak,16322824,243,196)
{
Caption="stop"
link(Out,10251937:doStop,[])
Primary=[9338732,-50,28]
}
Add(CounterEx,15984336,434,196)
{
Min=1
Max=2
link(onNext,1630046:doEvent,[])
}
Add(Timer,10796289,609,196)
{
Interval=100
Enable=1
link(onTimer,14779423:doEvent1,[])
}
Add(Case,10072121,511,196)
{
Value=Integer(1)
DataOnTrue=Integer(1)
link(onNextCase,10796289:doTimer,[])
link(onTrue,10796289:doStop,[])
}
Add(Case,3716090,385,189)
{
Value=Integer(1)
link(onTrue,15984336:doNext,[])
}
Add(Debug,1630046,483,196)
{
link(onEvent,10072121:doCase,[])
}

Такое впечетления что даже не смотрели мою схему . вся проблема в отслеживании клавиши при том что нужно одновремена симулиравать нажатия её же.

Редактировалось 1 раз(а), последний 2018-12-09 18:17:53
карма: 0

0
Ответов: 871
Рейтинг: 322
#18: 2018-12-10 05:56:15 ЛС | профиль | цитата
Черт, пришлось ставить виртуалку. Так как под вайном эта схема не работает.

Add(MainForm,4835711,350,154)
{
Width=315
Height=238
Position=1
Point(Handle)
link(onCreate,1509384:doPopup,[(392,174)(392,200)(338,200)(338,223)])
}
Add(LED,14295622,630,210)
{
Left=205
Top=75
}
Add(Timer,6276072,581,210)
{
Interval=100
Enable=1
link(onTimer,14295622:doChangeValue,[])
}
Add(Case,3716090,525,210)
{
Value=Integer(0)
link(onNextCase,6276072:doTimer,[])
link(onTrue,6276072:doStop,[])
}
Add(Keyboard,12765984,476,210)
{
Key=1
link(onReadKey,3716090:doCase,[])
}
Add(Timer,2420783,413,210)
{
Interval=100
link(onTimer,12765984:doReadKey,[])
}
Add(WinTools,1509384,350,210)
{
link(Handle,4835711:Handle,[])
}

сейчас левая нажатая кнопка запускает моргание светодиода, как на форме, так и вне ее.
карма: 1

0
Ответов: 839
Рейтинг: 17
#19: 2018-12-10 06:41:10 ЛС | профиль | цитата
А что на счет эмуляции клика:?))) во время того как зажата клавиша?
Add(Timer,6276072,798,350)
{
Interval=100
Enable=1
link(onTimer,12174754:doClick,[])
}
Add(Case,3716090,742,350)
{
Value=Integer(0)
link(onNextCase,6276072:doTimer,[])
link(onTrue,6276072:doStop,[])
}
Add(Keyboard,12765984,693,350)
{
Key=1
link(onReadKey,3716090:doCase,[])
}
Add(Timer,2420783,630,350)
{
Interval=100
link(onTimer,12765984:doReadKey,[])
}
Add(MouseEvent,12174754,967,350)
{
Point(onVisible)
}

у меня просто перестает работать=D

Может как то можно отследить usb вход мыши что она отправляет и от этого шагать?)только как отследить получаемые даные на порта мыши

Редактировалось 2 раз(а), последний 2018-12-10 06:44:55
карма: 0

0
Ответов: 871
Рейтинг: 322
#20: 2018-12-10 19:48:37 ЛС | профиль | цитата
Что то ни фига я не могу врубиться что это такое будет. Попробуй эту галиматью. Но зачем тебе это надо???? Может быть тогда лучше ответ найдется. Держи нажатой около секунды затем увидишь что получится. Но только может быть координаты могут быть неправильными. Но это уже Wine. К ее приколам я уже привык. Так как очень часто приходится просто изгаляться над здравым смыслом.

Add(MainForm,2953706,392,105)
{
Point(onKeyUp)
}
Add(Timer,6276072,546,189)
{
Interval=800
Enable=1
AutoStop=1
link(onTimer,7877810:doEvent1,[(586,195)(586,188)])
}
Add(Case,3716090,497,189)
{
Value=Integer(0)
link(onNextCase,6276072:doTimer,[])
link(onTrue,6276072:doStop,[])
}
Add(Keyboard,12765984,448,189)
{
Key=1
link(onReadKey,3716090:doCase,[])
}
Add(Timer,2420783,399,189)
{
Interval=100
link(onTimer,12765984:doReadKey,[])
}
Add(MouseEvent,12174754,764,175)
{
Point(onVisible)
Point(doMouseDown)
Point(doMouseUp)
Point(doPosition)
link(X,7616436:Var2,[])
link(Y,7616436:Var3,[(784,152)])
}
Add(LED,14740736,651,84)
{
Left=250
Top=30
}
Add(Hub,7877810,595,182)
{
OutCount=4
link(onEvent1,14740736:doChangeValue,[(634,188)(634,90)])
link(onEvent2,12174754:doPosition,[(687,195)(687,209)])
link(onEvent3,12174754:doMouseUp,[])
link(onEvent4,15674280:doTimer,[(651,209)(651,223)])
}
Add(Button,5342443,609,280)
{
Left=100
Top=105
Width=180
Height=105
}
Add(Timer,15674280,693,217)
{
Interval=100
AutoStop=1
link(onTimer,12174754:doMouseDown,[(745,223)(745,195)])
}
Add(Memory,10771988,771,98)
{
Default=Integer(150)
}
Add(GetDataEx,7616436,771,147)
{
link(Data,10771988:Value,[])
}

карма: 1

0
Ответов: 30
Рейтинг: 3
#21: 2018-12-11 07:55:06 ЛС | профиль | цитата
Попробовал на мышке Razer сделать требуемую задачу, на левую клавишу установил макрос с нажатием 0,5с и отжатия 0,5с и получил мышку считай не управляемую. Не совсем понятен смысл для чего нужно это. Вот если бы автор рассказал для чего именно нужно это то было бы наверное более понятен смысл.
карма: 0

0
21
Сообщение
...
Прикрепленные файлы
(файлы не залиты)