VPF::Эмулятор клика мыши в Делфи - Форум программистов

leonid4244

Дата 28.10.2011, 21:01 (ссылка)

(голосов:1)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 17
Регистрация: 16.6.2008

Репутация: нет
Всего: нет

Здаствуйте
У меня такая проблема не магу сделать так чтоб мыш просто кликала левой кнопкой где угодна в любом месте и в любом приложений просто клик нечего сверхъестественного но не как делал по разному:

Код


procedure TForm1.Timer2Timer(Sender: TObject);
var
  Pt: TPoint;
begin
  //Преобразуем Pt к аболютным координатам курсора мышки
  GetCursorPos(Pt);
  //Переместим курсор мыши
  Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_MOVE, Pt.x, Pt.y, 0, 0);
  //Имитируем нажатие левой кнопки мыши
  Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTDOWN, Pt.x, Pt.y, 0, 0);
  //Имитируем отпускание левой кнопки мыши
  Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP, Pt.x, Pt.y, 0, 0);
end;

Код


procedure TForm1.Timer2Timer(Sender: TObject);
var
  foo: TPoint;
begin
  GetCursorPos(foo);
  Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTDOWN, foo.X,foo.Y, 0, 0);
  Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP, foo.X,foo.Y, 0, 0);
end;

Код


procedure TForm1.Timer2Timer(Sender: TObject);
var
  foo: TPoint;
begin
  GetCursorPos(foo);
  Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTDOWN, foo.X,foo.Y, 0, 0);
  GetDoubleClickTime;
  Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP, foo.X,foo.Y, 0, 0);
end;

Не большой результат был вот с этим кодам но только сама форма реагировала как бы на клик но ни одна кнопка на ней не среагировала.
Вот код

Код


procedure TForm1.Timer2Timer(Sender: TObject);
var
  foo: TPoint;
begin
  GetCursorPos(foo);
  sendmessage(Handle, WM_LBUTTONDOWN, MK_LBUTTON, foo.X +foo.Y shl 16);
  sendmessage(Handle, WM_LBUTTONUP, MK_LBUTTON, foo.X +foo.Y shl 16);
end;

И еще множество других попыток  все выложить место не хватит.
Большинство вариантов на этом форуме  перепробовал так что прошу не бросаться ссылками только действительно приведший к результату.

У меня Windows 7 и Dlphi 2010

Может в них какая заковырка в общем не знаю голова слетает с плеч прошу помогите.

Заранее способа буду  следить за ответами

DarkProg

Дата 28.10.2011, 21:22 (ссылка)

(нет голосов)

Загрузка ...

Законченный романтик

Профиль
Группа: Завсегдатай
Сообщений: 1784
Регистрация: 11.3.2009
Где: Земля

Репутация: нет
Всего: 19

Я делал так, в Vista работала, на Win7 лень проект открывать, да и БД той нету не запустится ничего...
Мне надо было обязатеьно счёлкнуть в правом верхнем углу формы, на одном объекте и именно мышой.

Код


Var koord:TPoint;
...
BlockInput(true);
GetCursorPos(koord);
x1:=koord.X;
y1:=koord.Y;
SetCursorPos(frmMain.Left+30,frmMain.Top+contbarMainControlBar.Height+60);
mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);
Application.ProcessMessages;
sleep(30);
SetCursorPos(x1,y1);
BlockInput(false);

--------------------

"И твоя голова всегда в ответе за то куда сядет твой зад..."

"Я студент - скажите с какого я ВУЗа..."

smile

leonid4244

Дата 29.10.2011, 12:27 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 17
Регистрация: 16.6.2008

Репутация: нет
Всего: нет

Спасибо замечательный пример все работает и даже на кнопках

BlockInput(true) ведать памог (чтобы он значил ?)

Но теперь новая проблема при запуске онлайн игры программа перестает работать

Читал на форумах что современные онлайн игры запускают свои драйвера на Клаву и на мыш (правдо??) или защиту там какую та как

это все обойти программно обойти ??

DarkProg

Дата 29.10.2011, 16:59 (ссылка)

(нет голосов)

Загрузка ...

Законченный романтик

Профиль
Группа: Завсегдатай
Сообщений: 1784
Регистрация: 11.3.2009
Где: Земля

Репутация: нет
Всего: 19

Цитата(leonid4244 @ 29.10.2011, 13:27

)

BlockInput(true) ведать памог (чтобы он значил ?)

Блокирование ввода с клавиатуры и мыши, я его использовал для того чтобы юзверь ничего никуда не утащил, а то есть всякие нервные, а у меня там Drag'n'Drop'а было немеренно.

Насчёт последнего вопроса - не знаю как помочь.

--------------------

"И твоя голова всегда в ответе за то куда сядет твой зад..."

"Я студент - скажите с какого я ВУЗа..."

smile

leonid4244

Дата 29.10.2011, 19:11 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 17
Регистрация: 16.6.2008

Репутация: нет
Всего: нет

Жаль но и на том спасибо

Может кто другой поможет ???

TheTipTop

Дата 1.11.2011, 19:03 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 25.10.2011

Репутация: нет
Всего: нет

Попробуйте добавить Sleep(10) между нажатием и отпусканием кнопки мыши.

leonid4244

Дата 1.11.2011, 22:47 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 17
Регистрация: 16.6.2008

Репутация: нет
Всего: нет

Пробывал непомагло

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »