[TuT] Fake Giftcode Generator

[ExClusiVe.]

1). Tworzymy Nowy Projekt i nazywamy go jak chcemy.

2). Wybieramy wielkość i według uznania ustawiamy :

• TextBox1 - Pole na wygenerowany "Giftcode"
• Button1 - Przycisk do generowania
• Button2 - Przycisk do wyjścia z programu
• Label1 - Info o nas lub poprostu nazwaprogramu

3). Klikamy 2x na Button1 i wpisujemy kod :

 

Dim key As Integer
        key = Int(Rnd() * 11)
        Select Case key
            Case 0
                TextBox1.Text = "TU WPISZ RANDOMOWY GIFTCODE"
            Case 1
                TextBox1.Text = "TU WPISZ RANDOMOWY GIFTCODE"
            Case 2
                TextBox1.Text = "TU WPISZ RANDOMOWY GIFTCODE"
            Case 3
                TextBox1.Text = "TU WPISZ RANDOMOWY GIFTCODE"
            Case 4
                TextBox1.Text = "TU WPISZ RANDOMOWY GIFTCODE"
            Case 5
                TextBox1.Text = "TU WPISZ RANDOMOWY GIFTCODE"
            Case 6
                TextBox1.Text = "TU WPISZ RANDOMOWY GIFTCODE"
            Case 7
                TextBox1.Text = "TU WPISZ RANDOMOWY GIFTCODE"
            Case 8
                TextBox1.Text = "TU WPISZ RANDOMOWY GIFTCODE"
            Case 9
                TextBox1.Text = "TU WPISZ RANDOMOWY GIFTCODE"
            Case 10
                TextBox1.Text = "TU WPISZ RANDOMOWY GIFTCODE"
        End Select

 

• key = Int(Rnd() * 11) - Jest to liczba naszych Case'ów (kieszeni) liczba "0" liczy się jako "1" czy jeśli mamy :

Case 0 / Case 1 - to msimy wpisać w tym polu 2, bo kieszenie są dwie!

• Case 0 - Jest to nasza kieszeń i jej numer (każdy musi być inny).
• TextBox1 - Jest to miejsce na wygenerowanie naszego fake giftcode.
• "TU WPISZ RANDOMOWY GIFTCODE" - W cudzysłów wpisujemy randomowe liczby i litery.

 

 

4). Klikamy 2x na Button2 i wklejamy kod :

 

MessageBox.Show("Treść okna", "Nazwa okna")
        End

 

• "Treść okna" - Wpisujemy w cudzysłów treść która ma się ukazać w oknie.
• "Nazwa okna" - W cudzysłów wpisujemy nazwę okna (chodzi o to co w pragramie nazywa się "Form1")
• MessageBox - Odpowiada za otwarcie okna, w którym będzie widniało to co napiszemy ... (to co linijke i dwie linijki wyżej)
• End - Po naciśnięciu w oknie "Ok" nastąpi zamknięcie programu

 

 

Jest to mój pierwszy poradnik w tym dziale, a VB mam od wczoraj ... jednak oglądam niemieckie tutki, na których jest dobrze wyjaśnione to czego na polskich forach się nie znajdzie.

 

Jeśli pomogłem to jebnij lajka. To nie boli.

 

 

Jeśli masz jakieś wątpliwości, znalazłeś błędy lub masz jakiekolwiek pytania to pisz! Napewno pomogę!

 

 

Tak będzie to wyglądało :

 

Gotowiec :

 

DL :

http://www26.zippyshare.com/v/88847849/file.html

 

Skan :

 

 

[Maka.Paka!]

Jakieś zdjęcie efektu końcowego? bo tu same napisy ://

[ExClusiVe.]

Dodany SS, jak będzie wyglądał generator po zrobieniu!

[ZiomalZfirmyHG]

Mocne, już rozumiem jak działają takie "generatorki"

[StuSto]

Niee On ma podane BANALNE generowanie liter Mozna zrobic prof. ze zawsze inne wyskakuja A nie sie powtarzaja.

[ExClusiVe.]

ale giftcode to nie jest byle jaki ciąg znaków tylko zawsze wygląda tak :

 

****-****-***

 

Więc nie można zastąpić tego generatorem ... :C Chyba że jest jakiś sposób ... (?)

[StuSto]

Haha czytnij sobie jakies poradniki Proste lap:

textbox1.text = Generate() & "-" & Generate()

itd....

[ExClusiVe.]

@up oka ! Dziękuję, bardzo mi pomagasz.

 

//Jeszcze dziś poprawie poradnik.

[James1919]

Ale on generuje jeden z tych które wpisaliśmy tak? Nie żadne nowe kody!

 

Edit czekam na poprawę hehe może sobie wygeneruje dobrego coda hle hle hle

[StuSto]

@UP nie możliwe CHyba ze wygenerujsze kod ktory juz istnieje i np sprzedaje sie go na allegro to jedyna opcja

[XxChackerxX]

Na co ja patrzę ...

za tego posta chyba otrzymam ostrzeżenie