AccessTr.neT

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>

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.

TEŞEKKÜRLER