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!
Wybierz Styl: Aktywuj czarny styl Aktywuj jasny styl Aktywuj mobilny styl
Forum o zarabianiu przez Internet !
praca w domu Witaj serdecznie forum o zarabianiu Zarabiam.com
forum o zarabianiu przez internet

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!

praca w domu

Praca w domu - Dodatkowa Praca - Zarabianie przez Internet / Uploading / Dyskusja o Uploadzie v / keygen problem

Zapraszamy na Nasze Serwery Minecraft oraz Serwer Minecraft


Odpowiedz 
 
Ocena wątku:
  • 0 Głosów - 0 Średnio
  • 1
  • 2
  • 3
  • 4
  • 5
keygen problem » gdzie jest błąd?

Autor Wiadomość
buch Offline
Bywalec
*

Liczba postów: 308
Dołączył: Oct 2012
Reputacja: 9 +
Forum Gold: 25.00
Post: #1
keygen problem
Sprawdź:
witajcie

natrafilem dzisiaj na problem przy tworzeniu keygena skladajacego sie z 4 radiobuttonow, otoż tylko przy jednym radiobuttonie klucz się wyświetla, a przy pozostałych 3 nie działaSad

vb nie pokazuje żadnego błędu
przy kliknięciu tylko w radiobutton4 pokazuje się komunikat i wyświetla klucz, a przy reszcie jest poprostu lipa, dodam że pasek ładowania, przycisk reset i komunikat końcowy działają bez zarzutu, wszystko śmiga tak jak powinno
problem jest tylko w tym, że wybierając radiobutton 1,2 lub 3 pasek ładuje się do końca, wyskakuje komunikat a klucz nie pojawia sięBig Grin

oto kod zródłowy: (może ktoś z Was doszuka się w nim błędu bo ja go nie widze)
---------------
button (start, generate, hack czy jak kto tam woli)

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If RadioButton1.Checked = False And
RadioButton3.Checked = False And
RadioButton2.Checked = False And
RadioButton4.Checked = False Then


MessageBox.Show("xxxxxx", "Error")
Else
Timer1.Start()
ProgressBar1.Value = ProgressBar1.Minimum
If RadioButton1.Checked Then
RadioButton2.Enabled = False
RadioButton3.Enabled = False
RadioButton4.Enabled = False
End If
If RadioButton2.Checked Then
RadioButton1.Enabled = False
RadioButton3.Enabled = False
RadioButton4.Enabled = False
End If
If RadioButton3.Checked Then
RadioButton1.Enabled = False
RadioButton2.Enabled = False
RadioButton4.Enabled = False
End If
If RadioButton4.Checked Then
RadioButton1.Enabled = False
RadioButton2.Enabled = False
RadioButton3.Enabled = False
End If
End If

End Sub
--------------
button reset

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

ProgressBar1.Value = ProgressBar1.Minimum
If RadioButton1.Checked Then
RadioButton2.Enabled = True
RadioButton3.Enabled = True
RadioButton4.Enabled = True

End If
If RadioButton2.Checked Then
RadioButton1.Enabled = True
RadioButton3.Enabled = True
RadioButton4.Enabled = True

End If
If RadioButton3.Checked Then
RadioButton1.Enabled = True
RadioButton2.Enabled = True
RadioButton4.Enabled = True

End If
If RadioButton4.Checked Then
RadioButton1.Enabled = True
RadioButton2.Enabled = True
RadioButton3.Enabled = True
End If
End Sub
-------------------
timer

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
ProgressBar1.Increment(1)
If ProgressBar1.Value = ProgressBar1.Maximum Then


Timer1.Stop()
MessageBox.Show("xxxxxxxxx", "xxxxxxxxx")

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 = "Generated 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
End If
Else
End If
ProgressBar1.Increment(1)
If ProgressBar1.Value = ProgressBar1.Maximum Then

Timer1.Stop()
MessageBox.Show("xxxxxxxxx", "xxxxxxxxx")
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 = "Generated 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
Else
End If
ProgressBar1.Increment(1)
If ProgressBar1.Value = ProgressBar1.Maximum Then

