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...