Znajdź zawartość
Wyświetlanie wyników dla tagów 'Kod keygen' .
Znaleziono 1 wynik
-
CHciałem zrobić kod na zwykły keygen z progress barem myśląc w miare samemu, a wyszło coś takiego jak klikam start to sie tylko troszke pasek przesuwa i od razu kod wyskakuje co zmienić żeby działało czyli po kliknieciu start ładował sie spokojnie pasek wyskakiwał kod oraz okienko done??? 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() ProgressBar1.Value = ProgressBar1.Minimum End Sub End Class
