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

<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