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:
Code:
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