Webbrowser de açılan pdf kaydetme hk
Tarih
09/01/2013 00:33
Konu Sahibi
drummers
Yorumlar
0
Okunma
1597
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



drummers
Omur Can
Kullanici Avatari
Destek
O.... C....
400
11/05/2009
125
İzmir
Ofis 2003
18/02/2017,13:59
Sponsor Reklam

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted

If WebBrowser1.Url.ToString() = "https://ebildirge.sgk.gov.tr/WPEB/amp/gecBildGoruntule" Then
            ComboBox4.Enabled = True

               If WebBrowser1.IsBusy <> True Then
                ComboBox4.Items.Clear()
                dokuman = WebBrowser1.Document.DomDocument
                dokumanElementleri = dokuman.getElementsByTagName("form")
                For Each i As mshtml.IHTMLElement In dokumanElementleri
                    If i.id <> "logoutform" Then
                        ComboBox4.Items.Add(i.id)

                    End If
                Next
            End If
 End Sub


Visual Basic Code
Private Sub goster()
        On Error Resume Next
        Application.DoEvents()
        Me.WebBrowser1.Navigate("https://ebildirge.sgk.gov.tr/WPEB/jsp/anamenu_ap.jsp")
End Sub


Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim frmIsim As String
    Private Sub AdreseGit()
        On Error Resume Next
        Do While WebBrowser1.Url.ToString().Trim() <> "https://ebildirge.sgk.gov.tr/WPEB/amp/gecBildGoruntule"
            Application.DoEvents()
            If WebBrowser1.Url.ToString().Trim() <> "https://ebildirge.sgk.gov.tr/WPEB/amp/gecBildGoruntule" Then
                Continue Do
            End If
        Loop

        If WebBrowser1.Url.ToString() = "https://ebildirge.sgk.gov.tr/WPEB/amp/gecBildGoruntule" Then
            WebBrowser1.Navigate("javascript:" + frmIsim + ".action='/WPEB/TahakkukFisi.pdf?rapor=TahakkukFisi&n=0';        " + frmIsim + ".submit();")
        End If
    End Sub


Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
Private Sub ComboBox4_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox4.SelectedIndexChanged
        goster()
        AdreseGit()
        frmIsim = ""
        frmIsim = ComboBox4.SelectedItem.ToString().Trim()
        If WebBrowser1.Url.ToString() = "https://ebildirge.sgk.gov.tr/WPEB/amp/gecBildGoruntule" And WebBrowser1.IsBusy = False Then
            WebBrowser1.Navigate("javascript:" + frmIsim + ".action='/WPEB/TahakkukFisi.pdf?rapor=TahakkukFisi&n=0';        " + frmIsim + ".submit();")
        ElseIf WebBrowser1.Url.ToString() = "https://ebildirge.sgk.gov.tr/WPEB/TahakkukFisi.pdf?rapor=TahakkukFisi&n=0" Then
            goster()
            AdreseGit()
        End If
End Sub


Bu kodlar ile Combobox4 den seçilen pdf formatındaki dosyayı webbrowserde gösteriyorum. İsteğim Bir butona tıklayınca gösterilen bu formu indirmek.

Yani webbrowser da açılmış olan pdf formatındaki veriyi hdd ye kaydetmek.

Teşekkürler

drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  WebBrowser Ekran Yakınlaştırma Hk. QATLET 0 874 27/03/2013, 10:44 QATLET
  Accessde 1 den fazla açılan kutuyu Deyim oluşturucusunda seçme xtr6368 1 1.047 19/05/2011, 08:03 ozanakkaya
  Açılan kutu süz problemi serdarozbek 1 919 02/11/2010, 13:12 Kur@l
  açılan kutu palmet 3 738 23/05/2010, 00:08 emturker
  Açılan kutuda bilgi girerken ilk girdiğim karaktere göre otomatik olarak getirilmesi atabey68 3 1.236 27/07/2009, 08:16 atabey68


Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya