Jak zrobić "serial code do programu" ?, Visual studio 2013 ultimate lub nie

[HeroGraj]

Chodzi o to że gdy wejdziemy w program, wyświetla nam sie jak by od kodu serial/kodu licencji
    
coś takiego (to z liter bedzie)

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

_______________________________________

|                                                                             |

|                                                                 [_][[]][X]|

|______________________________________ |  

[                                    Witamy!                            |

|Witamy w programie (nazwa programu)                |

|  Aby aktywować program należy wpisać kod        |

|      (najlepiej zeby byl z pliku txt na jakims            |

|   hostingu, plikow typu dropbox nie wiem sam)    |

|                                                                             |

|      [xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx]          |

|                                                                             |

|                                                                             |

|                                                                             |

|                                                                             |

|                                                                             |

|                                                                             |

|_______________________________________|

 

xxxxxxxxxxxxxxxxxxxxxxxxxxxx - jakis tam serial (kod)

Mozna takie cos zrobic? napiszcie mi kod prosze, i prosze nie piszcie, chcesz to dam ci taki kod, ale nie za darmo :P   
Nie chce takiego

Raczej wiecie o co chodzi

[somanyidiots]

Nie dam ci gotowca, ale nakieruje jak zrobić bo to banalnie proste. Tworzysz tablice string z np 100 elementami, wypełniasz ją tymi serialami. Następnie wstawiasz w gui textboxa i buttona. W kodzie buttona dajesz przypisanie do textboxa wartością stringa z tablicy oczywiście numer pola wylosowany funkcją random. Proste.

[HeroGraj]

a ps: a jak zrobić żeby form2 gdy sie go wyłączy program się wyłączał dopuki nie wpisze sie kodu poprawnego i jak zrobić że jak wpisze kod niepoprawny będzie pisało że zły? a jak dobry to przekieruje go do programu (form1) i więcej nie będzie musiał wpisywać kodu?   a i możesz mi troche lepiej objaśnić? tablica string? o co chodzi? że panel? czy co? gui - środek? i ten kod na random, podsumowując, możesz zrobić jakies screeny/poradnik yt? byłbym ci wdzięczny i to bardzo bardzo
 

[HeroGraj]

troszke zajarzyłem,

ale gdy w tablicy string wpisuje seriale, mam je w tekście txt boxa, prosze zrób poradnik yt jak to zrobić

[HeroGraj]

@Ref

[Vesim]

http://msdn.microsoft.com/en-us/library/eefw3xsy(v=vs.90).aspx masz przykład. Wystarczy przerobić.

[HeroGraj]

@Ref

Wole poradnik na yt :/ nie pojmuje kurde nie pisac zebym se dal spokuj bo se nie dam

Bo nie wiem gdzie co jak

Albo po polsku to co podales

[ЯevoX]

Japierdole człowieku. Ludzie Ci podają gotowy kod, masz wszystko wyjaśnione, czego ty nie rozumiesz ?

 

Nie umiesz zrobić tablicy, wstawic w nie kodu. a później skopiować kod na losowanie ?

 

Wróć do podstaw VB bo nie rozumiesz najprostszych rzeczy

 

To co podał kolega wyżej z MSDN jest po polsku, i właśnie ma zapobiegać takim prostym pytaniom jakie ty zadajesz,

 

Po drugie, jak nie znasz takich podstaw angielskiego, to nawet nie zaczynaj programowania

[boleknowak]

To nie lepiej zrobić

If TextBox1.Text = "klucz" Then

       MessageBox.show("Poprawny kod! Kod: " + TextBox1.Text)

End If

 

??? nie lepiej chyba że o co innego chodzi to sory

[Gość]

Link co podał Vesim (objaśniam, sorka za jakieś ewentualne błędy w wyjaśnianiu):

- 2 stringi (jeden z doma key'ami, drugi z szukaną zawartością czyli JKL).

- Str następnie szuka tego JKL (FindThisString) w StrArray (nasze key'e).

- następnie poprzez MessageBox oznajmiasz użytkownika, że taki klucz został znaleziony i jest poprawny.

 

Coś jeszcze wytłumaczyć?

[HeroGraj]

@Ref

Dlaczego nie możecie zrobić tego o co prosiłem, no może o to nie, dobra nie wazne, wole ta tablice a nie jakies inne, kody serial, a jak zrobić że jak sie wpisze zły, to pisze zły a jak dobry to pisze dobry i ok, ale przełącza na form(Jakis tam) a tego wylacza co sie wpisywalo i juz nigdy nie pokazuje.

[ЯevoX]

Z całym szacunkiem czy Ty jesteś jakiś opóźniony ?

 

Co najmniej 5+ osób podało Ci jak dokładnie to zrobić, dali ci linka do MSDN Z GOTOWYM KODEM.

 

Za prośbę o gotowce powinny być warny

[HeroGraj]

Z całym szacunkiem czy Ty jesteś jakiś opóźniony ?

 

Co najmniej 5+ osób podało Ci jak dokładnie to zrobić, dali ci linka do MSDN Z GOTOWYM KODEM.

 

Za prośbę o gotowce powinny być warny

z MSDN, mam errory więc szukam innych sposobów wolałbym z tablicy to pierwsze ale nie ogarniam bo mi sie pojawiaja te seriale razem w textboxie i nie wiem tez jak to zrobic a o poradniki nie mozna prosic?...

[ЯevoX]

Ty nie prosisz o poradnik, Ty prosisz o gotowy kod. Z MSDN nie moze Ci wywalac errorow, pewnie po prostu kopiujes kod ktory nawet w vb nie jest.

[HeroGraj]

skoro tak bardzo sie na tym znasz to może zrobisz mi poradnik, spodziewam sie odmowy ale spytać mi wolno...

[ЯevoX]

utworz sobie vb z funkcja

Public Function GenerateKey(ByVal serial As Long) As Long
        Dim x As Long = serial
        Return x * x + 53 / x + 113 * (x / 4)
    End Function

 

dalej, tworzysz forme tworzenia kodu

 

Public Class Generator
 
    Private Sub btnGenerate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGenerate.Click
        Dim serial As Long
        If Not Long.TryParse(txtSerial.Text, serial) Then
            MessageBox.Show("Inavlid serial number")
            Exit Sub
        End If
 
        Dim kg As New KeyGenerator
        Dim key As Long = kg.GenerateKey(serial)
        txtKey.Text = key
    End Sub
 
    Private Sub Generator_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
    End Sub
End Class

 

dalej, forma logowania

 

 

Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim serial As Long
        Dim sm As New SecurityManager
        serial = sm.GetSerial
        txtSerial.Text = serial
    End Sub
 
    Private Sub btnActivate_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnActivate.Click
        Dim key As Long
        If Not Long.TryParse(txtKey.Text, key) Then
            MessageBox.Show("Invalid activation key")
            Exit Sub
        End If
 
        Dim sm As New SecurityManager
        If sm.CheckKey(key) Then
            MessageBox.Show("Activation was successful")
        Else
            MessageBox.Show("Activation was unsuccessful")
        End If
    End Sub
 
    Private Sub btnKeyGenerator_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKeyGenerator.Click
        Dim frm As New Generator
        frm.ShowDialog()
    End Sub
End Class

koniec

[HeroGraj]

@Ref

Ale ja chce żeby ludzie wpisywali kod jakis moj co  wymysle a nie sobie wymyslalli bo piszesz ze forma tworzenia kodu, powiem tyle, KURDE CZEMU JA TEGO NIE ROZUMIEM!

[howcio]

@Ref

 

Ale ja chce żeby ludzie wpisywali kod jakis moj co  wymysle a nie sobie wymyslalli bo piszesz ze forma tworzenia kodu, powiem tyle, KURDE CZEMU JA TEGO NIE ROZUMIEM!

Bo jesteś idiotą. Tyle w temacie.

[HeroGraj]

@Ref

[alex9819]

W skrócie dajesz form2 jako startowy, dodajesz setting i texbox w setting wpisujesz seriale i kod do textboxa if texbox.text = my.setting.serial then 

close.me

show.form1

Else

quit( czy co tam chcesz )

 

Chodzi tu o to że textbox sprawdzi zmienną z settinga i gdy będzie poprawna okno się zamknie i odpali okno programu czy dalszego instalatora to zależy od ciebię. Sorrki za możliwe błędy sam się dopiero uczę. Jak będziesz potrzebował bardzo zdrobnionej pomocy to z chęcią pomogę na skype (profil).

Pozdrawiam Cross'ik.

[piotrek693206]

Ja bym to zrobił przez FTP. Czyli np tworze na ftp plik darek232-key.txt (tutaj cd-key) i darek232.txt(to pozostawiasz puste, albo jak wolisz) w programie daje :

 

 Dim clients As WebClient = New WebClient
        Try
            Dim key As String = clients.DownloadString("http://mojastrona.pl/program/" & imie.Text & "-key")
            If key = keys.Text Then
                MsgBox("Gratulacje ! Dziękujemy zakupu programu!", MsgBoxStyle.Information)
                If Windows.Forms.DialogResult.OK Then
                    Me.Hide()
                    program2.Show()

                End If
            Else
                MsgBox("Błędny CD-Key!", MsgBoxStyle.Critical)
            End If
        Catch ex As Exception
            MsgBox("Złe imię!", MsgBoxStyle.Critical)

        End Try

 

Mozna też użyć wpisów do rejestru ale to już wygoogluj, nie będe ci gotowców dawał

[alex9819]

Serio panowie po co grzebać w rejestrze skoro serial można wsadzić do setting'a programu.
Pozdrawiam Cross.

[piotrek693206]

Alex settings możesz odczytać notatnikiem , chyba ze zakodujesz chociaż do SHA1 w co jego doświadczeniu watpie

Po drugie jak ty chcesz odpalić form1 jak pierwsze piszesz me.close ?

 

Sorry za post pod postem ale jestem na telefonie

[alex9819]

Nie ma sensu niczego kodować ani chować, większość ludzi nie szuka takich plików, prędzej znajdą alternatywny program.

A do drugiego to przecież wystarczy ustawić form z keyem jako pierwszy po czym np odpali się form 3 z napisem key poprawny a na koniec form 2 ze zwykłym programem. :P

[piotrek693206]

A jak autor tematu/programu nie chce żeby inni ludzie używali tego samego key'a ? a w razie znalezienia takiego key'a zablokowania go ? nie pomyślałeś o tym ? Takie stringi (my.settings) znajduje się w ciągu paru chwil, jak wiesz że minecraft jest w %appdata% to jesteś już w domu wystarczy poszukać...