Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
09/01/2013 00:33
Konu Sahibi
drummers
Yorumlar
0
Okunma
1688
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....
405
11/05/2009
125
İzmir
Ofis 2003
28/08/2017,11:37

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 995 27/03/2013, 10:44 QATLET
  Accessde 1 den fazla açılan kutuyu Deyim oluşturucusunda seçme xtr6368 1 1.141 19/05/2011, 08:03 ozanakkaya
  Açılan kutu süz problemi serdarozbek 1 1.015 02/11/2010, 13:12 Kur@l
  açılan kutu palmet 3 951 23/05/2010, 00:08 emturker
  Açılan kutuda bilgi girerken ilk girdiğim karaktere göre otomatik olarak getirilmesi atabey68 3 1.335 27/07/2009, 08:16 atabey68

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.