Açılan sayfada click
Tarih
27/05/2012 20:17
Konu Sahibi
drummers
Yorumlar
2
Okunma
1457
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



drummers
Omur Can
Kullanici Avatari
Destek
O.... C....
398
11/05/2009
125
İzmir
Ofis 2003
29/11/2016,13:56
Çözüldü 

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
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.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
[color=#006400]<div id="info2" align="center">
	<h1 align="center">E-Beyanname Yetki Bilgileri
	</h1>
	
	<table style="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" style="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 *****" 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 *****" 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 *****" onmouseover="style.fontWeight='bold'" onmouseout="style.fontWeight=''" onclick="loadAJAXUsingPOST('dispatch', 'contentivd', 'cmd=IVD_EBYNYETKISOZLESMELISTELE&amp;sayfa=1')">
 [b]Geçerli E-Beyanname Sözleşmeleri Listesi[/b]
 </li>
 <br>
 
 <li *****" 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 *****" 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>[/color]

drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla


drummers
Omur Can
Kullanici Avatari
Destek
O.... C....
398
11/05/2009
125
İzmir
Ofis 2003
29/11/2016,13:56
Çözüldü 

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
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

Visual Basic Code
1
2
3
4
5
6
7
8
9
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


accessman

Kullanici Avatari
Onursal
2.367
31/10/2008
425
Denizli
Ofis 2003
20/09/2016,00:20
Çözüldü 
TEŞEKKÜRLER
@benbendedeilem
Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü Açılan site içinde arama yapmak drummers 4 1.684 31/05/2012, 16:02 drummers
Çözüldü İnternet vergi dairesi giriş ve button click drummers 2 3.220 08/04/2012, 00:32 drummers
Çözüldü Sayfada ReportViewer Kontrolü emremzrk 5 2.739 19/03/2012, 22:07 emremzrk
Çözüldü Buton Click TheWayEnd 7 2.112 23/06/2011, 14:48 TheWayEnd


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya