Yardım WebBrowser1 Click Sorunu

Katılım
20 Haz 2018
Mesajlar
22
En İyi Yanıtlar
0
Beğeniler
1
Puanları
3
Yaş
37
Konum
türkiye
#1
Merhaba,
https://ivd.gib.gov.tr adresinde girişten sonra bölümleri tıklamak istiyorum ancak çok uğraşmama rağmen bir türlü yapamadım.
ilgili resim ve site kodları şu şekilde, Yardımcı olabilir misiniz.



Kod:
<li id="H31c2e5810ed34-20TVD_li" class="cstree-closed"><ins id="H31c2e5810ed34-20TVD_ins">&nbsp;</ins><a id="H31c2e5810ed34-20TVD" href="#" draggable="true" tabindex="0"><span class="sicilBilgileri">BİLGİLERİM</span></a><ul id="H31c2e5810ed34-20TVD_ul"><li id="H31c2e5810ed34-200TVD_li" class="cstree-leaf"><ins id="H31c2e5810ed34-200TVD_ins">&nbsp;</ins><a id="H31c2e5810ed34-200TVD" href="#" draggable="true" tabindex="0">Sicil Bilgilerim</a><ul id="H31c2e5810ed34-200TVD_ul"></ul></li><li id="H31c2e5810ed34-201TVD_li" class="cstree-leaf"><ins id="H31c2e5810ed34-201TVD_ins">&nbsp;</ins><a id="H31c2e5810ed34-201TVD" href="#" draggable="true" tabindex="0"><span class="new">Yönetici ve Ortaklık Bilgileri</span></a><ul id="H31c2e5810ed34-201TVD_ul"></ul></li><li id="H31c2e5810ed34-202TVD_li" class="cstree-closed"><ins id="H31c2e5810ed34-202TVD_ins">&nbsp;</ins><a id="H31c2e5810ed34-202TVD" href="#" draggable="true" tabindex="0">Araç Bilgilerim</a><ul id="H31c2e5810ed34-202TVD_ul"><li id="H31c2e5810ed34-20210TVD_li" class="cstree-leaf"><ins id="H31c2e5810ed34-20210TVD_ins">&nbsp;</ins><a id="H31c2e5810ed34-20210TVD" href="#" draggable="true" tabindex="0">Mevcut Araç Bilgilerim</a><ul id="H31c2e5810ed34-20210TVD_ul"></ul></li><li id="H31c2e5810ed34-20220TVD_li" class="cstree-last cstree-leaf"><ins id="H31c2e5810ed34-20220TVD_ins">&nbsp;</ins><a id="H31c2e5810ed34-20220TVD" href="#" draggable="true" tabindex="0">Geçmiş Araç Bilgilerim</a><ul id="H31c2e5810ed34-20220TVD_ul"></ul></li></ul></li><li id="H31c2e5810ed34-210TVD_li" class="cstree-leaf"><ins id="H31c2e5810ed34-210TVD_ins">&nbsp;</ins><a id="H31c2e5810ed34-210TVD" href="#" draggable="true" tabindex="0">Borç Detay ve Ödeme</a><ul

ScreenShot_20190119181430.png
ScreenShot_20190119181744.png
 

Asri

Geliştirici
Katılım
19 Eyl 2018
Mesajlar
28
En İyi Yanıtlar
3
Beğeniler
6
Puanları
3
Konum
İstanbul
Web sitesi
www.asriakdeniz.com
Ad Soyad
Asri Akdeniz
#2
Aşağıdaki şekilde deneyiniz. Sicil Bilgilerim yazısını tıklaması gerekiyor.

Kod:
      Set objCollection = ie.document.getElementsByTagName("a")
        i = 0
        Do While i < objCollection.Length
          If objCollection(i).ID = "H31c2e5810ed34-200TVD" Then
             objCollection(i).click
             Exit Do
          End If
          i = i + 1
        Loop
 
