• Merhaba Ziyaretçi,
    Microsoft 365 Uygulamaları ile ilgili yeni haberler, dikkat çekici konular, ilgi ile takip edeceğiniz yazılar için.

    Abone Olun
  • ESTE - Microsoft Office Eğitimleri

    Yeni yıl Microsoft Office Eğitim planlarınız için bütçenizi oluşturmadan önce ESTE eğitim kalitesi ile tanışın. 🙌
    Kullanıcıların ihtiyacı olan yazılı materyal, dosya ve video kaynağı desteğimiz ile tüm ofis çalışanlarının iş süreçlerini rahatlatacak eğitimler planlayın. 🎯
    Microsoft Office eğitimlerimiz hakkında detaylı bilgi için bize ulaşın.

    👉 Microsoft Office Eğitim Talebi

Yardım WebBrowser1 Click Sorunu

karizmax

Yeni Üye
Katılım
20 Haz 2018
Mesajlar
41
En iyi yanıt
0
Puanları
8
Yaş
42
Konum
türkiye
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
38
En iyi yanıt
0
Puanları
8
Konum
İstanbul
Web sitesi
www.asriakdeniz.com
Ad Soyad
Asri Akdeniz
Office Vers.
Office 2016 EN
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
 

karizmax

Yeni Üye
Katılım
20 Haz 2018
Mesajlar
41
En iyi yanıt
0
Puanları
8
Yaş
42
Konum
türkiye
Malesef tıklamadı,
çalışmam excel içinde; ie olan yeri WebBrowser1 yaptım yine de çalışmadı :(
 

karizmax

Yeni Üye
Katılım
20 Haz 2018
Mesajlar
41
En iyi yanıt
0
Puanları
8
Yaş
42
Konum
türkiye
sayın asri, şifreli giriş olduğundan size özelden atsam bakabilir misiniz?
 

karizmax

Yeni Üye
Katılım
20 Haz 2018
Mesajlar
41
En iyi yanıt
0
Puanları
8
Yaş
42
Konum
türkiye
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
38
En iyi yanıt
0
Puanları
8
Konum
İstanbul
Web sitesi
www.asriakdeniz.com
Ad Soyad
Asri Akdeniz
Office Vers.
Office 2016 EN
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
 

karizmax

Yeni Üye
Katılım
20 Haz 2018
Mesajlar
41
En iyi yanıt
0
Puanları
8
Yaş
42
Konum
türkiye
ö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
 

karizmax

Yeni Üye
Katılım
20 Haz 2018
Mesajlar
41
En iyi yanıt
0
Puanları
8
Yaş
42
Konum
türkiye
@Asri Üsdat yardımlarınız için çok teşekkür ederim.
sorun asri beyin yardımları ile çözülmüştür.
 

karizmax

Yeni Üye
Katılım
20 Haz 2018
Mesajlar
41
En iyi yanıt
0
Puanları
8
Yaş
42
Konum
türkiye
çö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