AccessTr.neT
WebBrowser'da Javascript Button Click 2 - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Visual Basic 6 (https://accesstr.net/forum-visual-basic-6.html)
+--- Forum: Visual Basic 6 Cevaplanmış Soruları (https://accesstr.net/forum-visual-basic-6-cevaplanmis-sorulari.html)
+--- Konu Başlığı: WebBrowser'da Javascript Button Click 2 (/konu-webbrowser-da-javascript-button-click-2.html)



WebBrowser'da Javascript Button Click 2 - drummers - 23/12/2011

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.


Cvp: WebBrowser'da Javascript Button Click 2 - drummers - 24/12/2011

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.