|
| Autor |
Nachricht |
s1cc
Newbie
Anmeldedatum: 14.11.2010
Beiträge: 2
|
Webformular ausfüllen checkboxen Problem
Verfasst am: 25.11.2010, 18:50 |
|
|
Hi
hab mal ne Frage wie ich das mit der checkbox hinkrieg hab shcon alles bis auf die beiden checkboxen
http://www.spin.de bei der Registrierung
bin so weit gekommen bis jz funzt auch alles aber wie gesagt brauch nur noch die beiden checkboxen besaetigen aber keine ahnung wie hab schon ganze zeit gegoogelt aber nichts gefunden
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim allelements As HtmlElementCollection = WebBrowser1.Document.All
WebBrowser1.Document.GetElementById("gender").SetAttribute("value", "m")
WebBrowser1.Document.GetElementById("name").SetAttribute("value", TextBox1.Text)
WebBrowser1.Document.GetElementById("rp").SetAttribute("value", TextBox2.Text)
WebBrowser1.Document.GetElementById("email").SetAttribute("value", TextBox3.Text)
WebBrowser1.Document.GetElementById("birthdate.day").SetAttribute("value", TextBox4.Text)
WebBrowser1.Document.GetElementById("birthdate.month").SetAttribute("value", TextBox5.Text)
WebBrowser1.Document.GetElementById("birthdate.year").SetAttribute("value", TextBox6.Text)
For Each webpageelement As HtmlElement In allelements
If webpageelement.GetAttribute("type") = "submit" Then
webpageelement.InvokeMember("click")
End If
Next
End Sub
End Class
mfg s1cc |
|
| |
|
 |
christopher.g
Überflieger
Anmeldedatum: 03.05.2008
Beiträge: 565
|
Verfasst am: 25.11.2010, 19:45 |
|
|
| macht man das nicht in .net mit webrequest?! |
|
| |
|
|
AEROX
Newbie
Anmeldedatum: 29.08.2010
Beiträge: 10
|
Re: Webformular ausfüllen checkboxen Problem
Verfasst am: 31.12.2010, 14:46 |
|
|
| s1cc hat Folgendes geschrieben: | Hi
hab mal ne Frage wie ich das mit der checkbox hinkrieg hab shcon alles bis auf die beiden checkboxen
http://www.spin.de bei der Registrierung
bin so weit gekommen bis jz funzt auch alles aber wie gesagt brauch nur noch die beiden checkboxen besaetigen aber keine ahnung wie hab schon ganze zeit gegoogelt aber nichts gefunden
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim allelements As HtmlElementCollection = WebBrowser1.Document.All
WebBrowser1.Document.GetElementById("gender").SetAttribute("value", "m")
WebBrowser1.Document.GetElementById("name").SetAttribute("value", TextBox1.Text)
WebBrowser1.Document.GetElementById("rp").SetAttribute("value", TextBox2.Text)
WebBrowser1.Document.GetElementById("email").SetAttribute("value", TextBox3.Text)
WebBrowser1.Document.GetElementById("birthdate.day").SetAttribute("value", TextBox4.Text)
WebBrowser1.Document.GetElementById("birthdate.month").SetAttribute("value", TextBox5.Text)
WebBrowser1.Document.GetElementById("birthdate.year").SetAttribute("value", TextBox6.Text)
For Each webpageelement As HtmlElement In allelements
If webpageelement.GetAttribute("type") = "submit" Then
webpageelement.InvokeMember("click")
End If
Next
End Sub
End Class
mfg s1cc |
du kannst den checkboxen ein focus verpassen und sie mit SendKeys.Send(" ")
anklicken schau dir den quellcode an
WebBrowser1.Document.GetElementById("id_der_checkbox").Focus()
SendKeys.Send(" ") |
|
| |
|
|
AEROX
Newbie
Anmeldedatum: 29.08.2010
Beiträge: 10
|
Verfasst am: 02.01.2011, 11:35 |
|
|
mach das mit focus geht bei checkbox und radiobutton:
WebBrowser1.Document.GetElementById("id_der_checkbox").Focus()
SendKeys.Send(" ")
und für radiobutton:
f | Code: | Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
If RadioButton1.Checked = True Then
If RadioButton2.Checked = False Then
WebBrowser1.Document.GetElementById("id-der_radiobutton").Focus()
SendKeys.Send(" ")
End If
End If |
VIEL SPASS |
|
| |
|
|
|
|
Registrieren
Login
