Четверг, 19.10.2017, 08:37 Приветствую вас Гость | Группа "Гости" 


[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: xXxSh@dowxXx, Anton93, Волк-1024 
delfcode » Delphi » Вопросы по Delphi » Нужны примерные исходники программы
Нужны примерные исходники программы
teodelfixДата: Четверг, 14.07.2011, 23:32 | Сообщение # 1
Частый гость
Зарегистрирован: 25.04.2011
Группа: Пользователи
Сообщений: 25
Статус: Offline
Есть такая программа ghost mouse она делает запись движений мыши. я хочу ее немного подправить под себя, но не могу найти исходников. и в ней не все понимаю. помогите пожалуйста. вот сама прога:
Прикрепления: gmouse.exe(240Kb)


Сообщение отредактировал 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
Администратор
Сообщений: 902
Статус: Offline
Есть исходники очень хорошей программы (uopilot) по управлению мышкой, советую посмотреть, может пригодится
Прикрепления: uopsrc96.rar(25Kb)


Система: Windows 10 x64, Windows XP
Среды программирования: Delphi 7, Delphi 10 Seattle

Я не профессионал, я всего лишь любитель
Я не вредитель, я всего лишь теоретик
 
delfcode » Delphi » Вопросы по Delphi » Нужны примерные исходники программы
Страница 1 из 11
Поиск:

delfcode.ru © 2008 - 2017 Хостинг от uCoz