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