| teodelfix | Дата: Четверг, 14.07.2011, 23:32 | Сообщение # 1 |
Частый гость
Зарегистрирован: 25.04.2011
Группа: Пользователи
Сообщений: 25
Статус: Offline
| Есть такая программа ghost mouse она делает запись движений мыши. я хочу ее немного подправить под себя, но не могу найти исходников. и в ней не все понимаю. помогите пожалуйста. вот сама прога:
Сообщение отредактировал teodelfix - Четверг, 14.07.2011, 23:32 |
| |
| |
| vvova15 | Дата: Пятница, 15.07.2011, 06:29 | Сообщение # 2 |
Участник
Зарегистрирован: 24.04.2010
Группа: Пользователи
Сообщений: 83
Статус: Offline
| и в чем сложность поставить таймер и получать каждую милесикунду положение курсороа функцией getcursorpos и записывать его куданибуть если оно изменилось?
потом с помощью setcursorpos воспроизводить аналогично?
ICQ 185-398
|
| |
| |
| teodelfix | Дата: Пятница, 15.07.2011, 07:34 | Сообщение # 3 |
|
Частый гость
Зарегистрирован: 25.04.2011
Группа: Пользователи
Сообщений: 25
Статус: Offline
| сложность в обработке нажатий мыши. я не знаю как симулировать щелчек мыши... и нужен совет как лучше все это сохранять.
|
| |
| |
| gravitas | Дата: Пятница, 15.07.2011, 10:25 | Сообщение # 4 |
Авторитетный
Зарегистрирован: 01.05.2010
Группа: Пользователи
Сообщений: 385
Статус: Offline
| var
T:TPoint;
begin
GetCursorPos(T); // получаем координаты курсора.
Mouse_Event(MOUSEEVENTF_LEFTDOWN, T.X, T.Y, 0, 0); // нажимаем ЛКМ
Mouse_Event(MOUSEEVENTF_LEFTUP, T.X, T.Y, 0, 0); // отпускаем ЛКМ
end;
Как "запомнить" для последующего воспроизведения:
1. Получаешь координаты курсора (как это сделано выше)
2. Записываешь их в файл например так: X+'.'+Y+'|'.
3. Для воспроизведения парсишь их с помощью Pos, Delete, Copy и т.п.
TheDeduction
Для ускорения получения ответов на ваши вопросы рекомендуется подкармливание в виде +'ов в рейтинг :)
|
| |
| |
| dolphin | Дата: Пятница, 15.07.2011, 11:22 | Сообщение # 5 |
Администратор
Сообщений: 906
Статус: Offline
| Есть исходники очень хорошей программы (uopilot) по управлению мышкой, советую посмотреть, может пригодится
Система: Windows 10 x64, Kali Linux
Среды программирования: Delphi 7, Delphi 10.x
Я не профессионал, я всего лишь любитель
Я не вредитель, я всего лишь теоретик
|
| |
| |
