Skocz do zawartości

  • 👋 Witaj na MPCForum!

    Przeglądasz forum jako gość, co oznacza, że wiele świetnych funkcji jest jeszcze przed Tobą! 😎

    • ✅ Pełny dostęp do działów i ukrytych treści
    • ✅ Możliwość pisania i odpowiadania w tematach
    • ✅ System prywatnych wiadomości
    • ✅ Zbieranie reputacji i rozwijanie swojego profilu
    • ✅ Członkostwo w jednej z największych społeczności graczy

    👉 Dołączenie zajmie Ci mniej niż minutę – a zyskasz znacznie więcej!

    Zarejestruj się teraz

[TuT] Prosty Fake-Generator.

ichus

Rekomendowane odpowiedzi

ichus Budowniczy

ichus

Opublikowano
Budowniczy

ichus

Opublikowano

RT-genera_nrawanq.jpg

 

Dzisiaj chcę pokazać wam jak działają mniej więcej "hacki" z YouTube.com/pl. Programista własnie w taki sposób może zarobić np.30 dolarów (zależności od jego ceny). Tak wiec zaczynam od stworzenia nowego projektu i podpisaniu go np. FakeGenerator.

 

Dobrze jeżeli już stworzyłeś nowy projekt i podpisałeś go czas na dodanie:

 

  • ComboBox1
  • ComboBox2
  • Możesz zastosować PictureBox1 - oczywiście jeżeli chcesz.
  • TextBox1
  • Button1
  • Button2
  • ProgressBar1
  • Label1
  • Label2
  • Timer1

 

  1. Podpisujemy sobie Button1 - Start / Button 2 - Stop

KOD:

   Dim a As Double
        a = 0
        If TextBox1.Text = "" Then
            MessageBox.Show("Wpisz Swój Nick!.", "Error")
        Else
            a = (a + 1)
        End If
        If ComboBox1.Text = "" Then
            MessageBox.Show("Wybierz Serwer!", "Error")
        Else
            a = (a + 1)
        End If
        If ComboBox2.Text = "" Then
            MessageBox.Show("Wybierz serwer i ilość RT!", "Error")
        Else
            a = (a + 1)
        End If
        If a = (3) Then
            Timer1.Start()
            ProgressBar1.Value = ProgressBar1.Minimum
        End If

 

2.) Następnie Timer1 - KOD:

ProgressBar1.Increment(1)
        If ProgressBar1.Value = ProgressBar1.Maximum Then
            Timer1.Stop()
            Dim key As Integer
            key = (Rnd() * 1)
            Select Case key
                Case 1
            End Select
            MessageBox.Show("RT dodano", "Pomyślnie!")
        Else
            If ProgressBar1.Value = 1 Then
                Label2.Text = "Ładowanie"
            End If
            If ProgressBar1.Value = 15 Then
                Label2.Text = "Łączenie ze serwerem"
            End If
            If ProgressBar1.Value = 25 Then
                Label2.Text = "Wczytywanie ustawień konta"
            End If
            If ProgressBar1.Value = 45 Then
                Label2.Text = "Wczytywanie danych..."
            End If
            If ProgressBar1.Value = 55 Then
                Label2.Text = "Wczytywanie danych - zakończone!"
            End If
            If ProgressBar1.Value = 80 Then
                Label2.Text = "Łączenie z bazą..."
            End If
            If ProgressBar1.Value = 86 Then
                Label2.Text = "Wczytano pomyślnie!"
            End If
            If ProgressBar1.Value = 95 Then
                Label2.Text = "Proces zakończył się SUKCESEM!"
            End If
        End If

3.) Button2 - Czyli "STOP"

Timer1.Stop()

4.) Do "ComboBox1" mamy taką strzałeczkę rozwijamy ją i klikamy na "Edit Items..."

  • Dodajemy do niego:
  • Server1
  • Server2
  • Server3
  • Server4

Teraz w Properties szukamy : "DropDownHeight" Zmieniamy na "DropDownList".

 

5.) To samo robimy w "ComboBox2" - Z tym ze zamiast "Server" wpisujemy np. Ilość (u mnie RT).


