AccessTr.neT

Buradaki açmış olduğum konuya şöyle bir çözüm buldum.

Açılan sayfadaki "pdf" doyalarını kodu ile tıklatabiliyorum

Dim elms As HtmlDocument = Me.WebBrowser1.Document

 For Each elm As HtmlElement In elms.GetElementsByTagName("input")

 If elm.GetAttribute("value") Like "*(PDF)*" Then

 elm.InvokeMember("click")

 End If

 Next

Fakat bu dosyaları yeni sayfada açıyor. Ben yeni sayfada açılmasını istemiyorum. Arka planda çalışsın hatta direkt indirsin.

Teşekkürler.

Try

            Dim sayi As Integer = InputBox("Lütfen İndirmek İstediğiniz TAHAKKUK Numarasını Girini")



            WebBrowser1.Document.GetElementById("form" & sayi).SetAttribute("action", "https://ebildirge.ssk.gov.tr/WPEB/TahakkukFisi.pdf?rapor=TahakkukFisi&n=0")

            Me.WebBrowser1.Document.GetElementById("form" & sayi).InvokeMember("submit")

        Catch ex As Exception

            MsgBox("Bu numaralı evrak bulunamadı")



        End Try

Böyle bir çözüm ürettim. Konu tamamdır.