Разработка программ для новых хроник

[BiTru]

Уважаемые форумчане прошу помочь в написание авто сп, кликера и тп.
Как вы уже знаете старый способ не работает начиная с gracia вычисление цвета по пикселем (это я про авто сп) . К тому же простая эмуляция клавиш сейчас не проходит. Подскажите новый способ обхода защиты или как она работает. Буду очень признателен за ваши ответы!

Добавлено через 9 минут
Еще небольшой вопрос возможно у меня не работает на вин 7 так как слышал что в предыдущих версиях вин все работает если есть возможность проверить на других версиях винды прошу помощи протестити эти программы [Ссылки могут видеть только зарегистрированные пользователи. ] они все бесплатны пароли в первой новости.

Уважаемая администрация форума прошу не рассматривать это сообщение как рекламу я просто напросто зашел в тупик в написание программ если ваш форум поможет решить проблему все последующие исходники вылажу на вашем форуме!

Добавлено через 13 минут
Предыдущий способ эмуляции клавиш Delphi

[Ссылки могут видеть только зарегистрированные пользователи. ]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, Menus;

type
TForm1 = class(TForm)
HotKey1: THotKey;
ComboBox1: TComboBox;
Edit1: TEdit;
Button2: TButton;
Button3: TButton;
ListBox1: TListBox;
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure ComboBox1Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private

Hotkey_id1,Hotkey_id2,Hotkey_id3,Hotkey_id4,Hotkey _id5,
Hotkey_id6,Hotkey_id7,Hotkey_id 8,H otk ey_id9,Hotkey_id10,
Hotkey_id11,Hotkey_id12 : Integer;

procedure WMHotKey(var Msg: TWMHotKey); message WM_HOTKEY;
procedure ShortCutToHotKey(HotKey: TShortCut; var Key : Word; var Modifiers: Uint);

{ Private declarations }
public

{ Public declarations }
end;

var
Form1: TForm1;
wnd, wndd: HWND;
implementation

{$R *.dfm}

{ TForm1 }

procedure TForm1.Button2Click(Sender: TObject);
begin
if wnd = 0 then
begin
wnd := FindWindow(0, PChar(Edit1.Text));
if wnd <> 0 then
application.MessageBox('Окно успешно подключено','Выполнено');
end

else
application.MessageBox('Сначала нужно отключить окно','Ошибка');
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
if wnd <> 0 then
begin
wnd := 0;
application.MessageBox('Окно отключено','Выполнено');
end
else
application.MessageBox('Сначала нужно подключить окно','Ошибка');
end;

procedure TForm1.ComboBox1Click(Sender: TObject);
var
Key : Word;
Modifiers: UINT;

begin

if ComboBox1.ItemIndex=0 then
ShortCutToHotKey(HotKey1.HotKey, Key, Modifiers);
Hotkey_id1 := GlobalAddAtom('MyHotKey_1');
RegisterHotKey(Handle, Hotkey_id1, Modifiers, Key);

ListBox1.Items.Add(ShortCutToText (HotKey1.HotKey) + ' =' + ComboBox1.Text );

if ComboBox1.ItemIndex=1 then
ShortCutToHotKey(HotKey1.HotKey, Key, Modifiers);
Hotkey_id2 := GlobalAddAtom('MyHotKey_2');
RegisterHotKey(Handle, Hotkey_id2, Modifiers, Key);

if ComboBox1.ItemIndex=2 then
ShortCutToHotKey(HotKey1.HotKey, Key, Modifiers);
Hotkey_id3 := GlobalAddAtom('MyHotKey_3');
RegisterHotKey(Handle, Hotkey_id3, Modifiers, Key);

if ComboBox1.ItemIndex=3 then
ShortCutToHotKey(HotKey1.HotKey, Key, Modifiers);
Hotkey_id4 := GlobalAddAtom('MyHotKey_4');
RegisterHotKey(Handle, Hotkey_id4, Modifiers, Key);

if ComboBox1.ItemIndex=4 then
ShortCutToHotKey(HotKey1.HotKey, Key, Modifiers);
Hotkey_id5 := GlobalAddAtom('MyHotKey_5');
RegisterHotKey(Handle, Hotkey_id5, Modifiers, Key);

if ComboBox1.ItemIndex=5 then
ShortCutToHotKey(HotKey1.HotKey, Key, Modifiers);
Hotkey_id6 := GlobalAddAtom('MyHotKey_6');
RegisterHotKey(Handle, Hotkey_id6, Modifiers, Key);

if ComboBox1.ItemIndex=6 then
ShortCutToHotKey(HotKey1.HotKey, Key, Modifiers);
Hotkey_id7 := GlobalAddAtom('MyHotKey_7');
RegisterHotKey(Handle, Hotkey_id7, Modifiers, Key);

if ComboBox1.ItemIndex=7 then
ShortCutToHotKey(HotKey1.HotKey, Key, Modifiers);
Hotkey_id8 := GlobalAddAtom('MyHotKey_8');
RegisterHotKey(Handle, Hotkey_id8, Modifiers, Key);

if ComboBox1.ItemIndex=8 then
ShortCutToHotKey(HotKey1.HotKey, Key, Modifiers);
Hotkey_id9 := GlobalAddAtom('MyHotKey_9');
RegisterHotKey(Handle, Hotkey_id9, Modifiers, Key);

if ComboBox1.ItemIndex=9 then
ShortCutToHotKey(HotKey1.HotKey, Key, Modifiers);
Hotkey_id10 := GlobalAddAtom('MyHotKey_10');
RegisterHotKey(Handle, Hotkey_id10, Modifiers, Key);