Timer1.Stop()
MessageBox.Show("xxxxxxxxx", "xxxxxxxxx")
If RadioButton3.Checked Then
losowanie_klucza3:
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 = 39160 Then
Dim klucz3 As String = "Generated key: " & AA & " - " & BB & " - " & CC & " - " & DD & " - " & EE
klucz3 = klucz3.Replace("4", "K")
klucz3 = klucz3.Replace("6", "P")
klucz3 = klucz3.Replace("9", "O")
klucz3 = klucz3.Replace("7", "M")
TextBox1.Text = klucz3
Exit Sub
Else
GoTo losowanie_klucza3
End If
Else
GoTo losowanie_klucza3
End If
End If
Else
End If
ProgressBar1.Increment(1)
If ProgressBar1.Value = ProgressBar1.Maximum Then


Timer1.Stop()
MessageBox.Show("xxxxxxxxx", "xxxxxxxxx")
If RadioButton4.Checked Then
losowanie_klucza4:
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 = 37551 Then
Dim klucz4 As String = "Generated key: " & AA & " - " & BB & " - " & CC & " - " & DD & " - " & EE
klucz4 = klucz4.Replace("1", "N")
klucz4 = klucz4.Replace("7", "C")
klucz4 = klucz4.Replace("3", "I")
klucz4 = klucz4.Replace("2", "P")
TextBox1.Text = klucz4
Exit Sub
Else
GoTo losowanie_klucza4
End If
Else
GoTo losowanie_klucza4
End If
End If
End If
End Sub
End Class
------------

oczywiscie za pomoc poleca plusy

temat nowy gdyż wątki na temat keygenów które odkopałem na tym forum nie opisują mojego problemu

a kto wie, może się komus przyda taki gotowy kod (o ile ktoś w nim znajdzie błąd i poprawi)

pozdrawiam
(Ten post był ostatnio modyfikowany: 22-05-2013 16:11 przez buch.)
22-05-2013 16:08
Odwiedź stronę użytkownika Znajdź wszystkie posty użytkownika Odpowiedz cytując ten post
Ania Online
Forumowy Maniak


Liczba postów: 1241
Dolaczyl: Jan 2012
Reputacja: 1712
Poziom ostrzezen: 0%
Forum Gold: 215.61 [Dotacja]

Warto sprawdzić:
ceha_wb Offline
Świeżak
*

Liczba postów: 19
Dołączył: Feb 2013
Reputacja: 8 +
Galeria Wygranych: Tutaj
Forum Gold: 5.00
Post: #2
RE: keygen problem
Poprawiłem twój kod do Timera

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
ProgressBar1.Increment(1)
If ProgressBar1.Value = ProgressBar1.Maximum Then
Timer1.Stop()
MessageBox.Show("xxxxxxxxx", "xxxxxxxxx")
If RadioButton1.Checked Then
End If
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 = "Generated 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
End If
ProgressBar1.Increment(1)
If ProgressBar1.Value = ProgressBar1.Maximum Then
Timer1.Stop()
MessageBox.Show("xxxxxxxxx", "xxxxxxxxx")
If RadioButton2.Checked Then
End If
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 = "Generated 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
ProgressBar1.Increment(1)
If ProgressBar1.Value = ProgressBar1.Maximum Then

Timer1.Stop()
MessageBox.Show("xxxxxxxxx", "xxxxxxxxx")
If RadioButton3.Checked Then
End If
losowanie_klucza3:
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 = 39160 Then
Dim klucz3 As String = "Generated key: " & AA & " - " & BB & " - " & CC & " - " & DD & " - " & EE
klucz3 = klucz3.Replace("4", "K")
klucz3 = klucz3.Replace("6", "P")
klucz3 = klucz3.Replace("9", "O")
klucz3 = klucz3.Replace("7", "M")
TextBox1.Text = klucz3
Exit Sub
Else
GoTo losowanie_klucza3
End If
Else
GoTo losowanie_klucza3
End If
End If
ProgressBar1.Increment(1)
If ProgressBar1.Value = ProgressBar1.Maximum Then


Timer1.Stop()
MessageBox.Show("xxxxxxxxx", "xxxxxxxxx")
If RadioButton4.Checked Then
End If
losowanie_klucza4:
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 = 37551 Then
Dim klucz4 As String = "Generated key: " & AA & " - " & BB & " - " & CC & " - " & DD & " - " & EE
klucz4 = klucz4.Replace("1", "N")
klucz4 = klucz4.Replace("7", "C")
klucz4 = klucz4.Replace("3", "I")
klucz4 = klucz4.Replace("2", "P")
TextBox1.Text = klucz4
Exit Sub
Else
GoTo losowanie_klucza4
End If
Else
GoTo losowanie_klucza4
End If
End If
End Sub
End Class



