Hier der sourcecode from keygen
Code
- Public Class Form1
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- Dim key As Integer
- key = Int(Rnd() * 10)
- Select Case key
- Case 1
- TextBox1.Text = "TEXT HERE"
- Case 2
- TextBox1.Text = "TEXT HERE"
- Case 3
- TextBox1.Text = "TEXT HERE"
- Case 4
- TextBox1.Text = "TEXT HERE"
- Case 5
- TextBox1.Text = "TEXT HERE"
- Case 6
- TextBox1.Text = "TEXT HERE"
- Case 7
- TextBox1.Text = "TEXT HERE"
- Case 8
- TextBox1.Text = "TEXT HERE"
- Case 9
- TextBox1.Text = "TEXT HERE"
- Case 10
- TextBox1.Text = "TEXT HERE"
- End Select
- End Sub
- End Class