[Pomoc]Jak zrobić aktywację klucza.

[TheKamil245]

Witam, chcę by po włączeniu mojego programu w vb wymagał klucza który ja tylko będę mieć.

Jak to zrobić ?

 

Tak zwany "serial do mojego programu który tylko ja znam".

[TheKamil245]

Pomoże ktoś FAST nie mam całej nocy!

[reedy66]

Musisz np. na FTP wrzucić hasło, a ustawić zdarzenie w button by logował się na ftp i sprawdzał czy podana fraza (w tym przypadku jest to serial) jest prawidłowa, jeśli jest to pokazuje msgbox czy tam inne zdarzenie.Inaczej jakbyś chciał to najprościej będzie wpisać if textbox1 text = fraza.z.ftp then show msgbox "klucz prawidłowy". Oczywiście w odpowiedniej składni języka VB. Gotowego rozwiązania Ci nie dam bo chcę żebyś się czegoś nauczył i użył tzw. mózgu .

[TheKamil245]

Musisz np. na FTP wrzucić hasło, a ustawić zdarzenie w button by logował się na ftp i sprawdzał czy podana fraza (w tym przypadku jest to serial) jest prawidłowa, jeśli jest to pokazuje msgbox czy tam inne zdarzenie.Inaczej jakbyś chciał to najprościej będzie wpisać if textbox1 text = fraza.z.ftp then show msgbox "klucz prawidłowy". Oczywiście w odpowiedniej składni języka VB. Gotowego rozwiązania Ci nie dam bo chcę żebyś się czegoś nauczył i użył tzw. mózgu .

A nie idzie tak zrobić, wpisać kilka kluczy w program a potem odpalić z któregoś bez ftp ?

[Gość Pan Szymek]

Dim klucze() As String = { "Klucz1", "Klucz2" }

 

Function sprwadzKlucze(wartosc As String)

{

For i As Integer = 0 To klucze.Length-1

If klucze(i).Equals(wartosc)

retrun True

Next i

return False

}

[TheKamil245]

Dim klucze() As String = { "Klucz1", "Klucz2" }

 

Function sprwadzKlucze(wartosc As String)

{

For i As Integer = 0 To klucze.Length-1

If klucze(i).Equals(wartosc)

retrun True

Next i

return False

}

Dzięki like.