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!
Witaj! Nie bez powodu trafiłeś na największe w Polsce Forum o Zarabianiu przez internet! Tutaj gromadzimy pasjonatów zdobywania pieniędzy online i dajemy możliwość poznania tajników pracy w domu. Coraz więcej osób poszukuje sposobów na zarabianie w sieci, co sprawia, że praca w domu przez internet staje się atrakcyjnym źródłem dochodu. W dzisiejszych czasach, zarabianie online to nie tylko alternatywa, ale często również znakomita opcja do tradycyjnej pracy na etacie.
Czy zastanawiasz się, jak łatwo zarobić pieniądze? Jeśli tak, to właściwe miejsce! Internet jest pełen możliwości, a my jesteśmy tutaj, aby Ci pomóc, dzieląc się wiedzą i doświadczeniami.
Rejestracja na naszym forum jest całkowicie darmowa i niesie ze sobą wiele korzyści:
Zakładaj nowe wątki i bierz udział w dyskusjach,
Odblokuj dostęp do czatu (Shoutbox),
Ogranicz liczbę wyświetlanych reklam,
Zdobywaj odznaczenia i reputację,
Zyskaj dostęp do ukrytych działów, tematów i linków,
Przeglądaj galerię zdjęć i filmów z wygranymi nagrodami,
Dostosuj swój prywatny profil,
Weź udział w konkursach organizowanych na forum,
Skorzystaj z doświadczenia społeczności zarabiającej online od lat,
Porównaj stopy procentowe na kontach oszczędnościowych,
Wykorzystaj merytoryczną wiedzę naszych użytkowników, by zarabianie w domu stało się łatwiejsze niż kiedykolwiek,
Dowiedz się, gdzie zdobyć darmowe upominki, gadżety i próbki.
Pamiętaj to nic nie kosztuje, zarabiam.com to darmowe forum internetowe w którym zasięgniesz informacji "jak zarabiać przez internet".
I co najważniejsze, wszystko to jest zupełnie za darmo! Zarabiam.com to internetowe forum, które udzieli Ci odpowiedzi na pytanie "jak zarabiać przez internet". Teraz praca w domu staje się możliwa! Zarejestruj się już teraz, a dowiesz się wszystkiego o zarabianiu przez internet!
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ć ;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
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
Glosy:
09-07-2013 14:45
Ania Forumowy Maniak
Liczba postów: 1241
Dolaczyl: Jan 2012
Reputacja: 1712 Poziom ostrzezen: 0% Forum Gold: 215.61[Dotacja]
Warto sprawdzić:
Admin
Administrator
Liczba postów: 21,636
Dołączył: Oct 2009
Reputacja:
9974 Galeria Wygranych: Tutaj Odznaczenia: (Zobacz Odznaczenia) Poziom:
Forum Gold: 5,582.95
next time pomysł 3x nim wybierzesz adekwatny dział dla tematu.
Glosy:
09-07-2013 15:03
Admin
Administrator
Liczba postów: 21,636
Dołączył: Oct 2009
Reputacja:
9974 Galeria Wygranych: Tutaj Odznaczenia: (Zobacz Odznaczenia) Poziom:
Forum Gold: 5,582.95
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.
Witaj serdecznie forum o zarabianiu Zarabiam.com
/
Pomógłby ktoś z kodem do keygena ?
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
![[Obrazek: zarabiam.com.png]](https://zarabiam.com/pliki/zarabiam.com.png)
