работа с "чужими" окнами

[zetrix]

Перенесено из старого форума!

Gambler
Доброго времени суток! Недавно я встретил прогу, регистроция которой представляет из себя простой пароль (4 блока по 4 символа) и решил сломать его "в лоб". Но перебирать миллионы вариантов в ручную не хочется. Отсюда вопрос: Как втыкать 4 символа в блок, переходить в другой блок (так переходит по Tab), и по заполнению блоков символами нажимать на Enter.

[zetrix]

Перенесено из старого форума!

plague
procedure ClickKey(key:word);
begin
keybd_event(key,0,0,0);
keybd_event(key,0,KEYEVENTF_KEYUP,0 );
end;
// Эмуляция нажатия кнопки
key=9 - это Tab
key=ord('a') - это символ 'a'
и т.д.

plague
Var H:HWND;
h:=findwindow(nil,'Password Entry');
// ищет окно с Caption = 'Password Entry'
setforegroundwindow(h);
// делает окно активным
ну дальше
ClickKey(...) какие тебе нужно.

rpy3uH
там у тебя 36 в 16-ой степени вариантов ты примерно 100 лет будешь их перебирать.

Gambler
Ну и кто говорил о каких-то 100 годах? Мой комп с поцем 2.8 Ghz справился с паролем за 25 мин. Я конечно не говорю что у меня был сложнейший пароль, он вообще оказался цифровым, но 16-тизначное число за 25 минут....и это еще на неоптимизированном алгоритме. По – моему неплохо.

plague
function EnumerateWindows(h: HWND; lParam: LPARAM): BOOL; stdcall;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
ListBox1.Items.Clear;
EnumWindows(@EnumerateWindows,0);
end;

function EnumerateWindows(h: HWND; lParam: LPARAM): BOOL;
var
txt:array[0..255] of char;
begin
GetWindowText(h, txt, 255);
Form1.ListBox1.Items.Add(Format('%d <-> %s',[h, txt]));
Result:=TRUE;
end;

там выведится весь список окон вержнего уровня
и фунцией setforegroundwindow(h);
можно по значению обратится к любому