Последние записи

made in programmersforum 6

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

11th
Окт

Отослать сообщение с помощью SendMessage

Posted by maloy under Delphi, Архив

SERG1980

Суть такова: В окно авторизации чужой программы отсылаю в окно логина и пароля свои данные через SendMessage.Сначала получаю хэндлы этих окон и название класса (эдитов). Всё нормально отправляется но вот пишет прога что пароль введён не верно, хотя пробовал считать обратно текст окна и ведь пароль то правильный

Список свех компонентов на чужой форме и название их классов получаю следующим образом:

Код:

Procedure GetSubChild(MainH:HWND; HList:TStringList);
Var ChildH:HWND;
    ClNameCH:array[0..255] of Char;
      NameCH:array[0..255] of Char;
begin
 if MainH=0 then Exit;
 ChildH:=FindWindowEx(MainH,0,nil,nil);
 while (ChildH <> 0) do		     // Есть еще что искать ?
    begin
     GetClassName(ChildH,ClNameCH,255);
     GetWindowText(ChildH,NameCH,255);
    //Заносим в стринг лист Хэндл Имя класса Надпись(если таковая имеется)
     HList.Add(IntToStr(ChildH)+':'+ClNameCH+'|'+NameCH);
     Application.ProcessMessages;
     GetSubChild(ChildH,HList);
     ChildH:=FindWindowEx(MainH,ChildH,nil,nil);
    end;
end;

Далее отправляем логин и пароль + выбираем вход под главным админом (выбирается из комбобокса). После этого имитируем нажатие на кнопку ОК

Код:

procedure TForm1.Button1Click(Sender: TObject);
var H:HWND;
    SL:TStringList;
    i:integer;
begin
 SL:=TStringList.Create;
 H:=FindWindow(nil,'Введите имя пользователя и пароль (1.10.8)');
// H:=FindWindow(nil,'Form1');
 GetSubChild(H,SL);
 Listbox1.Items.Assign(SL);
 for i:=0 to SL.Count-1 do
 begin
  if Pos('TEdit',SL)<>0 then
   if Pos('localhost',SL)=0 then
   SendMessage(StrToInt(Copy(SL,1,Pos(':',SL)-1)),WM_SETTEXT, 0,LParam(PCHar('ADMIN')));
  if Pos('TComboBox',SL)<>0 then
  SendMessage(StrToInt(Copy(SL,1,Pos(':',SL)-1)),CB_SETCURSEL,Integer(2),0);
  if Pos('TBitBtn',SL)<>0 then
   if Pos('OK',SL)<>0 then
   begin
    SL.Free;
    SendMessage(StrToInt(Copy(SL,1,Pos(':',SL)-1)),BM_CLICK,0,0);
    exit;
   end;
 end;
end;

Причём если стереть пароль и ввести вручную то нормально

Stilet

А ты посимвольно через WM_CHAR вводи.

тема на форуме от 2010 года