Możemy wzbogacić program i różne ciekawe dodatki :). To na tyle , program nic w sobie takiego nie robi ale przy dobrej "reklamie" na yt + cena (np. 30zł) jest i też zarobek. Chciałem przedstawić Fake-Generator - NIGDY NIE UŻYWAŁEM GO DO ZŁYCH CELÓW, POSŁUŻYŁ ON TYLKO W CELACH NAPISANIA OWEGO PORADNIKA.

signjpg_swwrens.jpg

  • 3 tygodnie później...
Zkumeku Znawca

Zkumeku

Opublikowano
Znawca

Zkumeku

Opublikowano

 

RT-genera_nrawanq.jpg

 

Dzisiaj chcę pokazać wam jak działają mniej więcej "hacki" z YouTube.com/pl. Programista własnie w taki sposób może zarobić np.30 dolarów (zależności od jego ceny). Tak wiec zaczynam od stworzenia nowego projektu i podpisaniu go np. FakeGenerator.

 

Dobrze jeżeli już stworzyłeś nowy projekt i podpisałeś go czas na dodanie:

 

  • ComboBox1
  • ComboBox2
  • Możesz zastosować PictureBox1 - oczywiście jeżeli chcesz.
  • TextBox1
  • Button1
  • Button2
  • ProgressBar1
  • Label1
  • Label2
  • Timer1

 

  1. Podpisujemy sobie Button1 - Start / Button 2 - Stop

KOD:

   Dim a As Double
        a = 0
        If TextBox1.Text = "" Then
            MessageBox.Show("Wpisz Swój Nick!.", "Error")
        Else
            a = (a + 1)
        End If
        If ComboBox1.Text = "" Then
            MessageBox.Show("Wybierz Serwer!", "Error")
        Else
            a = (a + 1)
        End If
        If ComboBox2.Text = "" Then
            MessageBox.Show("Wybierz serwer i ilość RT!", "Error")
        Else
            a = (a + 1)
        End If
        If a = (3) Then
            Timer1.Start()
            ProgressBar1.Value = ProgressBar1.Minimum
        End If

 

2.) Następnie Timer1 - KOD:

 

ProgressBar1.Increment(1)
        If ProgressBar1.Value = ProgressBar1.Maximum Then
            Timer1.Stop()
            Dim key As Integer
            key = (Rnd() * 1)
            Select Case key
                Case 1
            End Select
            MessageBox.Show("RT dodano", "Pomyślnie!")
        Else
            If ProgressBar1.Value = 1 Then
                Label2.Text = "Ładowanie"
            End If
            If ProgressBar1.Value = 15 Then
                Label2.Text = "Łączenie ze serwerem"
            End If
            If ProgressBar1.Value = 25 Then
                Label2.Text = "Wczytywanie ustawień konta"
            End If
            If ProgressBar1.Value = 45 Then
                Label2.Text = "Wczytywanie danych..."
            End If
            If ProgressBar1.Value = 55 Then
                Label2.Text = "Wczytywanie danych - zakończone!"
            End If
            If ProgressBar1.Value = 80 Then
                Label2.Text = "Łączenie z bazą..."
            End If
            If ProgressBar1.Value = 86 Then
                Label2.Text = "Wczytano pomyślnie!"
            End If
            If ProgressBar1.Value = 95 Then
                Label2.Text = "Proces zakończył się SUKCESEM!"
            End If
        End If

3.) Button2 - Czyli "STOP"

Timer1.Stop()

4.) Do "ComboBox1" mamy taką strzałeczkę rozwijamy ją i klikamy na "Edit Items..."

  • Dodajemy do niego:
  • Server1
  • Server2
  • Server3
  • Server4

Teraz w Properties szukamy : "DropDownHeight" Zmieniamy na "DropDownList".

 

5.) To samo robimy w "ComboBox2" - Z tym ze zamiast "Server" wpisujemy np. Ilość (u mnie RT).

 

