[Quest] Keygen

Posts 1–2 of 2 · Page 1 of 1

[Quest] Keygen

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = Int(Rnd() = 5)
Select Case TextBox1.Text
Case 0
TextBox1.Text = "QXMDH-CRYFM-QFR87-HB783-T7RFQ"
Case 1
TextBox1.Text = "MPEHD-896LO-34214-MNHGT-789LK"
Case 2
TextBox1.Text = "WPD800-58634-01932-46139"
Case 3
TextBox1.Text = "b28e5286-d51b-4d62-b409-bebedoc8a496"
Case 4
TextBox1.Text = "WPD800-59533-72932-66575"
End Select
End Sub
End Class

It shows the first code but no others what i doing wrong ?

i think u need to rename the textbox1.text :S or does textbox1 exist

i think u can better use random codes

Code:

        Dim Random As New Random
        Dim Cdkey As Integer
        number = Random.Next(1, 4)
if number = 1 then
textbox1.text = "QXMDH-CRYFM-QFR87-HB783-T7RFQ"
elseif(or ifelse) number = 1 then
textbox1.text = "MPEHD-896LO-34214-MNHGT-789LK"
else
textbox1.text = "WPD800-58634-01932-46139"
end if