( Вход | Регистрация | Поиск )

Виртуальные клавиши мышки, не получается виртуально нажать мышку )
Дата обновления: 24.06.2011 - 12:52, перейти к новому сообщению

·ego30
Группа: Пользователи

Сообщений: 59
Здравствуйте ! давно зареган на этом форуме, по нужде захожу помогает )
В приложение контакта лицемере за каждую оценку тебе дают энергию )
вот я устал жать оду и ту же клавишу и хочу виртуально ее нажимать )) с клавиатурой все получается вирт клавиши работают вот часть кода :
Code
procedure rrr(key:byte);
begin
    keybd_event(key, 0, 0, 0); //Нажатие клавиши key
    keybd_event(key, 0, KEYEVENTF_KEYUP, 0); //Отпускание клавиши key
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
rrr(VK_LBUTTON); // собственно сам вызов функции
end;



Ответов(1 - 1)

·middleman
Группа: Наши Люди

Сообщений: 3.366
Ну если keybd_event для управления клавой нормально работает, что тоже не всегда бывает, то логично попытаться использовать mouse_event для управления мышью.

Причем на сколько я понял это автокликер. Тоже когда-то таким страдал. В таком случае чтобы он не мешал работать на компе я на шарпе загружал его в самой своей проге и потом вызовом функции через DOM надавливал нужные кнопки. А потом еще проще сделал. Проснифил обмен с помощью Charles и потом через GET POST организовал обмен между прогой и сервером даже без загрузки страницы.