Code Generator

[!NaNo!]

Hi,
habe ein Code Generator mit zufälligen Codes mit VB 2008 gemacht, aber ich habe ein Problem mit dem Valid check. Man kann die Codes wo ich checken will auf www.wallie.de überprüfen.

Habe als Test einen Großen Webbrowser gemacht, um zu sehen ob er die Codes eingibt. Er gibt sie ein, aber er checkt sie nicht auf Valid oder Invalid (habe zwei Linkboxen gemacht). Die werden auf valid eingetragen, sind sie aber nicht.

http://img7.imageshack.us/img7/4761/sdads.jpg

Mein Code sieht so aus:

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim Pin1 As Long = "4"
        Dim Pin2 As Long = "4"
        Dim Pin3 As Long = "4"
        Dim Pin4 As Long = "4"
        Dim Buchstabenlänge As Long = "3"
        Dim Buchstaben As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
        Dim Zahlenlänge As String = "0123456789"
        Dim zufall1 As Long
        Dim zufall2 As Long
        Dim zufall3 As Long
        Dim zufall4 As Long
        Dim zufall5 As Long
        Dim kette1 As String
        Dim kette2 As String
        Dim kette3 As String
        Dim kette4 As String
        Dim kette5 As String
        For i = 0 To Pin1 - 1
            Randomize()
            zufall1 = Int(Rnd() * Zahlenlänge.Length - 1) + 1
            kette1 = kette1 & Zahlenlänge.Chars(zufall1)
        Next
        For i = 0 To Pin2 - 1
            Randomize()
            zufall2 = Int(Rnd() * Zahlenlänge.Length - 1) + 1
            kette2 = kette2 & Zahlenlänge.Chars(zufall2)
        Next
        For i = 0 To Pin3 - 1
            Randomize()
            zufall3 = Int(Rnd() * Zahlenlänge.Length - 1) + 1
            kette3 = kette3 & Zahlenlänge.Chars(zufall3)
        Next
        For i = 0 To Pin4 - 1
            Randomize()
            zufall4 = Int(Rnd() * Zahlenlänge.Length - 1) + 1
            kette4 = kette4 & Zahlenlänge.Chars(zufall4)
        Next
        For i = 0 To Buchstabenlänge - 1
            Randomize()
            zufall5 = Int(Rnd() * Buchstaben.Length - 1) + 1
            kette5 = kette5 & Buchstaben.Chars(zufall5)
        Next

        WebBrowser1.Document.GetElementById("sc1").InnerText = kette1
        WebBrowser1.Document.GetElementById("sc2").InnerText = kette2
        WebBrowser1.Document.GetElementById("sc3").InnerText = kette3
        WebBrowser1.Document.GetElementById("sc4").InnerText = kette4
        WebBrowser1.Document.GetElementById("sc5").InnerText = kette5
        WebBrowser1.Document.Forms(0).InvokeMember("submit")

        Dim html As String = WebBrowser1.Document.All(1).OuterHtml
        If html.Contains("Karte nicht gefünden") Then
            ListBox2.Items.Add(kette1 + "-" + kette2 + "-" + kette3 + "-" + kette4 + "-" + kette5)
            WebBrowser1.Navigate("http://www.wallie.de")
        Else
            ListBox1.Items.Add(kette1 + "-" + kette2 + "-" + kette3 + "-" + kette4 + "-" + kette5)
        End If
    End Sub

[G36KV]

probiers mal so:

WebBrowser1.Document.GetElementById("Submit").Invo keMember("click")

übrigens bist du im falschen unterforum

[big earl]

Ich finde es ja schön, das jemand auf soeine Idee kommt, aber das hier ist die VB06 sektion ( ^^)

Hier ist VB .NET
http://free-hack.com/forumdisplay.php?f=726

[Maschell]

Ich hab auch mal versucht das Programm in Vb6 nach zu coden und das geht auch soweit.
Bei interesse kann den ich Code mal aufräumen und hier reinpacken.
Hab das Programm jetzt seit gut 18Stunden (ca. 60000-70000 überprüft bis jetzt) laufen und noch keinen Valid Code bekommen, mal sehen wann der erste gefunden wird. Die wahrschienlichkeit ist ja sehr gering, aber man weiß ja nie