Skocz do zawartości

Pomoc z keygenem!!


Gość Brodzik123

Rekomendowane odpowiedzi

Gość Brodzik123
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

 

Odnośnik do komentarza

Dołącz do nas za darmo i naucz się zarabiać!

  • Dostęp do darmowych poradników pokazujących krok po kroku jak zarabiać w Internecie
  • Sposoby zarabiania niepublikowane nigdzie indziej
  • Aktywna społeczność, która pomoże Ci rozwiązać problemy i doradzi
  • Profesjonalne treści na temat SEO, social media, afiliacji, kryptowalut i wiele więcej!

 

 

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.

Daj reputka ^_^

 

 

Odnośnik do komentarza

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
Edytowane przez agix
Odnośnik do komentarza

Jeśli chcesz dodać odpowiedź, zaloguj się lub zarejestruj nowe konto

Jedynie zarejestrowani użytkownicy mogą komentować zawartość tej strony.

Zarejestruj nowe konto

Załóż nowe konto. To bardzo proste!

Zarejestruj się

Zaloguj się

Posiadasz już konto? Zaloguj się poniżej.

Zaloguj się
×
×
  • Dodaj nową pozycję...

Powiadomienie o plikach cookie

Ta strona korzysta z ciasteczek aby świadczyć usługi na najwyższym poziomie. Dalsze korzystanie z witryny oznacza zgodę na ich wykorzystanie. Polityka prywatności .