AccessTr.neT

Öncelikle iyi günler arkadaşlar. Sorum web sitesinden sorgulama yaptığımda çıkan Html kodunun diğer bazı sorgulamalarda çıkmamasından kaynaklı. Örneğin;
bu kod bazı sorgulamalarda çıkmıyor. Bunu if le yapmaya çalıştım ancak sağlıklı sonuç alamadım. Ekteki çalışmamı inceleyip yardımcı olabilirseniz çok memnun olurum. Teşekkürler

Merhaba,

WebBrowser0.Document.getElementsByClassName("ui-paginator-next ui-state-default ui-corner-all").Item(Index:=0).Click

Bu kod yerine aşağıdaki kodu ekleyiniz.

Dim GObje As Object



For Each GObje In WebBrowser0.Document.all.tags("div")



    If GObje.id = "form1:j_id1905403385_4de847a4:dtIslemMalzeme_paginator_bottom" Then

        WebBrowser0.Document.getElementsByClassName("ui-paginator-next ui-state-default ui-corner-all").Item(Index:=0).Click

    End If



Next GObje

Teşekkürler Ozan Hocam, ellerinize sağlık.