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!

keygen problem - Wersja do druku +- Praca w domu - Dodatkowa Praca - Zarabianie przez Internet (https://zarabiam.com) +-- Dział: Uploading (/Forum-Uploading-282) +--- Dział: Dyskusja o Uploadzie (/Forum-Dyskusja-o-Uploadzie-286) +--- Wątek: keygen problem (/Temat-keygen-problem-69821)

keygen problem - buch - 22-05-2013 16:08 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ła 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ę 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 RE: keygen problem - ceha_wb - 23-05-2013 00:57 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ć RE: keygen problem - buch - 26-05-2013 15:34 wielkie dzieki, temam wyczerpany do zamknięcia RE: keygen problem - Masterjam - 03-06-2013 20:44 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 RE: keygen problem - ceha_wb - 03-06-2013 21:21 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ę RE: keygen problem - Masterjam - 28-07-2013 13:05 Czy VB można zapodać do aplikacji taką rzecz jak migającą "pulsującą" że jest na przykład połączenie z internetem?