Вверх ↑
Этот топик читают: Гость
Ответов: 1343
Рейтинг: 31
#1: 2013-11-27 21:33:06 ЛС | профиль | цитата
делать нечего вот думаю как сделать такую штуку:
Эмулятор мышки который Нажимает на ЛКМ не в системном уровне а на Реальном уровне то есть просто скажем подача вольт 6 на релюшку которая в свою очередь замкнёт контакты ЛКМ

(мышка с убитой ЛКМ лежит(микрушка уже здохла) вот и хочу её в дело пустить (и в итоге будет НЕ УБИВАЕМЫЙ(без возможности фикса в играх) эмулятор )




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

или скажем как к примеру вывести через какое либо гнездо простой вольтаж с регулированием тоесть поставил значиние скажем 100 и вольтаж 24вольта
поставил 50 и вольтаж стал 12вольт итд


пожалуйста помогите

вот ТЕМКА и там же есть что то интересное с COM портом тоесть вывод вольтажа +12 и -12 соответственно можно зафигачить диоды мелкие они будут служить и как выключатели и как сопротивление что бы релюшка не сдохла
карма: 2

0
Ответов: 8928
Рейтинг: 823
#2: 2013-11-27 22:24:52 ЛС | профиль | цитата
Rysik, через LPT порт напрямую можно подключить 8 релюшек на 5 вольт и 5 мА (сопротивление обмотки 1 кОм), через несложную логическую схему -- 255 штук для всех друзей
карма: 19

0
Гость
Ответов: 17029
Рейтинг: 0
#3: 2013-11-28 08:40:52 правка | ЛС | профиль | цитата


Редактировалось 3 раз(а), последний 2017-06-14 18:46:42
карма: 0

0
Ответов: 8928
Рейтинг: 823
#4: 2013-11-28 09:13:01 ЛС | профиль | цитата
Rysik, ну вот а хотя бы примечания к точкам прочитать, не говоря уж о примерах приложенных, некогда
lpt_mouse.jpg
карма: 19

0
файлы: 1lpt_mouse.jpg [58.3KB] [397]
Ответов: 704
Рейтинг: 44
#5: 2013-11-28 14:15:52 ЛС | профиль | цитата
Rysik писал(а):
делать нечего вот думаю как сделать такую штуку:
Эмулятор мышки который Нажимает на ЛКМ не в системном уровне а на Реальном уровне то есть просто скажем подача вольт 6 на релюшку которая в свою очередь замкнёт контакты ЛКМ

Ты бы лучше, полезное что-то сделал, а не х страдал Возьми почитай Delphi язык например и создавай компоненты для Hiasm. Я вот 3-й день голову ломаю как сделать MaskTexbox чтобы номера вводились по маске в определенные места.
+7(___)___-__-__ Все вписывает нормально все скобки, черточки проскакивает нормально+7(123)456-78-90. Но
нужно сделать когда пользователь решил затереть данные, то тогда должно все возвращаться на свои места. Вот здесь трабл. Если кому интересно вот покопайтесь может что и получится.
code_32431.txt
карма: 0

0
файлы: 1code_32431.txt [1.7KB] [217]
Гость
Ответов: 17029
Рейтинг: 0
#6: 2013-11-28 14:33:39 правка | ЛС | профиль | цитата


Редактировалось 3 раз(а), последний 2017-06-14 18:46:42
карма: 0

0
Ответов: 704
Рейтинг: 44
#7: 2013-11-28 14:50:10 ЛС | профиль | цитата
г. ость писал(а):
OCX сойдёт? тут упоминалось

Спасибо почитаю.
карма: 0

0
Ответов: 1343
Рейтинг: 31
#8: 2013-11-28 14:58:15 ЛС | профиль | цитата
Kazbek17 писал(а):
как сделать MaskTexbox чтобы номера вводились по маске в определенные места.


пфф это же вроде не трудно

кароч сатри:
делаеш проверку символа на сходство с оригиналом (а делается это через COPY тоесть символ скажем 7 и копировать 1 символ) если символа нету то замена на _ если же есть цифорка скажем 5 то переход к след символу для проверки

всё элемнтарно и просто...
------------ Дoбавленo в 14.58:
эх.....

LPT порта нема..
токо COM
карма: 2

0
Ответов: 704
Рейтинг: 44
#9: 2013-11-28 15:01:05 ЛС | профиль | цитата
Rysik писал(а):
пфф это же вроде не трудно

кароч сатри:
делаеш проверку символа на сходство с оригиналом (а делается это через COPY тоесть символ скажем 7 и копировать 1 символ) если символа нету то замена на _ если же есть цифорка скажем 5 то переход к след символу для проверки

всё элемнтарно и просто...

Ты меня не понял, зачем мне сверять символы на сходство Когда нужно как я уже показал выше +7(___)___-__-__маску для ввода номера телефона. Пользователь вводит цифры а каретка автоматом перескакивает на заданную маску. Ты мой пример смотрел?
карма: 0

0
Ответов: 1343
Рейтинг: 31
#10: 2013-11-28 15:05:18 ЛС | профиль | цитата
Kazbek17 писал(а):
Ты мой пример смотрел?


да видел и проблема была в том что стирается всё что нужно и ненужно
вот я и дал пример что бы твои символы ВОРАЧИВАЛИСЬ!!!

или не понимаеш меня...
карма: 2

0
Разработчик
Ответов: 26163
Рейтинг: 2127
#11: 2013-11-28 15:06:41 ЛС | профиль | цитата
Rysik писал(а):
токо COM

На компоненте ComEx можно получить независимое управление двумя выходами -- DTR и RTS, для этого там есть соответствующие методы и события
карма: 22

0
Ответов: 1536
Рейтинг: 176
#12: 2013-11-28 16:14:34 ЛС | профиль | цитата
Kazbek17 писал(а):
Пользователь вводит цифры а каретка автоматом перескакивает на заданную маску
Я бы решил эту задачу для себя так:
Add(MainForm,2953706,161,91)
{
Width=313
Height=87
Point(onChar)
}
Add(Length,8834083,287,203)
{
link(onLength,10811498:doCompare,[])
}
Add(Length,2879881,476,189)
{
link(onLength,8398404:doCompare,[])
}
Add(If_else,10811498,336,203)
{
Type=2
Op2=Integer(2)
link(onTrue,3105862:doEvent1,[])
}
Add(If_else,8398404,518,189)
{
Type=2
Op2=Integer(2)
link(onTrue,12488982:doEvent1,[])
}
Add(Length,12981451,658,175)
{
link(onLength,64450:doCompare,[])
}
Add(If_else,64450,707,175)
{
Type=2
Op2=Integer(1)
link(onTrue,15980686:doEvent1,[])
}
Add(Hub,3105862,399,203)
{
InCount=2
link(onEvent1,12453905:doSetFocus,[])
link(onEvent2,12453905:doSelectAll,[])
}
Add(Hub,12488982,574,189)
{
InCount=2
link(onEvent1,11990847:doSetFocus,[])
link(onEvent2,11990847:doSelectAll,[])
}
Add(Hub,15980686,763,175)
{
InCount=2
link(onEvent1,10393416:doSetFocus,[])
link(onEvent2,10393416:doSelectAll,[])
}
Add(Label,8180440,161,210)
{
Left=20
Top=10
Width=189
Height=28
Font=[MS Sans Serif,14,0,0,1]
Caption="+7( ) - - "
}
Add(Edit,12875877,237,203)
{
Left=50
Top=15
Width=45
Text=""
MaxLenField=3
ClearAfterEnter=1
Point(onMouseUp)
Point(doSelectAll)
link(onChange,8834083:doLength,[])
link(onMouseUp,12875877:doSelectAll,[(281,223)(281,243)(225,243)(225,223)])
}
Add(Edit,12453905,426,189)
{
Left=105
Top=15
Width=40
Text=""
MaxLenField=3
ClearAfterEnter=1
Point(doSetFocus)
Point(doSelectAll)
Point(onMouseUp)
link(onChange,2879881:doLength,[])
link(onMouseUp,3105862:doEvent2,[(470,209)(470,226)(387,226)(387,216)])
}
Add(Edit,11990847,609,175)
{
Left=155
Top=15
Width=35
Text=""
MaxLenField=2
ClearAfterEnter=1
Point(doSetFocus)
Point(doSelectAll)
Point(onMouseUp)
link(onChange,12981451:doLength,[])
link(onMouseUp,12488982:doEvent2,[(653,195)(653,214)(562,214)(562,202)])
}
Add(Edit,10393416,798,161)
{
Left=205
Top=15
Width=35
Text=""
MaxLenField=2
ClearAfterEnter=1
Point(doSetFocus)
Point(doSelectAll)
Point(onMouseUp)
link(onMouseUp,15980686:doEvent2,[(842,181)(842,199)(751,199)(751,188)])
}
Add(Button,1077006,161,168)
{
Left=250
Top=15
Width=20
Caption="x"
link(onClick,14231538:doEvent1,[])
}
Add(Hub,14231538,203,168)
{
OutCount=4
link(onEvent1,10393416:doText2,[])
link(onEvent2,11990847:doText2,[(420,181)(420,188)])
link(onEvent3,12453905:doText2,[(322,188)(322,202)])
link(onEvent4,12875877:doText2,[(227,195)(227,216)])
}
карма: 1
Не так страшна ошибка, как опасность её не заметить.

0
Ответов: 1343
Рейтинг: 31
#13: 2013-11-28 16:21:32 ЛС | профиль | цитата
nesco писал(а):
На компоненте ComEx можно получить независимое управление двумя выходами -- DTR и RTS, для этого там есть соответствующие методы и события


если бы ты написал про (скажем к примеру кряк программ) я бы понял а тут как бы +0 % к продвижению схемы
карма: 2

0
Разработчик
Ответов: 26163
Рейтинг: 2127
#14: 2013-11-28 16:33:51 ЛС | профиль | цитата
Rysik писал(а):
я бы понял а тут как бы +0 % к продвижению схемы


Add(MainForm,2953706,105,119)
{
Width=545
Height=534
}
Add(COMEX,4388831,350,329)
{
Port=7
Point(onDSR)
Point(onCTS)
Point(onDCD)
Point(onRING)
link(onSyncWrite,8083177:doText,[(415,335)(415,300)])
link(onSyncRead,8385189:doAdd,[])
link(onDSR,16742351:doEvent,[(416,356)(416,412)])
link(onCTS,2617667:doEvent,[(409,363)(409,454)])
link(onDCD,6022491:doEvent,[(401,370)(401,496)])
link(onRING,14131674:doEvent,[(394,377)(394,538)])
}
Add(Memo,8385189,441,343)
{
Left=30
Top=15
Width=225
Height=360
}
Add(Button,4534229,105,175)
{
Left=30
Top=390
TabOrder=-1
Caption="Com6"
link(onClick,16641812:doEvent1,[])
}
Add(Hub,16641812,175,175)
{
link(onEvent1,11441645:doOpen,[])
link(onEvent2,7693171:doTimer,[(210,188)(210,195)])
}
Add(Timer,7693171,231,189)
{
Interval=2000
Enable=1
link(onTimer,2609663:doData,[])
}
Add(DoData,2609663,287,189)
{
Data=String(1234567890)
link(onEventData,11441645:doWrite,[])
}
Add(Button,10660975,231,329)
{
Left=95
Top=390
TabOrder=-1
Caption="Com8"
link(onClick,4388831:doOpen,[])
}
Add(Button,13797935,231,364)
{
Left=95
Top=415
TabOrder=-1
Caption="Close"
link(onClick,4388831:doClose,[(309,370)(309,342)])
}
Add(Memo,4276976,476,189)
{
Left=265
Top=15
Width=225
Height=360
}
Add(Button,14310842,231,399)
{
Left=95
Top=440
TabOrder=-1
Caption="Write"
Data=String(0987654321)
link(onClick,4388831:doWrite,[(323,405)(323,349)])
}
Add(Label,8083177,441,294)
{
Left=290
Top=395
Caption=""
AutoSize=1
}
Add(Button,2196735,231,224)
{
Left=30
Top=440
TabOrder=-1
Caption="DTR"
link(onClick,12553443:doSwitch,[])
}
Add(Button,16560162,231,259)
{
Left=30
Top=465
TabOrder=-1
Caption="RTS"
link(onClick,1060070:doSwitch,[])
}
Add(Switch,12553443,287,224)
{
DataOn=Integer(1)
DataOff=Integer(0)
link(onSwitch,11441645:doDTR,[(363,230)(363,202)])
}
Add(Switch,1060070,287,259)
{
DataOn=Integer(1)
DataOff=Integer(0)
link(onSwitch,11441645:doRTS,[(375,265)(375,209)])
}
Add(COMEX,11441645,406,175)
{
Port=5
Point(onDSR)
Point(onCTS)
Point(onRING)
Point(doDTR)
Point(doRTS)
link(onSyncRead,4276976:doAdd,[])
}
Add(Label,8262668,105,224)
{
Left=295
Top=415
Width=27
Height=17
Caption="DSR"
}
Add(Label,8972716,112,231)
{
Left=340
Top=415
Width=25
Height=17
Caption="CTS"
}
Add(Label,5043200,119,238)
{
Left=435
Top=415
Width=15
Height=17
Caption="RI"
}
Add(LED,1658534,497,399)
{
Left=295
Top=440
}
Add(LED,3008249,497,441)
{
Left=340
Top=440
}
Add(LED,8212475,497,525)
{
Left=430
Top=440
}
Add(IndexToChanel,16742351,441,406)
{
link(onEvent1,1658534:doOff,[])
link(onEvent2,1658534:doOn,[])
}
Add(IndexToChanel,2617667,441,448)
{
link(onEvent1,3008249:doOff,[])
link(onEvent2,3008249:doOn,[])
}
Add(IndexToChanel,14131674,441,532)
{
link(onEvent1,8212475:doOff,[])
link(onEvent2,8212475:doOn,[])
}
Add(Label,3941013,126,245)
{
Left=385
Top=415
Width=27
Height=17
Caption="DCD"
}
Add(LED,13512637,497,483)
{
Left=385
Top=440
}
Add(IndexToChanel,6022491,441,490)
{
link(onEvent1,13512637:doOff,[])
link(onEvent2,13512637:doOn,[])
}
Add(Button,1388006,287,140)
{
Left=30
Top=415
TabOrder=-1
Caption="Close"
link(onClick,11441645:doClose,[(363,146)(363,188)])
}


Как подключаться к выходам DTR и RTS ищи в гугле.
карма: 22

0
Ответов: 1343
Рейтинг: 31
#15: 2013-11-28 16:34:23 ЛС | профиль | цитата
бл...
вроде то что надо было а потом
мельком глянул
оказалось что и COM порта нету а было это (разъём от встроенной видюхи)

подскажите хоть КАК нажать на 5 клавишу мышки Х7 а то там XButton1 висит в сишке а какой номер у него непонятно.. пробовал через компонент мышки вписать ни чё не вышло
карма: 2

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