internet explorer da status barda yazanları okuma?

[metemete]

1. internet explorer da status barda sayfa yükleniyor gibi olan text bilgisini nasıl okutabılırım?

2. yine internet exporerda sayfanın içeğini nasıl kontrol ettirebilirim

yardımlarınız ıcın şimdiden tşk ler

[deltas]

1. sorunun cevabı için bu işine yarar herhalde;

Kod: Tümünü seç

function stsbarogren (Handle: THandle; List: TStringList): 
boolean; stdcall;
var
   hWndIE, hWndIEChild : HWND;
   Buffer : array[0..255] of Char;
begin
   SendMessage(Handle, WM_GETTEXT, 255, integer(@Buffer[0]));
   hWndIE := FindWindow('IEFrame', Buffer);
if hWndIE > 0 then
begin
    hWndIEChild := FindWindowEx(hWndIE, 0, 'msctls_statusbar32', nil);

begin
   SendMessage(hWndIEChild, WM_GETTEXT, 255, integer(@Buffer)); 
   List.Add(Buffer)
   end; 
     end;

  Result :=True;
            end;



procedure TForm1.Timer1Timer(Sender: TObject);
begin
    listbox1.Clear;
   EnumWindows(@stsbarogren, LParam(listbox1.items));

end;

2. sorunun cevabı ise ; sayfayı memo'ya yüklersin sonra onun içinde istediğin kelimeyi arattırırsın. onun iiçinde forumda "html parse" diye arattırırsan yeterli örnek bulursun.

[metemete]

ama bu status bar değil de üstbaslık bılgısını alıyor?

[deltas]

Hocam kodlar sağlam çalışıyor ve statusbarda yazan bilgiyi alıyor. Kodlar çalışıyor. Ancak çalıştığını anlamak için şu şekilde bi deneyin:

Kod: Tümünü seç

function stsbarogren (Handle: THandle; List: TStringList):
boolean; stdcall;
var
   hWndIE, hWndIEChild : HWND;
   Buffer : array[0..255] of Char;
begin
   SendMessage(Handle, WM_GETTEXT, 255, integer(@Buffer[0]));
   hWndIE := FindWindow('IEFrame', Buffer);
if hWndIE > 0 then
begin
    hWndIEChild := FindWindowEx(hWndIE, 0, 'msctls_statusbar32', nil);

begin
   SendMessage(hWndIEChild, WM_GETTEXT, 255, integer(@Buffer));
   List.Add(Buffer)
   end;
     end;

  Result :=True;
            end;



procedure TForm1.Timer1Timer(Sender: TObject);
begin

   EnumWindows(@stsbarogren, LParam(memo1.Lines));

end;


procedure TForm1.Button1Click(Sender: TObject);
begin
timer1.Enabled:=false;
end;

Sonuçta button1.click edildiğinde timer1 enable konumuna geçer. ve burada memoda kayıtlı mesajlara bakarsanız statusbar'ı aldığını görürsünüz. bende şu şekilde sonuç verdi: (bu sayfa için)

Açılan sayfa viewtopic.php?t=22493...


Açılan sayfa viewtopic.php?t=22493...


(20 items kalan) templates/subSilver/images/icon_mini_faq.gif resmi yükleniyor


(13 items kalan) Açılan sayfa viewtopic.php?t=22493...


(5 items kalan) Açılan sayfa viewtopic.php?t=22493...


Bitti