AccessTr.neT

Public Class internetvergidairesi

   



Private Sub baglan2()

        WebBrowser1.Navigate("about:<html><head><script>window.opener=window;window.location = 'https://intvd.gib.gov.tr/internetvd/dispatch2?cmd=IVD_LOGINPAGE';</script></head></html>")

    End Sub

   



Private Sub internetvergidairesi_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Call baglan2()

    End Sub





End Class

Bu kod ile internet vergi dairesi sayfasına bağlanabiliyorum. Benim istediğim şudur:

1- Textbox1 de yazan veriyi "Kullanıcı Kodu" yazan yere (Kaynak kod ismi = username)

2- Textbox2 de yazan veriyi "Parola" yazan yere (Sayfa kaynak kod ismi = password2)

3- Textbox3 de yazan veriyi "Şifre" yazan yere (Sayfa kaynak kod ismi = password1)

Yapıştırması ve ardından giriş butonuna basması. Teşekkürler

Kaynak kod ektedir

Burda istediğim şey sgk sitesine girer iken şu kodu kullanıyorum

Kod:
"https://ebildirge.ssk.gov.tr/WPEB/amp/loginldap?j_username=" & TextBox1.Text & "&isyeri_kod=" & TextBox2.Text & "&j_password=" & TextBox3.Text & "&isyeri_sifre=" & TextBox4.Text

Bunun gibi textlerdeki veriyi ilgili alanlara ilk girişte eklemesi ve butona tıklaması. Teşekekkürler



webBrowser.Document.All["ctl00_ContentPlaceHolder1_txtNickName"].SetAttribute("value", txt_kullanici);

webBrowser.Document.All["ctl00_ContentPlaceHolder1_txtPassword"].SetAttribute("value", txt_parola);

webBrowser.Document.GetElementById("ctl00_ContentPlaceHolder1_btnLogin").InvokeMember("Click");

Bu benim kullandığım kodlar. Projeniz olmadığı için ancak bu kadar olabiliyor.

Teşekkürler, konulara bakmayı unutuyorum bazen kusuruma bamayın Img-cray

drummers

alpeki99

drummers