if ComboBox1.ItemIndex=10 then
ShortCutToHotKey(HotKey1.HotKey, Key, Modifiers);
Hotkey_id11 := GlobalAddAtom('MyHotKey_11');
RegisterHotKey(Handle, Hotkey_id11, Modifiers, Key);

if ComboBox1.ItemIndex=11 then
ShortCutToHotKey(HotKey1.HotKey, Key, Modifiers);
Hotkey_id12 := GlobalAddAtom('MyHotKey_12');
RegisterHotKey(Handle, Hotkey_id12, Modifiers, Key);

end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin

UnRegisterHotKey(Handle, Hotkey_id1);
GlobalDeleteAtom(Hotkey_id1);

UnRegisterHotKey(Handle, Hotkey_id2);
GlobalDeleteAtom(Hotkey_id2);

UnRegisterHotKey(Handle, Hotkey_id3);
GlobalDeleteAtom(Hotkey_id3);

UnRegisterHotKey(Handle, Hotkey_id4);
GlobalDeleteAtom(Hotkey_id4);

UnRegisterHotKey(Handle, Hotkey_id5);
GlobalDeleteAtom(Hotkey_id5);

UnRegisterHotKey(Handle, Hotkey_id6);
GlobalDeleteAtom(Hotkey_id6);

UnRegisterHotKey(Handle, Hotkey_id7);
GlobalDeleteAtom(Hotkey_id7);

UnRegisterHotKey(Handle, Hotkey_id8);
GlobalDeleteAtom(Hotkey_id8);

UnRegisterHotKey(Handle, Hotkey_id9);
GlobalDeleteAtom(Hotkey_id9);

UnRegisterHotKey(Handle, Hotkey_id10);
GlobalDeleteAtom(Hotkey_id10);

UnRegisterHotKey(Handle, Hotkey_id11);
GlobalDeleteAtom(Hotkey_id11);

UnRegisterHotKey(Handle, Hotkey_id12);
GlobalDeleteAtom(Hotkey_id12);

end;

procedure TForm1.ShortCutToHotKey(HotKey: TShortCut; var Key: Word;
var Modifiers: Uint);
var
Shift: TShiftState;
begin
ShortCutToKey(HotKey, Key, Shift);
Modifiers := 0;
if (ssShift in Shift) then
Modifiers := Modifiers or MOD_SHIFT;
if (ssAlt in Shift) then
Modifiers := Modifiers or MOD_ALT;
if (ssCtrl in Shift) then
Modifiers := Modifiers or MOD_CONTROL;

end;

procedure TForm1.WMHotKey(var Msg: TWMHotKey);
begin

if Msg.HotKey = Hotkey_id1 then
PostMessage(wnd, WM_KEYDOWN, VK_f1, 0);
if Msg.HotKey = Hotkey_id2 then
PostMessage(wnd, WM_KEYDOWN, VK_f2, 0);
if Msg.HotKey = Hotkey_id3 then
PostMessage(wnd, WM_KEYDOWN, VK_f3, 0);
if Msg.HotKey = Hotkey_id4 then
PostMessage(wnd, WM_KEYDOWN, VK_f4, 0);
if Msg.HotKey = Hotkey_id5 then
PostMessage(wnd, WM_KEYDOWN, VK_f5, 0);
if Msg.HotKey = Hotkey_id6 then
PostMessage(wnd, WM_KEYDOWN, VK_f6, 0);
if Msg.HotKey = Hotkey_id7 then
PostMessage(wnd, WM_KEYDOWN, VK_f7, 0);
if Msg.HotKey = Hotkey_id8 then
PostMessage(wnd, WM_KEYDOWN, VK_f8, 0);
if Msg.HotKey = Hotkey_id9 then
PostMessage(wnd, WM_KEYDOWN, VK_f9, 0);
if Msg.HotKey = Hotkey_id10 then
PostMessage(wnd, WM_KEYDOWN, VK_f10, 0);
if Msg.HotKey = Hotkey_id11 then
PostMessage(wnd, WM_KEYDOWN, VK_f11, 0);
if Msg.HotKey = Hotkey_id12 then
PostMessage(wnd, WM_KEYDOWN, VK_f12, 0);

end;

end.

[TrickOrTreat]

Мои наработки на тему эмуляции клавиш. Использовал для управления несколькими окнами(при наличии определенной сноровки можно неплохо на пвп серваках вырубать с оконным бишем - останется только биша поудобнее поставить чтоб не достали). [Ссылки могут видеть только зарегистрированные пользователи. ]

[BiTru]

спасибо посмотрю!
на каких хрониках работает?
Компонент нужен sndkey32

[TrickOrTreat]

компонент не нужен - просто уберите его из uses, по запарке забыл вырубить)
стабильно работает на ИЛ + на некоторых Freya серверах тестил( тут похуже дела обстоят - реагирует с задержками)

[BiTru]

Цитата: Сообщение от TrickOrTreat ( тут похуже дела обстоят - реагирует с задержками)

Мой способ выше тоже работает с задержкой на Freya с интерлюде все ок работает(
А я бы хотел чтобы без глюков на Freya работал если знаешь способ расскажи)

[TrickOrTreat]

самый верный способ это написать свой драйвер для эмуляции нажатия клавиш) но в данной области Я не советчик.
можно ещё с directx повозиться(события клавиатуры игра обрабатывает через direct input), но в таком случае наверн инжект нужен для чоткости.