Quantcast
Channel: Giriş çıkış işlemi hakkında
Viewing all articles
Browse latest Browse all 2

Giriş çıkış işlemi hakkında

0
0
Private Sub Ebildirge_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        WebBrowser1.Navigate("https://ebildirge.sgk.gov.tr/WPEB/amp/loginldap")
End Sub


Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged captcha.Show()

Dim rs As Object baglan() rs = CreateObject("adodb.recordset") rs.open("select * from sgk where dosyaismi='" & ComboBox1.Text & "' order by dosyaismi", baglanti, 1, 1) If rs.recordcount = 1 Then Label1.Text = rs("sgkkullanici").value Label2.Text = rs("sgkkod").value Label3.Text = rs("sistemsifre").value Label4.Text = rs("isyerisifre").value WebBrowser1.Document.All("j_username").SetAttribute("value", Label1.Text) WebBrowser1.Document.All("isyeri_kod").SetAttribute("value", Label2.Text) WebBrowser1.Document.All("j_password").SetAttribute("value", Label3.Text) WebBrowser1.Document.All("isyeri_sifre").SetAttribute("value", Label4.Text) End If rs.close() baglanti.close() End Sub

Açılışta  WebBrowser1.Navigate("https://ebildirge.sgk.gov.tr/WPEB/amp/loginldap") bu sayfa açılıyor ve ComboBox1 den firma değişince ilgili veriler ilgili sitenin ilgili alanlarına aktarılıyor ve captcha kodunu çektiğim form "captcha.Show()" görüntüleniyor.... Buraya kadar sıkıntı yok...

Benim istediğim kısaca şudur: ComboBox1 den ilk firma seçiminin ardından ikinci firma değiştiğinde şunların olmasını istiyorum

Önce açılmış olan sayfadan güvenli çıkış yapılacak   WebBrowser1.Navigate("javascript:document.forms['logoutform'].submit();") kodu budur

akabinde sayfayı ilk andaki giriş bölümüne getirecek WebBrowser1.Navigate("https://ebildirge.sgk.gov.tr/WPEB/amp/loginldap") onunda kodu budur.

Bunu nasıl yapılacağını çözemedim ...

Örnek:

- ComboBox1 den ALİ firmasını seçtin verileri açılan sayfadaki ilgili yerlere yapıştırdı captcha isimli form açıldı ve captcha kodu girilerek sayfaya giriş yapıldı....

- ComboBox1 den VELİ firması seçilince önce güvenli çıkış yapıp ardından Ana sayfa açılacak...

Teşekkürler...


Viewing all articles
Browse latest Browse all 2

Latest Images

Trending Articles


Ayetel Kürsi'nin Daveti


Asayı Musa


SCCM 2012 Client Installation issue


Yusuf Suresi (100.ayet)Kapı, kılıç ve zirve duası


Kağıtları Altına Çevirmek


Sihir ve Büyü Çözmek İçin VEFK


İtaat Tılsımı-Belkıs Tılsımı


Arkanızdan Konuşanları Susturmak İçin Dua


irsal ve musallat etmek


Merhamet, Gnade izle | 1080p — 720p Türkçe Dublaj HD