Вернуться   CoderX :: Forums > Основные форумы > Программинг
Войти через OpenID

Программинг Форум для тем связанных с программированием

Чат (Новых сообщений с момента вашего последнего визита нет)
Загрузка...
Задавайте ваши вопросы на форуме. Чат предназначен для небольших разговоров.
 
Ответ
 
Опции темы Опции просмотра
Старый 04.02.2017, 23:34   #1
Местный
 
Регистрация: 11.06.2010
Сообщений: 644
Сказал Спасибо: 119
Имеет 85 спасибок в 77 сообщенях
dyh9l пока неопределено
По умолчанию Клик на смарт гварде.

Как реализовать клик мышью (через делфи) на смарт гварде если событие маусэвент не кликает в пределах клиента л2?

Может даже наработки есть у кого какие?

Ото у меня сейчас как-то неадекватно работает система, драйвера от мышки точат, а адреналин в релог уходит когда нужный уровень заточки)))
__________________

Последний раз редактировалось dyh9l, 04.02.2017 в 23:57.
dyh9l вне форума   Ответить с цитированием
Старый 05.02.2017, 12:14   #2
Местный
 
Аватар для ScythLab
 
Регистрация: 24.10.2014
Сообщений: 190
Сказал Спасибо: 4
Имеет 42 спасибок в 40 сообщенях
ScythLab пока неопределено
По умолчанию

У Смарта есть модуль анти-кликер, поэтому SendMessage/mouse_event/SendInput без дополнительных махинаций работать не будут.
__________________
Хобби: разработка бота для Lineage.
ScythLab вне форума   Ответить с цитированием
Старый 05.02.2017, 12:48   #3
Местный
 
Регистрация: 11.06.2010
Сообщений: 644
Сказал Спасибо: 119
Имеет 85 спасибок в 77 сообщенях
dyh9l пока неопределено
По умолчанию

Цитата:
Сообщение от ScythLab Посмотреть сообщение
У Смарта есть модуль анти-кликер, поэтому SendMessage/mouse_event/SendInput без дополнительных махинаций работать не будут.
Может наведешь на мысль какие дополнительные махинации можно сделать с этими методами \ или другими, чтоб завелось?
p.s: драйвера a4tech х7 успешно кликают.
__________________
dyh9l вне форума   Ответить с цитированием
Старый 06.02.2017, 21:09   #4
Местный
 
Аватар для ScythLab
 
Регистрация: 24.10.2014
Сообщений: 190
Сказал Спасибо: 4
Имеет 42 спасибок в 40 сообщенях
ScythLab пока неопределено
По умолчанию

Цитата:
Сообщение от dyh9l Посмотреть сообщение
Может наведешь на мысль какие дополнительные махинации можно сделать с этими методами \ или другими, чтоб завелось?
p.s: драйвера a4tech х7 успешно кликают.
Как раз драйвера и будут кликать без проблем, но только в активное окно.
А чтобы кликать в Смарт, нужно разбирать какие там стоят проверки и отламывать их.
__________________
Хобби: разработка бота для Lineage.
ScythLab вне форума   Ответить с цитированием
Старый 06.02.2017, 15:02   #5
Местный
 
Аватар для goodvin1709
 
Регистрация: 13.02.2011
Сообщений: 506
Сказал Спасибо: 121
Имеет 100 спасибок в 83 сообщенях
goodvin1709 пока неопределено
По умолчанию

Дуня ты еще тут?
__________________
---------------------------__--------__-----
---____- ___--____--- ___/'- /__ ___-(__)-____
--/-___-/-__-\/-__--\ /-__--'/--|-/--//---//--__--\
-/-/_/ -/-/_/--/-/_/--/-/_/--/|--|/--'//---//--/-/--/
-\___-/\____/\____/\____/-|____//__'//_'/-/__/
/_-__/
goodvin1709 вне форума   Ответить с цитированием
Старый 14.10.2017, 03:02   #6
Новичок
 
Регистрация: 14.11.2016
Сообщений: 8
Сказал Спасибо: 4
Имеет 2 спасибок в 1 сообщении
fastx пока неопределено
По умолчанию

http://tophope.ru/threads/6070/
https://github.com/unc1e/ZwClicker
Писал не так давно
fastx вне форума   Ответить с цитированием
За это сообщение fastx нажился 2 спасибками от:
Старый 14.10.2017, 14:53   #7
Пользователь
 
Регистрация: 14.07.2016
Сообщений: 59
Сказал Спасибо: 6
Имеет 10 спасибок в 9 сообщенях
Smwr на пути к лучшему
По умолчанию