Katılım
20 Haz 2018
Mesajlar
22
En İyi Yanıtlar
0
Beğeniler
1
Puanları
3
Yaş
37
Konum
türkiye
#3
Malesef tıklamadı,
çalışmam excel içinde; ie olan yeri WebBrowser1 yaptım yine de çalışmadı :(
 
Katılım
20 Haz 2018
Mesajlar
22
En İyi Yanıtlar
0
Beğeniler
1
Puanları
3
Yaş
37
Konum
türkiye
#5
sayın asri, şifreli giriş olduğundan size özelden atsam bakabilir misiniz?
 
Katılım
20 Haz 2018
Mesajlar
22
En İyi Yanıtlar
0
Beğeniler
1
Puanları
3
Yaş
37
Konum
türkiye
#7
giriş için kod bu şekilde

Kod:
Public Sub Gir_Click()
Range("g1").Select
On Error Resume Next
WebBrowser1.Navigate ("https://ivd.gib.gov.tr/")

Dim time1, time2
time1 = Now
time2 = Now + TimeValue("0:00:05")
    Do Until time1 >= time2
        DoEvents
        time1 = Now()
    Loop

WebBrowser1.Document.getElementById("gen__1010").Value = Cells(28, "a")
WebBrowser1.Document.getElementById("gen__1011").Value = Cells(30, "a")
WebBrowser1.Document.getElementById("gen__1018").Click


WebBrowser1.ExecWB OLECMDID_OPTICAL_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER, CLng(80), vbNul

End Sub
 

Asri

Geliştirici
Katılım
19 Eyl 2018
Mesajlar
28
En İyi Yanıtlar
3
Beğeniler
6
Puanları
3
Konum
İstanbul
Web sitesi
www.asriakdeniz.com
Ad Soyad
Asri Akdeniz
#8
Google.com da gmail yazısını tıklama kodu aşağıdaki şekilde.
Siz buna göre uyarlayın.

Kod:
Public Sub Gir_Click()
Range("g1").Select
On Error Resume Next
WebBrowser1.Silent = False
'WebBrowser1.Navigate ("https://ivd.gib.gov.tr")
WebBrowser1.Navigate ("www.google.com")

Dim time1, time2
time1 = Now
time2 = Now + TimeValue("0:00:05")
    Do Until time1 >= time2
        DoEvents
        time1 = Now()
    Loop
    
    
    Set objCollection = WebBrowser1.Document.getElementsByTagName("a")
        i = 0
        Do While i < objCollection.Length
          If objCollection(i).innertext = "Gmail" Then
             objCollection(i).Click
             Exit Do
          End If
          i = i + 1
        Loop
        
        

WebBrowser1.Document.getElementById("gen__1010").Value = Cells(28, "a")
WebBrowser1.Document.getElementById("gen__1011").Value = Cells(30, "a")
WebBrowser1.Document.getElementById("gen__1018").Click


WebBrowser1.ExecWB OLECMDID_OPTICAL_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER, CLng(80), vbNul

End Sub
 
Katılım
20 Haz 2018
Mesajlar
22
En İyi Yanıtlar
0
Beğeniler
1
Puanları
3
Yaş
37
Konum
türkiye
#9
örneğinizi inceledim google de gmail e tıklamadı ama bendeki site click te bir türlü yapmıyor. :)
Yeni bi resim ekliyorum belki fikir verebilir..
ScreenShot_20190120131825.png
 
Katılım
20 Haz 2018
Mesajlar
22
En İyi Yanıtlar
0
Beğeniler
1
Puanları
3
Yaş
37
Konum
türkiye
#10
@Asri Üsdat yardımlarınız için çok teşekkür ederim.
sorun asri beyin yardımları ile çözülmüştür.
 
Katılım
20 Haz 2018
Mesajlar
22
En İyi Yanıtlar
0
Beğeniler
1
Puanları
3
Yaş
37
Konum
türkiye
#11
çözüm.
Kod:
Set objCollection = WebBrowser1.Document.getElementsByTagName("a")
        i = 0
        Do While i < objCollection.Length
          If objCollection(i).innertext = "Gmail" Then
             objCollection(i).Click
             Exit Do
          End If
          i = i + 1
        Loop
ile gmail yazan yere tıklamak istenilen bölüm adı yazılıyor.
bendeki:
Kod:
Set objCollection = WebBrowser1.Document.getElementsByTagName("a")
        i = 0
        Do While i < objCollection.Length
          If objCollection(i).innertext = "Borç Durum Yazısı Talebi" Then
             objCollection(i).Click
             Exit Do
          End If
          i = i + 1
        Loop
 
Üst Alt