Witaj gościu! Zaloguj się lub Zarejestruj aby móc korzystać ze wszystkich funkcjonalności jakie oferuje to forum! Rozpocznij zarabianie przez internet, poznaj korzysci pracy w domu! Rejestracja i korzystanie z forum jest całkowicie darmowe!
Polska społeczność o zarabianiu przez internet, pracy w domu i dodatkowej pracy online Zobacz dzisiejsze dyskusje →
Praca w domu - Dodatkowa Praca - Zarabianie przez Internet / Off-Topic / Kosz/Spam/Archiwum v / Pomógłby ktoś z kodem do keygena ?
Wątek zamknięty 
Pomógłby ktoś z kodem do keygena ?

Autor Wiadomość
adam064732 Offline
Stały Bywalec
*
Liczba postów: 545
Dołączył: May 2012
Reputacja: 193 +
Odznaczenia:

(Zobacz Odznaczenia)
Poziom:
Forum Gold: 27.10
Post: #1
Pomógłby ktoś z kodem do keygena ?
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
09-07-2013 14:45
Admin Online
Administrator
*
Liczba postów: 21,712
Dołączył: Oct 2009
Reputacja: 10137 +
Galeria Wygranych: Tutaj
Odznaczenia:

(Zobacz Odznaczenia)
Poziom:
Forum Gold: 344,659.95
Post: #2
RE: Pomógłby ktoś z kodem do keygena ?
next time pomysł 3x nim wybierzesz adekwatny dział dla tematu.
[Obrazek: zarabiam.com.png]
09-07-2013 15:03
Admin Online
Administrator
*
Liczba postów: 21,712
Dołączył: Oct 2009
Reputacja: 10137 +
Galeria Wygranych: Tutaj
Odznaczenia:

(Zobacz Odznaczenia)
Poziom:
Forum Gold: 344,659.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.
[Obrazek: zarabiam.com.png]
09-07-2013 15:03
Wątek zamknięty 


Podobne wątki
Wątek: Autor Odpowiedzi: Wyświetleń: Ostatni post
  zondacrypto - 10$ z kodem FLY4FREE bez żadnych warunków thepjoter 3 677 17-03-2026 09:50
Ostatni post: Hybrid1990
  Czy ktoś korzysta z tej strony? Akingee 1 573 26-01-2026 17:20
Ostatni post: Hybrid1990
  Total Casino gra ktoś w Black Jacka na All Bets? Pakula 3 2,850 27-10-2025 17:41
Ostatni post: Hybrid1990
  worldgmn.com - zarabiaj gdy ktoś do Ciebie dzwoni! macgre 16 5,660 28-08-2025 13:45
Ostatni post: Hybrid1990
  zondacrypto - 10$ za samą rejestrację z kodem LOTNICTWO kamilkawaer 2 552 11-07-2025 06:22
Ostatni post: Hybrid1990

Skocz do:


Użytkownicy przeglądający ten wątek: