Pomógłby ktoś z kodem do keygena ?

adam064732 · 09-07-2013, 15:45

Sprawdź:

Witam. Nie wiem gdzie mam taki temat napisać ponieważ przeszukałem forum i nie znalazłem owego działu, jeśli tutaj nie pasuje to proszę o przeniesienie go Wink

A problem polega na tym ponieważ mam 2 błędy w swoim kodzie do keygena z poradnika rockndruga część 3-Bardziej zaawansowany keygen i nie wiem jak je naprawić ;P
Macie tutaj cały kod:

Kod:
Public Class Form1

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If RadioButton1.Checked = False And
RadioButton2.Checked = False Then
            MessageBox.Show("Choose game version", "Error")
        Else
            Timer1.Start()
            ProgressBar1.Value = ProgressBar1.Minimum
            If RadioButton1.Checked Then
                RadioButton2.Enabled = False
            End If
            If RadioButton2.Checked Then
                RadioButton1.Enabled = False
            End If
        End If
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        End
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ProgressBar1.Value = ProgressBar1.Minimum
        If RadioButton1.Checked Then
            RadioButton2.Enabled = True
        End If
        If RadioButton2.Checked Then
            RadioButton1.Enabled = True
        End If
    End Sub


    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles <----Tutaj jest Błąd 
        Timer1.Tick() <----i Tutaj jest Błąd
        ProgressBar1.Increment(1)
        If ProgressBar1.Value = ProgressBar1.Maximum Then
            Timer1.Stop()
            MessageBox.Show("Key generated! Have Fun!", "Success!")
            If RadioButton1.Checked Then
losowanie_klucza:
                Dim AA As Double = Int(Rnd() * 9999)
                Dim BB As Double = Int(Rnd() * 9999)
                Dim CC As Double = Int(Rnd() * 9999)
                Dim DD As Double = Int(Rnd() * 9999)
                Dim EE As Double = Int(Rnd() * 9999)
                If AA > 1 And BB > 1 And CC > 1 And DD > 1 And EE > 1 Then
                    If AA + BB + CC + DD + EE = 35560 Then
                        Dim klucz As String = "Your key: " & AA & "-" & BB & "-" & CC & "-" & DD & "-" & EE
                        klucz = klucz.Replace("2", "G")
                        klucz = klucz.Replace("4", "Z")
                        klucz = klucz.Replace("6", "S")
                        klucz = klucz.Replace("8", "N")
                        TextBox1.Text = klucz
                        Exit Sub
                    Else
                        GoTo losowanie_klucza
                    End If
                Else
                    GoTo losowanie_klucza
                End If
            Else
            End If
            ProgressBar1.Increment(1)
            If ProgressBar1.Value = ProgressBar1.Maximum Then
                Timer1.Stop()
                If RadioButton2.Checked Then
losowanie_klucza2:
                    Dim AA As Double = Int(Rnd() * 9999)
                    Dim BB As Double = Int(Rnd() * 9999)
                    Dim CC As Double = Int(Rnd() * 9999)
                    Dim DD As Double = Int(Rnd() * 9999)
                    Dim EE As Double = Int(Rnd() * 9999)
                    If AA > 1 And BB > 1 And CC > 1 And DD > 1 And EE > 1 Then
                        If AA + BB + CC + DD + EE = 38560 Then
                            Dim klucz2 As String = "Your key: " & AA & "-" & BB & "-" & CC & "-" & DD & "-" & EE
                            klucz2 = klucz2.Replace("3", "F")
                            klucz2 = klucz2.Replace("4", "Z")
                            klucz2 = klucz2.Replace("5", "T")
                            klucz2 = klucz2.Replace("8", "N")
                            TextBox1.Text = klucz2
                            Exit Sub
                        Else
                            GoTo losowanie_klucza2
                        End If
                    Else
                        GoTo losowanie_klucza2
                    End If
                End If
            End If
        End If
    End Sub
End Class

A tutaj macie screena błędu:
Screen Błędu

Od razu mówię, że jestem początkującym w tworzeniu keygenów itd. co będzie widać w moim kodzie ;P Ogarniam to dopiero 1 dzień ten cały poradnik i zatrzymałem się właśnie tutaj gdzie mam 2 błędy i nie wiem jak je naprawić.
Proszę o pomoc Big Grin

Pozdrawiam.
Adam

**Admin** · 09-07-2013, 16:03

next time pomysł 3x nim wybierzesz adekwatny dział dla tematu.

**Admin** · 09-07-2013, 16:03

Wątek został przeniesiony do kosza.
Prawdopodobne przyczyny :

1. Temat jest niezgodny z regulaminem.
2. Podobny temat znajduje się już na forum.
3. Wątek nie jest już aktulany.
4. Autor prosił o jego przeniesienie.
5. Temat został wyczerpany bądź rozwiązany.

Pozdrawiamy
Administracja Forum.

Admin Administrator Liczba postów: 21,795 Dołączył: Oct 2009 Reputacja: 10,216 Odznaczenia: (Zobacz Odznaczenia) Poziom: Forum Gold: 334,645.95	Post: #2 RE: Pomógłby ktoś z kodem do keygena ? next time pomysł 3x nim wybierzesz adekwatny dział dla tematu.
Glosy:
09-07-2013, 16:03

Admin Administrator Liczba postów: 21,795 Dołączył: Oct 2009 Reputacja: 10,216 Odznaczenia: (Zobacz Odznaczenia) Poziom: Forum Gold: 334,645.95	Post: #3 Pomógłby ktoś z kodem do keygena ? Wątek został przeniesiony do kosza. Prawdopodobne przyczyny : 1. Temat jest niezgodny z regulaminem. 2. Podobny temat znajduje się już na forum. 3. Wątek nie jest już aktulany. 4. Autor prosił o jego przeniesienie. 5. Temat został wyczerpany bądź rozwiązany. Pozdrawiamy Administracja Forum.
Glosy:
09-07-2013, 16:03

Podobne wątki…
Wątek:		Autor	Odpowiedzi:	Wyświetleń:	Ostatni post
	[Skrypt] FileCash .:Niech Ktoś Zarabia Za Ciebie:.	AnnaKa	19	1,719	11-09-2026, 13:55 Ostatni post: Hybrid1990
	zondacrypto - 10$ z kodem FLY4FREE bez żadnych warunków	thepjoter	3	768	17-03-2026, 10:50 Ostatni post: Hybrid1990
	Czy ktoś korzysta z tej strony?	Akingee	1	659	26-01-2026, 18:20 Ostatni post: Hybrid1990
	Total Casino gra ktoś w Black Jacka na All Bets?	Pakula	3	2,963	27-10-2025, 18:41 Ostatni post: Hybrid1990
	worldgmn.com - zarabiaj gdy ktoś do Ciebie dzwoni!	macgre	16	5,969	28-08-2025, 14:45 Ostatni post: Hybrid1990

Tryb drzewa \| Tryb normalny Pomógłby ktoś z kodem do keygena ?
Autor	Wiadomość