+- Praca w domu - Dodatkowa Praca - Zarabianie przez Internet (https://zarabiam.com)
+-- Dział: Off-Topic (/Forum-Off-Topic-9)
+--- Dział: Kosz/Spam/Archiwum (/Forum-Kosz-Spam-Archiwum-11)
+--- Wątek: Pomógłby ktoś z kodem do keygena ? (/Temat-Pomoglby-ktos-z-kodem-do-keygena-72463)
Pomógłby ktoś z kodem do keygena ? - adam064732 - 09-07-2013 14:45
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
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ć ;PMacie 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 ClassScreen 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
Pozdrawiam.
Adam
RE: Pomógłby ktoś z kodem do keygena ? - Admin - 09-07-2013 15:03
next time pomysł 3x nim wybierzesz adekwatny dział dla tematu.
Pomógłby ktoś z kodem do keygena ? - Admin - 09-07-2013 15: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.