Web sitesi açılırken güvenlik ekranını geçme

[tamer42]

Merhaba

Aşağıdaki link ilk açıldığında ekrana gelen Gizlilik uyarısında "AGREE" butonuna tıklatmayı yapamadım.

https://www.soccerstats.com/results.asp?league=albania&pmtype=bydate

  Set htmlDOC = IE.document
  
myCls = "qc-cmp2-summary-buttons"
 
 Application.Wait (Now + TimeValue("00:00:01"))
With htmlDOC
    Set elements = .getElementsByClassName(myCls)
    For Each e In elements
        If e.innerText Like "AGREE" Then

            e.Click
            Exit For
        End If
    Next e
End With

yardımcı olursanız sevinirim,
ilginize şimdiden teşekkürler.
iyi Çalışamalar.

 

[Mahmut Kök]

Bu şekilde deneyebilirsiniz:

Set doc = ie.document
For Each nesne In doc.all
   
                If nesne.innerText Like "AGREE" Then
                    nesne.Click
                   
                    MsgBox "Onay verildi"
                 
                    Exit For
                End If
   
    Next

 

[tamer42]

Bu şekilde deneyebilirsiniz:

Set doc = ie.document
For Each nesne In doc.all
  
                If nesne.innerText Like "AGREE" Then
                    nesne.Click
                  
                    MsgBox "Onay verildi"
                
                    Exit For
                End If
  
    Next

Hocam bu şekilde denedim, yalnız olmadı

 

[Mahmut Kök]

Onay penceresi normal sayfadan sonra açılıyor. Sayfayı açtıktan sonra kodları çalıştırdığımda doğru şekilde çalıştı. Kodların öncesine bir bekleme süresi koyabilirsiniz. Ben sayfayı kodla açtırmadım. Kendim açtıktan ve onay penceresi açıldıktan sonra denedim. Bunu göz önünde bulundurarak deneme yapabilirsiniz.

 

[tamer42]

Onay penceresi normal sayfadan sonra açılıyor. Sayfayı açtıktan sonra kodları çalıştırdığımda doğru şekilde çalıştı. Kodların öncesine bir bekleme süresi koyabilirsiniz. Ben sayfayı kodla açtırmadım. Kendim açtıktan ve onay penceresi açıldıktan sonra denedim. Bunu göz önünde bulundurarak deneme yapabilirsiniz.

Mahmut Hocam
Onay verildi mesajı verildi diyor,
yalnız güvelik ekranı hala ekranda duruyor.

 

[tamer42]

Onay penceresi normal sayfadan sonra açılıyor. Sayfayı açtıktan sonra kodları çalıştırdığımda doğru şekilde çalıştı. Kodların öncesine bir bekleme süresi koyabilirsiniz. Ben sayfayı kodla açtırmadım. Kendim açtıktan ve onay penceresi açıldıktan sonra denedim. Bunu göz önünde bulundurarak deneme yapabilirsiniz.

Hocam teşekkürler, şimdi oldu

şimdi de tabloyu almak istediğimde sorun yaşıyorum. çok fazla veri getiriyor.
Sadece ekli görseldeki tablonun alınması için nasıl bir düzenleme yapılmalıdır?

Teşekkürler.

Set htmlTablolar = doc.getElementsByTagName("table")

For Each htmlTablo In htmlTablolar

r = r + 2

     For Each htmlSatir In htmlTablo.getElementsByTagName("tr")
    
c = 1

            For Each htmlElaman In htmlSatir.Children

                   sh1.Cells(r, c) = htmlElaman.innerText

                c = c + 1

            Next htmlElaman

        r = r + 1
    Next htmlSatir


Next htmlTablo