Skip to main content

AccessTr.neT


Açılan sayfada click

Açılan sayfada click

Çözüldü #1

Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
Do While WebBrowser1.IsBusy
Application.DoEvents()
Loop
With WebBrowser1.Document.All
WebBrowser1.Visible = True
On Error Resume Next
WebBrowser1.Navigate("javascript:anaSayfaCachedLoginli()")
WebBrowser1.Navigate("javascript:loadAJAXUsingPOST('dispatch', 'contentivd', 'cmd=IVD_EBYNYETKIBILGILERI')")
WebBrowser1.Navigate("javascript:loadAJAXUsingPOST('dispatch', 'contentivd', 'cmd=IVD_EBYNYETKIBILGILERI')")


End With
Do While WebBrowser1.IsBusy
Application.DoEvents()
Loop
End Sub

Bu kod ile istediğim sayfayı açıyorum. Daha sonra açılan sayfadaki "Geçerli E-Beyanname Sözleşmeleri Listesi" linkine tıklatamadım

Açılan Sayfanın kaynak kodları şudur.

<div id="info2" align="center">
<h1 align="center">E-Beyanname Yetki Bilgileri
</h1>

<table *****border: 0pt none; border-spacing: 0px; padding: 0px; margin-top: 10px;" align="center" cellpadding="0" cellspacing="0"><tbody><tr><td class="tlc"></td><td class="te"></td><td class="trc"></td></tr><tr><td class="le">&nbsp;</td><td class="cntnt">
<ul class="menu_html" *****width:530px;">

<li onmouseover="style.fontWeight='bold'" onmouseout="style.fontWeight=''" onclick="loadAJAXUsingPOST('dispatch', 'contentivd', 'cmd=IVD_EBYNYETKIARASORSOZLESMEGIRIS')">
Yeni E-Beyanname Aracılık ve Sorumluluk Sözleşmesi Girişi
</li>
<li onmouseover="style.fontWeight='bold'" onmouseout="style.fontWeight=''" onclick="loadAJAXUsingPOST('dispatch', 'contentivd', 'cmd=IVD_EBYNYETKIARASOZLESMEGIRIS')">
Yeni E-Beyanname Aracılık Sözleşmesi Girişi
</li>
<br>
<li style="" onmouseover="style.fontWeight='bold'" onmouseout="style.fontWeight=''" onclick="loadAJAXUsingPOST('dispatch', 'contentivd', 'cmd=IVD_EBYNYETKISOZLESMELISTELE&amp;sayfa=1')">
İptal / Fesih Edilen E-Beyanname Sözleşmesi Bilgi Girişi
</li>
<br>
<li style="" onmouseover="style.fontWeight='bold'" onmouseout="style.fontWeight=''" onclick="loadAJAXUsingPOST('dispatch', 'contentivd', 'cmd=IVD_EBYNYETKISOZLESMELISTELE&amp;sayfa=1')">
Süresi Sona Eren E-Beyanname Sözleşmesi Bilgi Girişi
</li>
<br>
<li style="" onmouseover="style.fontWeight='bold'" onmouseout="style.fontWeight=''" onclick="loadAJAXUsingPOST('dispatch', 'contentivd', 'cmd=IVD_EBYNYETKISOZLESMELISTELE&amp;sayfa=1')">
Geçerli E-Beyanname Sözleşmeleri Listesi
</li>
<br>

<li style="" onmouseover="style.fontWeight='bold'" onmouseout="style.fontWeight=''" onclick="loadAJAXUsingPOST('dispatch', 'contentivd', 'cmd=IVD_EBYNYETKISOZLESMELISTELE&amp;sayfa=1&amp;muhIptalListe=1')">
İptal / Fesih Edilmiş E-Beyanname Sözleşmeleri Listesi(Sizin Tarafınızdan Bildirilen)
</li>
<li style="" onmouseover="style.fontWeight='bold'" onmouseout="style.fontWeight=''" onclick="loadAJAXUsingPOST('dispatch', 'contentivd', 'cmd=IVD_EBYNYETKISOZLESMELISTELE&amp;sayfa=1&amp;mukIptalListe=1')">
İptal / Fesih Edilmiş E-Beyanname Sözleşmeleri Listesi(Mükellef Tarafından Bildirilen)
</li>
<br>
<li onmouseover="style.fontWeight='bold'" onmouseout="style.fontWeight=''" onclick="loadAJAXUsingPOST('dispatch', 'contentivd', 'cmd=IVD_EBYNYETKISOZLESMELISTELE&amp;sayfa=1&amp;muhSureSonListe=1')">
Süresi Sona Ermiş E-Beyanname Sözleşmeleri Listesi(Sizin Tarafınızdan Bildirilen)
</li>
<li onmouseover="style.fontWeight='bold'" onmouseout="style.fontWeight=''" onclick="loadAJAXUsingPOST('dispatch', 'contentivd', 'cmd=IVD_EBYNYETKISOZLESMELISTELE&amp;sayfa=1&amp;mukSureSonListe=1')">
Süresi Sona Ermiş E-Beyanname Sözleşmeleri Listesi(Mükellef Tarafından Bildirilen)
</li>

</ul>
</td><td class="re">&nbsp;</td></tr><tr><td class="blc"></td><td class="be"></td><td class="brc"></td></tr></tbody></table>
drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #2

Do While WebBrowser1.IsBusy
Application.DoEvents()
Loop
With WebBrowser1.Document.All
WebBrowser1.Visible = True
On Error Resume Next
WebBrowser1.Navigate("javascript:loadAJAXUsingPOST('dispatch', 'contentivd', 'cmd=IVD_EBYNYETKIBILGILERI')")

Timer1.Start()
End With

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Try
WebBrowser1.Document.GetElementsByTagName("li").Item(2).InvokeMember("click")
If WebBrowser1.ReadyState = WebBrowserReadyState.Complete Then
Timer1.Stop()
End If
Catch ex As Exception
End Try
End Sub

Timer kullanarak çözdüm olayı. İhtiyacı olanlar için cevabı yazmak istedim.
drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #3
TEŞEKKÜRLER
@benbendedeilem
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task