VPF::Чтение инфы из чужой проги - Форум программистов

Ergoz

Дата 5.6.2009, 03:00 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 53
Регистрация: 3.6.2009
Где: Россия

Репутация: нет
Всего: нет

надо будет попробовать, как попробую отпишусь, ближе к вечеру...

Snork

Дата 7.6.2009, 09:35 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 1.6.2009

Репутация: нет
Всего: нет

Что-то у меня не вышло с ICQ. Использую вместо Spy++ - Winspector Spy, но он мне окна ICQ не показывает. Что делать?

Ergoz

Дата 7.6.2009, 13:22 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 53
Регистрация: 3.6.2009
Где: Россия

Репутация: нет
Всего: нет

тебе нужно знать структуру построения, а поэтому нужно использовать spy++, в нём иерархия полностью показана, а иначе ты не найдёшь, поверь на слово. Winspector Spy только хендл и класс может определить, и может пропустить некоторые вещи

Keeper89

Дата 7.6.2009, 14:36 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 14
Всего: 58

Ergoz, ну так что - работает?

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

Ergoz

Дата 7.6.2009, 21:46 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 53
Регистрация: 3.6.2009
Где: Россия

Репутация: нет
Всего: нет

сори, не тестил))) просто курсовые и зачёты сдавал... 3 дня подрят по 8 часов сдавал термех))

Snork

Дата 8.6.2009, 07:35 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 1.6.2009

Репутация: нет
Всего: нет

А где скачать сие чудо под названием Spy++?)
P.S. а под WinVista работать будет?

THandle

Дата 8.6.2009, 08:23 (ссылка)

(нет голосов)

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 7
Всего: 372

Snork, ну вот к примеру:

http://www.catch22.net/software/winspy

И вообще вот:

http://www.google.ru/search?hl=ru&q=Wi...mp;aq=f&oq=

Цитата(Snork @ 8.6.2009, 08:35

)

а под WinVista работать будет?

У меня работал.

Ergoz

Дата 8.6.2009, 15:12 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 53
Регистрация: 3.6.2009
Где: Россия

Репутация: нет
Всего: нет

Keeper89, твоя задумка не прокатила.. вообще не реагирует тогда. никак вообще не могу поймать.... начинаю приходить к мнению что это не возможно

Keeper89

Дата 8.6.2009, 20:55 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 14
Всего: 58

Ну вот, нет программы, как вслепую работать...

Попробуй вот этот код и скажи, где выдается сообщение:

Код


procedure TForm1.Button1Click(Sender: TObject);
var
  H, PageHandle, TabHandle, REHandle: THandle;
  lpBuffer: PChar;
begin
  H := FindWindow(nil, PChar('RFRudokop ~~~~~~~~~~~~~'));
  if H <> 0 then
  begin
    PageHandle := FindWindowEx(H, 0, 'SysTabControl32', nil);
    if PageHandle <> 0 then
    begin
     TabHandle := FindWindowEx(PageHandle, 0, '#32770',nil);
     if TabHandle <> 0 then
     begin
        REHandle := FindWindowEx(TabHandle, 0, 'RichEdit20A', nil);
        if REHandle <> 0 then
        begin
          lpBuffer := GetMemory(1024);
          try
            SendMessage(REHandle, WM_GETTEXT, 1024, Integer(lpBuffer));
            RichEdit1.Text := lpBuffer;
          finally
            FreeMemory(lpBuffer);
          end;
        end
        else
          Showmessage('Edit не найден!')
     end
     else
      Showmessage('#32770 не найден!')
    end
    else
      Showmessage('SysTabControl32 не найден!');
  end
  else
    Showmessage('Главное окно не найдено!');
end;

P.S. Плюс перезалей рисунки WinSpy, у тех кончился срок хранения.

Это сообщение отредактировал(а) Keeper89 - 8.6.2009, 21:04

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

Ergoz

Дата 9.6.2009, 02:32 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 53
Регистрация: 3.6.2009
Где: Россия

Репутация: нет
Всего: нет

O_o в этой конструкции он всё норм нашёл О_О я в шоке... значит я где то до этого косяк допустил...

ну чтож. данную тему можно закрывать. Выражаю огромную благодарность Keeper89. как будет 100 постов сразу же поставлю + в рейтинг!

M
Rrader

Поставил

Это сообщение отредактировал(а) Rrader - 9.6.2009, 05:44

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »