TWebBrowser ile çalıştırılan JavaScript Dönüşünü Almak

[vkamadan]

Merhaba değerli üyeler ,
TWebBrowser üzerinde JS fonksiyonlarını çalıştırabiliyoruz , peki çalıştırdığımız fonksiyonun geriye döndüreceği değere ulaşmanın bir yolu var mı?
Bazı karmaşık browser operasyonlarını JS ile yaptırıp sonucu hakkında bilgi almak istiyorum.

[SimaWB]

TWebBrowser'da gösterdiğiniz web sayfasının kaynak kodlarında değişiklik yapma şansınız varsa Javascript fonksiyonun döndürdüğü değeri gizli (hidden) bir elemana atıp sonra oradan okuyabilirsiniz.

[vkamadan]

Merhaba @SimaWB ,
kaynak kodda değişiklik şansım yok , fakat mevcut sayfaya element injeksiyonu yapılabiliyormuş onu araştırıyorum sanırım o yolla halledebileceğim.

[vkamadan]

Tekrar merhaba ,
aşağıdaki gibi HTML enjekte edip amacıma ulaştım.

Kod: Tümünü seç

procedure HTMLEkle;
var
   Range: IHTMLTxtRange;
intHTML : String ;
begin
   intHTML:='<input type="hidden" id="id123"/>';
Range := ((WebBrowser1.Document AS IHTMLDocument2).body AS IHTMLBodyElement).createTextRange;
   Range.Collapse(False) ;
   Range.PasteHTML(intHTML) ;
end;

İyi çalışmalar.