Teraz powinno działaćSmile
(Ten post był ostatnio modyfikowany: 23-05-2013 15:23 przez ceha_wb.)
Glosy: buch (+1)
23-05-2013 00:57
Znajdź wszystkie posty użytkownika Odpowiedz cytując ten post
buch Offline
Bywalec
*

Liczba postów: 308
Dołączył: Oct 2012
Reputacja: 9 +
Forum Gold: 25.00
Post: #3
RE: keygen problem
wielkie dzieki, temam wyczerpany
do zamknięcia
(Ten post był ostatnio modyfikowany: 26-05-2013 15:35 przez buch.)
26-05-2013 15:34
Odwiedź stronę użytkownika Znajdź wszystkie posty użytkownika Odpowiedz cytując ten post
Masterjam Offline
Bywalec
*

Liczba postów: 294
Dołączył: Nov 2012
Reputacja: 41 +
Forum Gold: 0.00
Post: #4
RE: keygen problem
Witam
Ja także mam problem. Tworzę keygen i pojawia się key jak pasek postępu rusza a powinien dopiero na końcu .Mam coś takiego:

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim key As Integer
Timer1.Start()
ProgressBar1.Value = ProgressBar1.Minimum
key = (Rnd() * 4 + 1)
Select Case key
Case 1
TextBox1.Text = "AG7V3BG895SR"
Case 2
TextBox1.Text = "NS2OP5XV5B11"
Case 3
TextBox1.Text = "41S9VBG7YT2P"
Case 4
TextBox1.Text = "G6U23KNVPA4A"
End Select
End Sub


i nie wiem gdzie wpasować modyfikację

Timer1.Start()
ProgressBar1.Value = ProgressBar1.Minimum


na przycisku generate aby to timer robił całą operację.
Pomożecie nowicjuszowi Smile
03-06-2013 20:44
Znajdź wszystkie posty użytkownika Odpowiedz cytując ten post
ceha_wb Offline
Świeżak
*

Liczba postów: 19
Dołączył: Feb 2013
Reputacja: 8 +
Galeria Wygranych: Tutaj
Forum Gold: 5.00
Post: #5
RE: keygen problem
Musisz w Timer wpisać ten kod

ProgressBar1.Increment(1)
If ProgressBar1.Value = ProgressBar1.Maximum Then
Timer1.Stop()
Dim key As Integer
key = (Rnd() * 4 + 1)
Select Case key
Case 1
TextBox1.Text = "AG7V3BG895SR"
Case 2
TextBox1.Text = "NS2OP5XV5B11"
Case 3
TextBox1.Text = "41S9VBG7YT2P"
Case 4
TextBox1.Text = "G6U23KNVPA4A"
End Select
End If
End Sub

a w buttonie musisz wpisać

Timer1.Start()
ProgressBar1.Value = ProgressBar1.Minimum

i teraz powinno działać.Jak coś to pisz na PW pomogęSmile
03-06-2013 21:21
Znajdź wszystkie posty użytkownika Odpowiedz cytując ten post
Masterjam Offline
Bywalec
*

Liczba postów: 294
Dołączył: Nov 2012
Reputacja: 41 +
Forum Gold: 0.00
Post: #6
RE: keygen problem
Czy VB można zapodać do aplikacji taką rzecz jak migającą "pulsującą" że jest na przykład połączenie z internetem?
(Ten post był ostatnio modyfikowany: 28-07-2013 15:46 przez Masterjam.)
28-07-2013 13:05
Znajdź wszystkie posty użytkownika Odpowiedz cytując ten post
Odpowiedz 


Podobne wątki
Wątek: Autor Odpowiedzi: Wyświetleń: Ostatni post
  crack/keygen działający s MACOS 3 1,598 30-09-2015 20:50
Ostatni post: Koja

Skocz do:


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



Praca w domu - Dodatkowa Praca - Zarabianie przez Internet | Wróć do góry | Wróć do forów | Wersja Mobilna | RSS | Zarabiam.com RSS | Polityka Prywatności | Kontakt | Reklama