Możemy wzbogacić program i różne ciekawe dodatki :). To na tyle , program nic w sobie takiego nie robi ale przy dobrej "reklamie" na yt + cena (np. 30zł) jest i też zarobek. Chciałem przedstawić Fake-Generator - NIGDY NIE UŻYWAŁEM GO DO ZŁYCH CELÓW, POSŁUŻYŁ ON TYLKO W CELACH NAPISANIA OWEGO PORADNIKA.

 

Mógłbyś się pobawić z modyfikacją pamięci, dla bardziej wiarygodnego widoku w grach itp. ;)

9obpmnjr.png

Zkumeku Znawca

Zkumeku

Opublikowano
Znawca

Zkumeku

Opublikowano

@up o czym mówisz ? :)

Dopiero zaczynam ... :D

 

Modyfikacja zawartości pamięci tak.. by np. zamiast 20 golda pokazywało 1 000 000. Pobaw się cheat engine na początek by rozkminić sobie działanie tego. ;)

9obpmnjr.png

ExClusiVe. Bywalec

ExClusiVe.

Opublikowano
Bywalec

ExClusiVe.

Opublikowano

@ rozkminiam CE ,ale nie zakumałem o co Ci chodzi. :)

Dopiero zaczynam i nie wszystko muszę rozumieć. :P

 

@top co do poradnika, to pomaga się czegoś nauczyć, bo poczytałem te kody i troszkę kumam co do czego i co daje... :D

49107108736459053618.png

KONKURS !

KLIK !

  • 2 miesiące temu...
  • 3 tygodnie później...
blogesss Nowicjusz

blogesss

Opublikowano
Nowicjusz

blogesss

Opublikowano

xxx moglby ktos mi z kodem chodzi mi kod zeby jak nacisnac generate wygienerowalo losowy kod xxxxx-xxxxx-xxxxx-xxxxx-xxxxx na tym filmiku nie ma pokazane dokladnie

dzięki stary już 17$ dzięki temu poradnikowi zarobiłem

moglby mi ktos pomoc z tym kodem jak wygenerowac z tego filmiku co jest napisane xxxxx-xxxxx-xxxxx-xxxxx-xxxxx
Vipper Weteran

Vipper

Opublikowano
Weteran

Vipper

Opublikowano

Lepiej przerzucić się na CPA, ostatnio dużo serwisów powstaje, nowych LP itp. - można ładnie zarobić ;)

  • 1 rok później...
MisiKot Nowicjusz

MisiKot

Opublikowano
Nowicjusz

MisiKot

Opublikowano

Witam!

Czy nie lepiej użyć np. jak ktoś chce zobić prosty doładowywacz telefonu dodać MaskedTextBox moglibyśmy np zablokować możliwość wpisywania liter i znaków   <_<

  • 1 miesiąc temu...
  • 4 tygodnie później...
KitCat Nowicjusz

KitCat

Opublikowano
Nowicjusz

KitCat

Opublikowano

Proszę daj dl do gotowca ready to edit ;c bo w programowaniu nogom jestem­

Nie bierz się za programowanie[...]  ^_^

Jeżeli chcesz tylko do gotowca  to znaczy że nie chce ci się pracować... xD 

Co za filozofia wziąć sobie dodać Przyciski i textboxy i skopiować kody i wkleić... <_<

A jak widać nawet tobie się tego nie chcę[...] 8S

Temat(Jak można) Zakączam.  :P

Luke0nco Pomocnik

Luke0nco

Opublikowano
Pomocnik

Luke0nco

Opublikowano

Nie bierz się za programowanie[...]  ^_^

Jeżeli chcesz tylko do gotowca  to znaczy że nie chce ci się pracować... xD 

Co za filozofia wziąć sobie dodać Przyciski i textboxy i skopiować kody i wkleić... <_<

A jak widać nawet tobie się tego nie chcę[...] 8S

Temat(Jak można) Zakączam.  :P

Ten template jest btw do d..y, używam lepszego i kod tylko do 1 buttona :3

­

­

kazan [*] 2013-2018

Zarchiwizowany

Ten temat przebywa obecnie w archiwum. Dodawanie nowych odpowiedzi zostało zablokowane.

Tematy
×
×
  • Dodaj nową pozycję...