Получить содержимое чужого окна, возможно?

[jihot]

Здравствуйте.

Скажите, возможно получить содержимое чужого окна?
поясню, в окне есть listbox(вроде как), и мне надо получить всё, что в нём находится..(скрин окна прикреплю)

Юзал поиск, но не нашёл , что нужно..

Помогите.



p.s. в окне есть кнопка получить список учетных записей. после чего качает с сервера сам список. может будит проще как-то узнать его адрес...

[Человек_Борща]

хм взять сниффер и посмотреть откуда берётся сервер.
Если HTTP соединение о HTTPAnalyzer лучше нет. УКзнаешь и сервер и запос который составляет ПО для сервера.

Поищи в блоге GunSmoker'а... там была статья какполучать данные с экрана. Да и вообще блог - кладец ценнной информации.

Ещё у него есть блог переводов статей, тоже очень полезно читать.

[Stilet]

в окне есть listbox

Это скорее ListView...
Хотя уверен что SpyXX поведает о совсем другом классе.

[denisbrain]

Сообщение от jihot

Здравствуйте.

Скажите, возможно получить содержимое чужого окна?
поясню, в окне есть listbox(вроде как), и мне надо получить всё, что в нём находится..(скрин окна прикреплю)

Юзал поиск, но не нашёл , что нужно..

Помогите.



p.s. в окне есть кнопка получить список учетных записей. после чего качает с сервера сам список. может будит проще как-то узнать его адрес...

могу помочь - ввоскрес. превая половина дня, нужен будет тим вивер и дельфи

[Aliens_wolfs]

Судя по твоим скринам это ListView.

Пример считывания с чужого листа ListView в свой TStringGrid.
1. К проекту добавить юнит:
uses
CommCtrl;

2. Вставь в форму TStringGrid

3. Перенести этот код к себе в проект

procedure GetListViewGrid(ALVHandle: HWND; AColumnCount, AItemCount: Integer; ADataGrid: TStringGrid);
const
cchTextMax=255;
var
  hProcess: THandle;
  dwProcessID: DWORD;
  dwWriten: DWORD;
  LVItemCount: Integer;
  i, j, nTextLength: Integer;
  pLVItem: ^LV_ITEM;
  LVItem: LV_ITEM;
  pszText: PChar;
  svText: ShortString;
begin
  if ALVHandle = 0 then Exit;
  // Получаем количество строк
  LVItemCount := ListView_GetItemCount(ALVHandle);
 if AItemCount > LVItemCount then exit;
 if AItemCount > 0 then LVItemCount:=AItemCount;
 //Получаем ID процесса, которому принадлежит найденное окно
 dwProcessID := 0;
  GetWindowThreadProcessId(ALVHandle, @dwProcessID);
 if dwProcessID = 0 then
  ExitProcess(GetLastError);
  // Открываем процесс
  hProcess := 0;
  hProcess := OpenProcess(PROCESS_ALL_ACCESS, True, dwProcessID);
  if hProcess = 0 then
  ExitProcess(GetLastError);
  // Выделяем в нем память под текстовый буффер
  pszText := VirtualAllocEx(hProcess, nil, cchTextMax,
                            MEM_COMMIT or MEM_TOP_DOWN, PAGE_READWRITE);
   // Выделяем в нем память под структуру LVITEM
  pLVItem := VirtualAllocEx(hProcess, nil, SizeOf(LV_ITEM),
                                     MEM_COMMIT or MEM_TOP_DOWN, PAGE_READWRITE);

  //Устанавливаем колич строк и столбцов в TStringGrid
  ADataGrid.RowCount := LVItemCount ;
  ADataGrid.ColCount := AColumnCount ;

  // Заполняем структуру
  ZeroMemory(@LVItem, SizeOf(LV_ITEM));
  LVItem.mask := LVIF_TEXT;
  LVItem.pszText := pszText;
  LVItem.cchTextMax := cchTextMax;

  //Считываем строки
  for i := 0 to LVItemCount - 1 do
  begin
    LVItem.iSubItem := 0;
    // Пишем ее в память удаленного процесса
    if not WriteProcessMemory(hProcess, pLVItem, @LVItem,
                 SizeOf(LV_ITEM), dwWriten) then Exit;
    nTextLength := SendMessage(ALVHandle, LVM_GETITEMTEXT,
                               i, Integer(pLVItem));
    // Читаем результат
    ZeroMemory(@svText, cchTextMax);
    ReadProcessMemory(hProcess, LVItem.pszText, @svText[1],
     nTextLength, dwWriten);
     //заполняем строки TStringGrid
    ADataGrid.Cells[1, i + 1] := StrPas(PChar(@svText[1]));
   //Считываем столбцы
   for j := 0 to AColumnCount - 1 do
    begin
      LVItem.iSubItem := j;
      // Пишем ее в память удаленного процесса
      if not WriteProcessMemory(hProcess, pLVItem, @LVItem,
                                SizeOf(LV_ITEM), dwWriten) then Exit;
      nTextLength := SendMessage(ALVHandle, LVM_GETITEMTEXT,
                                 i, Integer(pLVItem));
      // Читаем результат
      ZeroMemory(@svText, cchTextMax);
      ReadProcessMemory(hProcess, LVItem.pszText,
                        @svText[1], nTextLength, dwWriten);
      //заполняем столбцы TStringGrid
      ADataGrid.Cells[j + 1, i + 1] := StrPas(PChar(@svText[1]));
    end;
  end;

  // Освобождаем ранее выделенную память
  VirtualFreeEx(hProcess, pszText, 0, MEM_RELEASE);
  VirtualFreeEx(hProcess, pLVItem, 0, MEM_RELEASE);
  // Закрываем описатель процесса
  CloseHandle(hProcess);
end;

4. Использовать так:
ALVHandle: это дескриптор листа которого нужно захватить, надеюсь ты умеешь дескрипторы контролов ловить.
AColumnCount: количество столбцов
AItemCount: количество строк если поставить значение 0 то прочитает все строки.
ADataGrid: это твой грид на твоей форме в котором будут отображаться строки с чужого ListView.

procedure TForm1.Button1Click(Sender: TObject);
begin
GetListViewGridData(ALVHandle, 10, 0, StringGrid1);
end;

[jihot]

Сообщение от Stilet

Это скорее ListView...
Хотя уверен что SpyXX поведает о совсем другом классе.

Вы были правы..
TVirtualStringTree

[Aliens_wolfs]

Попробуйте код который я предложил, может получится извлечь данные.

[jihot]

не работает(

[Aliens_wolfs]

С LisView у меня четко работает, значит в интернете поищите. Как программа называется с которой хотите данные извлечь?

[jihot]

если я правильно понял, как сказал Stilet, надо отправлять сообщение окну со списком. и получать список в своей программе..буду пробовать