Вверх ↑
Ответов: 1292
Рейтинг: 28
#1: 2021-02-08 04:07:03 ЛС | профиль | цитата
По мышке всё разжёвано и работает...

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



Add(InlineCode,3935702,322,189)
{
@Hint=#22:Запрос NamePC Name Bit|
@Color=16777130
WorkPoints=#3:do1|3:do2|
Code=#15:unit HiAsmUnit;|0:|9:interface|0:|29:uses Windows,kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10: private|0:|9: public|25: on1, on2: THI_Event;|48: procedure do1(var _Data:TData; Index:word);|48: procedure do2(var _Data:TData; Index:word);|5: end;|0:|0:|14:implementation|0:|5:const|102: _mdown:array[1..3]of cardinal = (MOUSEEVENTF_LEFTDOWN,MOUSEEVENTF_RIGHTDOWN,MOUSEEVENTF_MIDDLEDOWN);|94: _mup:array[1..3]of cardinal = (MOUSEEVENTF_LEFTUP,MOUSEEVENTF_RIGHTUP,MOUSEEVENTF_MIDDLEUP);|2: |0:|0:|0:|26:procedure THiAsmClass.do1;|0:|11:var b:byte;|86: inp: TInput; //test|86: mi: TMouseInput; //test|5:begin|10: b := 1;|86: ZeroMemory(@mi, sizeof(mi)); //test|86: ZeroMemory(@inp, sizeof(inp)); //test|86: mi.dwFlags:= _mdown[b]; //test|86: inp.mi := mi; //test|86: SendInput(b,inp,sizeof(inp)); //test|86: mi.dwFlags:= _mup[b]; //test|86: inp.mi := mi; //test|86: SendInput(b,inp,sizeof(inp)); //test|0:|4:end;|0:|0:|26:procedure THiAsmClass.do2;|0:|3:var|0:|11:TI: TInput;|0:|16:KI: TKeybdInput;|0:|0:|5:begin|0:|0:|0:|27:TI.Itype := INPUT_KEYBOARD;|0:|0:|0:|88:// ZeroMemory(@KI, sizeof(KI)); //test|86: // ZeroMemory(@TI, sizeof(TI)); //test|0:|16: KI.wVk := 49;|0:|19: KI.dwFlags := 0;|0:|15: TI.ki := KI;|0:|32: SendInput(1, TI, SizeOf(TI));|0:|33: KI.dwFlags := KEYEVENTF_KEYUP;|0:|15: TI.ki := KI;|0:|32: SendInput(1, TI, SizeOf(TI));|0:|0:|4:end;|0:|0:|4:end.|
}

карма: 2

0