Текущий архив: 2002.11.14;
Скачать: CL | DM;

Вниз

Как эмулировать мышь и клаву?   Найти похожие ветки 

← →
Sural   (2002-10-05 06:24) [0]

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

---

← →
Rouse_ ©   (2002-10-05 06:58) [1]

SetCursorPos(x,y);
Это для перемещения мышки

Это для нажатия клавиш
procedure TForm1.SendKeys(i : integer);
var Key : Byte;
begin
Key:=LoByte(i);
keybd_event(Key,0,0,0);
keybd_event(Key,0,KEYEVENTF_KEYUP,0);
end;
i - ASCII код клавиши

А с кликаньем мышкой попозже, щас уже голова не варит после бессонной ночи

Желаю успехов

---

← →
Ученик ©   (2002-10-05 12:56) [2]

Для "мышки" mouse_event

---

Страницы: 1 вся ветка

Текущий архив: 2002.11.14;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.016 c