WebBroser sayfaya Tıklama

[mahsuni]

https://ekap.kik.gov.tr/EKAP/Default.aspx
sitesine bilgi girişi yapmak istiyorum.
Kayıt ekledikçe 20 kayıt bir otomatik olarak sayfalar oluşmaktadır.
Ben bu sayfalardan birine (örenğin 4. sayfaya) kod ile tıklamak istiyorum.

Kod: Tümünü seç

<td><span>1</span></td><td><a href="javascript:__doPostBack('ctl00$ContentPlaceHolder1$wIhtiyacRapor$UrunGrid','Page$2')" style="color:#333333;">2</a></td><td><a href="javascript:__doPostBack('ctl00$ContentPlaceHolder1$wIhtiyacRapor$UrunGrid','Page$3')" style="color:#333333;">3</a></td><td><a href="javascript:__doPostBack('ctl00$ContentPlaceHolder1$wIhtiyacRapor$UrunGrid','Page$4')" style="color:#333333;">4</a></td><td><a href="javascript:__doPostBack('ctl00$ContentPlaceHolder1$wIhtiyacRapor$UrunGrid','Page$5')" style="color:#333333;">5</a></td><td><a href="javascript:__doPostBack('ctl00$ContentPlaceHolder1$wIhtiyacRapor$UrunGrid','Page$6')" style="color:#333333;">6</a></td><td><a href="javascript:__doPostBack('ctl00$ContentPlaceHolder1$wIhtiyacRapor$UrunGrid','Page$7')" style="color:#333333;">7</a></td><td><a href="javascript:__doPostBack('ctl00$ContentPlaceHolder1$wIhtiyacRapor$UrunGrid','Page$8')" style="color:#333333;">8</a></td>

WebBrowser1.OleObject.Document.GetElementByID('Page$4').click;
şekinde yaptım olmadı. 'Page$4' yerine ne yazmalıyım.

[SimaWB]

4. sayfanın linkine tıklanınca çalıştırılan Javascript fonksiyonunu biliyorsun :

Kod: Tümünü seç

__doPostBack('ctl00$ContentPlaceHolder1$wIhtiyacRapor$UrunGrid','Page$4')

sen direk bu fonksiyonu çalıştırsan ?

Kod: Tümünü seç

((WebBrowser1.Document as IHTMLDocument2).parentWindow as IHTMLWindow2).execScript(__doPostBack('ctl00$ContentPlaceHolder1$wIhtiyacRapor$UrunGrid','Page$4'), 'JavaScript');

[mahsuni]

Çok teşekkür ederim. Sayenizde problem çözülmüştür.

[mahsuni]

Arkadaşlar;
Sayfalar arası geçişte WebBrowser yükledikten sonra işlem yapmam gerekiyor.

Kod: Tümünü seç

onDocumentComplete 
onDownloadComplete
while webBrowser1.ReadyState <> READYSTATE_COMPLETE do Application.ProcessMessages;
while webBrowser1.Busy do Application.ProcessMessages;

olayları ve komutları işe yaramadı.
Sayfanın bilgi yazmaya hazır hale gelip gelmediğini nasıl tespit edebilirim.

linki aşağıda, yalnızca kayıtlı idareler girebilmektedir http://www.Kik.gov.tr
https://ekap.kik.gov.tr/EKAP/Idare/Ihti ... beadbfe2ab