Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
09/01/2013 00:33
Konu Sahibi
drummers
Yorumlar
0
Okunma
1946
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
drummers

drummers

Destek
6533
Om.... Ca....
 120
 414
 11/05/2009
125
 İzmir
 
 Ofis 2003
 29/05/2019,12:04

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.


Konuyu Okuyanlar: 1 Ziyaretçi

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

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2019 MyBB Group.