[VB.Net] Kontaktformular ausfüllen?

Ich möchte das Kontaktformular auf dieser Seite:
http://www.katalog-kiosk.de/data.asp...BID=000000&O=J

mit einem VB.Net programm ausfüllen und dann den AbsendenButton klicken.

Soweit bin ich schon:

Code:

---

WebBrowser1.Navigate("http://www.katalog-kiosk.de/data.asp?NR=1347&P=&BID=000000&O=J")
        WebBrowser1.Document.GetElementById("strNameFirst").InnerText = boxVorname.Text
        WebBrowser1.Document.GetElementById("strName").InnerText = boxNachname.Text
        WebBrowser1.Document.GetElementById("strStreet").InnerText = boxStraße.Text
        WebBrowser1.Document.GetElementById("strNumber").InnerText = boxNummer.Text
        WebBrowser1.Document.GetElementById("strZIP").InnerText = boxPostleitzahl.Text
        WebBrowser1.Document.GetElementById("strCity").InnerText = boxOrt.Text
        WebBrowser1.Document.GetElementById("strEmail").InnerText = boxEmail.Text

        WebBrowser1.Document.Forms(1).InvokeMember("submit")

---

Ich muss jetzt nur noch wissen wie man einen Radiobutton aktiviert (also bei Anrede: Herr/Frau)

Danke für die Hilfe!

Code:

---

Dim Radio As HtmlElement
Radio = WebBrowser1.Document.GetElementById("radAH")
Radio.SetAttribute("checked", "false")

---

Müsste so gehen , Frau ist true und Herr ist false ;)

MfG

Hey, die Website hab ich auch für meinen Katalog-Bomber benutzt xD
KP. ob meiner noch geht, hab das Projekt nicht mehr oO

Zitat:

---

Zitat von ThePapst

Code:

---

Dim Radio As HtmlElement
Radio = WebBrowser1.Document.GetElementById("radAH")
Radio.SetAttribute("checked", "false")

---

Müsste so gehen , Frau ist true und Herr ist false ;)

MfG

---

Danke =)

Dann hätte ich noch eine Frage und zwar:

Wenn ich auf
http://www.katalog-kiosk.de/data.asp...BID=000000&O=J
alles richtig ausfülle und absenden klicke kommt:

Ihre Katalog-Bestellung ist bereits unterwegs zu

Wie kontrolliere ich mit meinem Programm, dass das im Webbrowser1 angezeigt wird, so dass ich dann ein Erfolgreich anzeigen lassen kann?

das geht indem du :
webbrowser1.document.all(1).outerhtml
oder so ähnlich dann machst du ein if
if "Ihre Katalog-Bestellung ist bereits unterwegs zu" = webbrowser1.document.all(1).outerhtml then
lblanzeige1.text = "Erfolgreich"
else
lblanzeige1.text = "Fehler"
end if

es kann auch statt outerhtml innerhtml weiß nicht mehr genau

Zitat:

---

Zitat von Puiscel

das geht indem du :
webbrowser1.document.all(1).outerhtml
oder so ähnlich dann machst du ein if
if "Ihre Katalog-Bestellung ist bereits unterwegs zu" = webbrowser1.document.all(1).outerhtml then
lblanzeige1.text = "Erfolgreich"
else
lblanzeige1.text = "Fehler"
end if

es kann auch statt outerhtml innerhtml weiß nicht mehr genau

---

Thx =) funzt =)

was soll denn ein katalog bomber sein? was macht das fürn sinn?

Zitat:

---

Zitat von Puiscel

was soll denn ein katalog bomber sein? was macht das fürn sinn?

---

Das Tool bestellt aus dem Internet an die 300 kostenlose Kataloge die dann an die Zielperson geliefert werden =)

des is aber fies :D

cool^^ kann mir jemand mal die source geben von dem programm?

das ist ne richti fiese aber irgendwie geile idee *gg*
Erkennt die Seite denn nicht wenn man mehrmals an die selbe Adresse bestellt? o_O

Zitat:

---

Zitat von stadionfeger

das ist ne richti fiese aber irgendwie geile idee *gg*
Erkennt die Seite denn nicht wenn man mehrmals an die selbe Adresse bestellt? o_O

---

Das is denn egal denk ich.
Natürlich is das möglich das zu checken ,aber die Frage is eher ob das der Anbierter macht.

bitte postet mal einer den quellcode plz

Kann dir den Source in Vb6 geben, wenn du willst, habe früher auch mal einen gemacht.
Und ihr habt mir alle die Seiten geklaut :'(:'(.