С вкладки About нормально так поорал

Последний раз редактировалось Smwr, 14.10.2017 в 16:06.
Smwr вне форума   Ответить с цитированием
Старый 14.10.2017, 17:52   #8
Новичок
 
Регистрация: 14.11.2016
Сообщений: 8
Сказал Спасибо: 4
Имеет 2 спасибок в 1 сообщении
fastx пока неопределено
По умолчанию

Цитата:
Сообщение от Smwr Посмотреть сообщение
С вкладки About нормально так поорал
Ну тк надо стараться, чтобы софт приносил радость людям ))
fastx вне форума   Ответить с цитированием
Старый 30.01.2019, 21:02   #9
Заблокирован
 
Регистрация: 30.01.2019
Сообщений: 6
Сказал Спасибо: 0
Имеет 0 спасибок в 0 сообщенях
nasta456 пока неопределено
По умолчанию

спасибо за ответы)
nasta456 вне форума   Ответить с цитированием
Старый 23.05.2020, 00:27   #10
Пользователь
 
Регистрация: 29.09.2010
Сообщений: 34
Сказал Спасибо: 18
Имеет 1 спасибку в 1 сообщении
controller пока неопределено
По умолчанию

Нажатие кнопок... в активное и не активное окно, я этим играюсь на астериосе для кликера )
Код:
procedure PostKeyExHWND(hWindow: HWnd; key: Word;
          const shift: TShiftState;
  specialkey: Boolean);
type
  TBuffers = array [0..1] of TKeyboardState;
var
  pKeyBuffers: ^TBuffers;
  lParam: LongInt;
begin
  (* check if the target window exists *)
  if IsWindow(hWindow) then
  begin
    (* set local variables to default values *)
    pKeyBuffers := nil;
    lParam := MakeLong(0, MapVirtualKey(key, 0));
    (* modify lparam if special key requested *)
    if specialkey then
      lParam := lParam or $1000000;
    (* allocate space for the key state buffers *)
    New(pKeyBuffers);
    try
      (* Fill buffer 1 with current state so we can later restore it.
         Null out buffer 0 to get a "no key pressed" state. *)
      GetKeyboardState(pKeyBuffers^[1]);
      FillChar(pKeyBuffers^[0], SizeOf(TKeyboardState), 0);
      (* set the requested modifier keys to "down" state in the buffer*)
      if ssShift in shift then
        pKeyBuffers^[0][VK_SHIFT] := $80;
      if ssAlt in shift then
      begin
        (* Alt needs special treatment since a bit in
          lparam needs also be set *)
        pKeyBuffers^[0][VK_MENU] := $80;
        lParam := lParam or $20000000;
      end;
      if ssCtrl in shift then
        pKeyBuffers^[0][VK_CONTROL] := $80;
      if ssLeft in shift then
        pKeyBuffers^[0][VK_LBUTTON] := $80;
      if ssRight in shift then
        pKeyBuffers^[0][VK_RBUTTON] := $80;
      if ssMiddle in shift then
        pKeyBuffers^[0][VK_MBUTTON] := $80;
      (* make out new key state array the active key state map *)
      SetKeyboardState(pKeyBuffers^[0]);
      (* post the key messages *)
      if ssAlt in Shift then
      begin
        PostMessage(hWindow, WM_SYSKEYDOWN, key, lParam);
        PostMessage(hWindow, WM_SYSKEYUP, key, lParam or $C0000000);
      end
      else
      begin
        PostMessage(hWindow, WM_KEYDOWN, key, lParam);
        PostMessage(hWindow, WM_KEYUP, key, lParam or $C0000000);
      end;
      (* process the messages *)
      Application.ProcessMessages;
      (* restore the old key state map *)
      SetKeyboardState(pKeyBuffers^[1]);
    finally
      (* free the memory for the key state buffers *)
      if pKeyBuffers <> nil then
        Dispose(pKeyBuffers);
    end; { If }
  end;
end; { PostKeyEx }
controller вне форума   Ответить с цитированием
За это сообщение controller нажился спасибкой от:
Ответ

  CoderX :: Forums > Основные форумы > Программинг



Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.


Часовой пояс GMT +4, время: 03:59.

vBulletin style designed by MSC Team.
Powered by vBulletin® Version 3.6.11
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd. Перевод: zCarot
Locations of visitors to this page
Rambler's Top100

Вы хотите чувствовать себя в безопасности? чоп Белган обеспечит её!