Pomoc z keygenem!!

Public Class Form1     Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick         ProgressBar1.Increment(1)         If ProgressBar1.Maximum Then             Timer1.Stop()             Dim key As Integer             key = (Rnd() * 9)             Select Case key                 Case 1                     TextBox1.Text = "kod1"                 Case 2                     TextBox1.Text = "kod2"                 Case 3                     TextBox1.Text = "kod3"                 Case 4                     TextBox1.Text = "kod4"                 Case 5                     TextBox1.Text = "kod5"                 Case 6                     TextBox1.Text = "kod6"                 Case 7                     TextBox1.Text = "key7"                 Case 8                     TextBox1.Text = "kod8"                 Case 9                     TextBox1.Text = "kod9"             End Select             MsgBox("Done")         End If     End Sub      Private Sub InsomniaButton1_Click(sender As System.Object, e As System.EventArgs) Handles InsomniaButton1.Click         Timer1.Start()     End SubEnd Class

Spróbuj tak.

to samo z każdym kliknieciem startu pasek skacze o 1 i za pierwszym wcisnieciem wyskakuje kod

Spróbuj tego:

Public Class Form1Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.TickProgressBar1.Increment(1)If ProgressBar1.value = 100 ThenTimer1.Stop()Dim key As Integerkey = (Rnd() * 9)Select Case keyCase 1TextBox1.Text = "kod1"Case 2TextBox1.Text = "kod2"Case 3TextBox1.Text = "kod3"Case 4TextBox1.Text = "kod4"Case 5TextBox1.Text = "kod5"Case 6TextBox1.Text = "kod6"Case 7TextBox1.Text = "key7"Case 8TextBox1.Text = "kod8"Case 9TextBox1.Text = "kod9"End SelectMsgBox("Done")End IfEnd SubPrivate Sub InsomniaButton1_Click(sender As System.Object, e As System.EventArgs) Handles InsomniaButton1.ClickTimer1.Start()End SubEnd Class

Dam Ci drugi sposób, według mnie lepszy do fake keygenów. Autorem jest użytkownik tego forum, niestety nie pamiętam nicku.

Public Class Form1    Dim Letters As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890"    Dim kamount As Integer = 5 'ilosc sektorow    Dim ksize As Integer = 6 'wielkosc sektora    Dim kact As Integer = 1    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click        Timer1.Start()    End Sub    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load    End Sub    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick        ProgressBar1.Increment(1)        If ProgressBar1.Value = 100 Then            Timer1.Stop()            TextBox1.Text = ""            kact = 1            For i As Integer = 0 To ksize * kamount - 1                TextBox1.Text &= Letters.Substring(CInt(Int((Letters.Length * Rnd()) + 0)), 1)                If i = ksize * kact - 1 And i <> ksize * kamount - 1 Then                    TextBox1.Text &= "-"                    kact = kact + 1                End If            Next             progressbar1.value = 0        End If    End SubEnd Class

Nie wiem po co takie skomplikowane skrypty macie, według mnie wystarczyłoby dać sobie 1 key i zostawić go i do buttona i timera dodać odpowiedni kody i koniec.

W poradnikach RocknDrug'a fajnie jest napisane.

Dobra już wszystko w jak najlepszym porządeczku, dziękuje bardzo  

Temat do zamknięcia!