day & night

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



Опытный юзверь
**

Группа: Пользователи
Сообщений: 59
Регистрация: 25.05.2007
Пользователь №: 403.045


Респектов: 8
-----X----


Предупреждений:


Здравствуйте ! давно зареган на этом форуме, по нужде захожу помогает )
В приложение контакта лицемере за каждую оценку тебе дают энергию )
вот я устал жать оду и ту же клавишу и хочу виртуально ее нажимать )) с клавиатурой все получается вирт клавиши работают вот часть кода :
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;
User is offline
Go topGo end
 

Ответов(1 - 1)
24.06.2011 - 12:52
#2
middleman



профи!
[SoftoRooMTeaM] Group Icon

Группа: Наши Люди
Сообщений: 3.366
Регистрация: 15.03.2005
Из: Украина, Харьков
Пользователь №: 8.829


Респектов: 744
-----XXXX-




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

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

Topic Options
Сейчас: 29.03.2024 - 14:25
Мобильная версия | Lite версия