THT DUYURU

THT Yardım Merkezi THT Yardım Merkezi bölümünden; teknoloji ve bilişim ile ilgili her konu için yardım isteyebilirsiniz.

siber güvenlik eğitimi
Seçenekler

Vb express 2008 de webbrowser İle Butona Tıklatma

olcak61 - ait Kullanıcı Resmi (Avatar)
Yeni Üye
Üyelik tarihi:
09/2007
Mesajlar:
37
Konular:
18
Teşekkür (Etti):
3
Teşekkür (Aldı):
0
Ticaret:
(0) %
0
300
13-08-2013 22:56
#1
Elimde Şöyle Bir Kod var Ve ben Siteye Girdiğimde Mesela Konuyu Cevapla Butonuna Bastırmak İstiyorum Ama Nasıl Bastıracağımı Bilmiyorum. Butonun İd Sini Buldum Ama Basmıyor.
Birde Konu Cevaplama Ya Yazı Yazmasını İstiyorum Onunda İd Sini Buluyorum Ve
WebBrowser1.********.GetElementById(konu22).SetAtt ribute("value", konucevap.Text) in İçine Girdiğimde Bişiy Olmuyor Ama. Siteye İd Pass Girdiğimde Girebiliyorum Bu Şekilde. Anlamışsınızdır İnşlh.
Kod:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        WebBrowser1.Navigate(TextBox3.Text)
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim kullaniciAdi As String = txtKullaniciAdi.Text
        Dim sifre As String = txtKullaniciSifre.Text
        Dim alan1 As String = txtAlan1.Text
        Dim alan2 As String = txtAlan2.Text
        Dim alan3 As String = txtAlan3.Text

        If kullaniciAdi = "" Or sifre = "" Or alan1 = "" Or alan2 = "" Or alan3 = "" Then
            MsgBox("Boş bıraktığınız alanlar var, lütfen yeniden deneyiniz", MsgBoxStyle.Exclamation, "Boş Bırakılan Alan Uyarısı")
        Else
            WebBrowser1.********.GetElementById(alan1).SetAttribute("value", txtKullaniciAdi.Text)
            WebBrowser1.********.GetElementById(alan2).SetAttribute("value", txtKullaniciSifre.Text)
            WebBrowser1.********.Forms(0).InvokeMember("submit")
        End If
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim güvenlik1 As String = KonuGüvenlik.Text
        Dim konucevap1 As String = konucevap.Text
        Dim konu11 As String = Konu1.Text
        Dim konu22 As String = konu2.Text
        Dim konu33 As String = konu3.Text

        If güvenlik1 = "" Or konucevap1 = "" Or konu11 = "" Or konu22 = "" Or konu33 = "" Then
            MsgBox("Boş bıraktığınız alanlar var, lütfen yeniden deneyiniz", MsgBoxStyle.Exclamation, "Boş Bırakılan Alan Uyarısı")
        Else
            WebBrowser1.********.GetElementById(konu11).SetAttribute("value", KonuGüvenlik.Text)
            WebBrowser1.********.GetElementById(konu22).SetAttribute("value", konucevap.Text)
            WebBrowser1.********.Forms(0).InvokeMember("1")
        End If
    End Sub
End Class

Bookmarks


« Önceki Konu | Sonraki Konu »
Seçenekler