AccessTr.neT

Selamlar,saygıdeğer hocalarım.

şifreli bir web sayfasına burdan aldığım bir örnekten yararlanarak giriş yapabiliyorum. Fakat bir yerde takıldım. Aşağıda web sayfasının kodunu yazdım. burda arrow-red.gif'e tıklamam gerekiyor fakat WebBrowser1.Document.All("Grid_ctl02_Imagebutton1").Click kodunu yazdığımda hata veriyor. bunu nasıl yapabilirim başka bir yolu varmı. name kısmındakini de yazdığımda hata veriyor. .Submit ile de yaptım olmadı

işte o alanın kaynak kodları
[html]<table class="DataGrid" cellspacing="0" cellpadding="4" rules="all" border="1" id="Grid" *****background-color:White;border-color:#CC9966;border-width:1px;border-style:None;width:732px;border-collapse:collapse;">
<tr class="DataGridHeader" *****color:#FFFFCC;background-color:#990000;font-weight:bold;">
<td>&nbsp;</td><td>T.C. Kimlik No</td><td>Adres No</td><td>Adres Tipi</td>
</tr><tr class="DataGridItem" *****color:#330099;background-color:White;">
<td>
<input type="image" name="Grid$ctl02$Imagebutton1" id="Grid_ctl02_Imagebutton1" src="Images/arrow-red.gif" alt="Seç" *****border-width:0px;" />
</td><td>
<span>T.C.Kimlik Numarası var burada....</span>
</td><td>
<span>Adresin bağlı olduğu kod numarası burada...</span>
</td><td>
<span>IlIlceMerkeziAdresi</span>
</td>[/html]

konu ile ilgili bilgisi olan yokmu?

Yanlış soru ne yazık ki. Konu ile ilgili bilgisi olan çok ancak Site Kuralları ile ilgili bilgisi olmayanda çok.

WebBrowser1.Document.getElementById("Grid_ctl02_Imagebutton1").Click

kodunu deneyiniz

hocam ellerinize sağlık sorunum çözüldü.

fakat şimdide başka bir sorun çıktı. Mesela Adresin bağlı olduğu kod numarası 0 olduğu zaman adresleri göstermiyor. Kod numarası 0 olduğu zaman uyarı mesajı vermesini istiyorum. bunun için nasıl bir kod yazabilirim. Adresin bağlı olduğu kod numarasına karşılık gelen id veya name'i bulamadım bulsam belki if komutu ile yapabilirim. ama sizlerde mutlaka başka bir çözüm yolu vardır
Yazmış olduğum kodlar aşağıdaki şekilde..

Private Sub Komut87_Click()
WebBrowser1.Document.getElementById("Grid_ctl02_Imagebutton1").Click
End Sub

Private Sub Komut96_Click()
Me.MAH.Value = WebBrowser1.Document.All("ctlAddressInformation_ctlMahalle").innerText
Me.SOKAK.Value = WebBrowser1.Document.All("ctlAddressInformation_ctlCsbm").innerText
Me.DIS.Value = WebBrowser1.Document.All("ctlAddressInformation_ctlDisKapiNo").innerText
Me.IC.Value = WebBrowser1.Document.All("ctlAddressInformation_ctlIcKapiNo").innerText
End Sub