[VB.Net] Kontaktformular ausfüllen?

[Cl!ck]

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:

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!

[Sawyer]

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

[Sirect]

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

[Cl!ck]

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?

[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

[Cl!ck]

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 =)

[Puiscel]

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

[Sirect]

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 =)

[Shini]

des is aber fies

[Puiscel]

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