Skocz do zawartości

Jak zrobić hack/keygen PDF


Szyslak

Rekomendowane odpowiedzi

Poradnik nie jest mojego autorstwa, znaleziony w sieci.

Poradnik skierowany do osób dopiero zaczynających zabawe z VB.

 

Wstęp + Podstawyhttps://drive.google.com/file/d/0B8SKbeZTm28cQUNhUkpVV1JiMkU/edit?usp=sharingKodujemy prosty generatorhttps://drive.google.com/file/d/0B8SKbeZTm28cRE9zSUZHVWljYzA/edit?usp=sharingKodujemy bardziej zaawansowany keygenhttps://drive.google.com/file/d/0B8SKbeZTm28cc29ZSUpWNEtYek0/edit?usp=sharingPora na generatorhttps://drive.google.com/file/d/0B8SKbeZTm28ccWh2NkpPREdoM2M/edit?usp=sharingUpiększamy naszą aplikacjęhttps://drive.google.com/file/d/0B8SKbeZTm28cdXRyNWxLejF4ZzA/edit?usp=sharing
  • Super 4
Odnośnik do komentarza

Zarejestruj się za darmo i naucz się zarabiać online!

  • Dostęp do darmowych poradników pokazujących krok po kroku jak zarabiać w Internecie
  • Sposoby zarabiania niepublikowane nigdzie indziej
  • Aktywna społeczność, która pomoże Ci rozwiązać problemy i doradzi
  • Profesjonalne treści na temat SEO, social media, afiliacji, kryptowalut, sztucznej inteligencji i wiele więcej!
  • 2 tygodnie później...
  • 1 miesiąc temu...
Gość kokodżambo

Nie wiem, czy ja coś poknociłem, czy buga w tym poradniku znalazłem. Chodzi o temat 2.2. Po wklepaniu kodu wg poradnika, klucz pokazywał się przed załadowaniem paska. Mój kod przy generate button zamiast tak jak wg poradnika powinno być:

Timer1.Start()ProgressBar1.Value = ProgressBar1.MinimumDim key As Integer            key = CInt((Rnd() * 3 + 1))            Select Case key                Case 1                    TextBox1.Text = "AG7V3BG895SR"                Case 2                    TextBox1.Text = "NS2OP5XV5B11"                Case 3                    TextBox1.Text = "41S9VBG7YT2P"            End Select    End Sub

wygląda tak

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

I w takiej formie działa poprawnie

Edytowane przez kokodżambo
Odnośnik do komentarza
  • 9 miesięcy temu...
  • 2 miesiące temu...

Jeśli chcesz dodać odpowiedź, zaloguj się lub zarejestruj nowe konto

Jedynie zarejestrowani użytkownicy mogą komentować zawartość tej strony.

Zarejestruj nowe konto

Załóż nowe konto. To bardzo proste!

Zarejestruj się

Zaloguj się

Posiadasz już konto? Zaloguj się poniżej.

Zaloguj się
×
×
  • Dodaj nową pozycję...

Powiadomienie o plikach cookie

Ta strona korzysta z ciasteczek, aby świadczyć usługi na najwyższym poziomie. Dalsze korzystanie z witryny oznacza zgodę na ich wykorzystanie. Polityka prywatności .