Webbrowser de açılan pdf kaydetme hk
Tarih
09/01/2013 00:33
Konu Sahibi
drummers
Yorumlar
0
Okunma
1554
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....
398
11/05/2009
125
İzmir
Ofis 2003
07/01/2017,15:41
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 854 27/03/2013, 10:44 QATLET
  Accessde 1 den fazla açılan kutuyu Deyim oluşturucusunda seçme xtr6368 1 1.034 19/05/2011, 08:03 ozanakkaya
  Açılan kutu süz problemi serdarozbek 1 904 02/11/2010, 13:12 Kur@l
  açılan kutu palmet 3 725 23/05/2010, 00:08 emturker
  Açılan kutuda bilgi girerken ilk girdiğim karaktere göre otomatik olarak getirilmesi atabey68 3 1.222 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