X

Zmaga.com | Zmagajmo z znanjem  
Programi Programski jeziki Visual Basic  
  Kliknite tukaj, da si ogledate profil, kot ga vidijo drugi

Zavarujmo program s serijsko kodo 2/2

 
   
  V tej lekciji vam bom pokazal, kako zavarujemo svoj program s serijsko kodo. V prvem delu smo ustvarili generator serijske kode, ki ga bomo v tem delu sedaj uporabili.
 
 
1
 
 
  V prvi lekciji smo si ustvarili generator serijskih kod. Kliknite tukaj za ogled lekcije.
 
 
2
 
 
  Najprej seveda odpremo program (ali ga ustvarimo), katerega bomo zavarovali. Jaz sem odprl pregledovalnik slik, katerega lekcija se nahaja tukaj.
 
 
3
 
 
  Potem sem dodal novo okno ("Form").
 
 
4
 
 
  Malo sem ga preuredil (spremenil ime, odstranil nepotrebne gumbe, odstranil ikono ter mu določil, da ni viden v orodni vrstici ter ga nazadnje še malo raztegnil).
 
 
 
5
 
 
  Potem sem mu dodal še "TextBox" ter "Button".
(Gumbu sem še dodal tekst "Potrdi")
 
 
6
 
 
   Sedaj pa pojdimo h kodi. Dvokliknemo na gumb "Potrdi" ter vpišemo naslednjo kodo:
If TextBox1.Text = "koda1" Then
            Form1.Show()
            Me.Hide()
            'Tukaj preveri za kodo1
        ElseIf TextBox1.Text = "koda2" Then
            Form1.Show()
            Me.Hide()
            'Tukaj preveri za kodo2
        ElseIf TextBox1.Text = "koda3" Then
            Form1.Show()
            Me.Hide()
            'Tukaj preveri za kodo3
        ElseIf TextBox1.Text = "koda4" Then
            Form1.Show()
            Me.Hide()
            'Tukaj preveri za kodo4
            'P.S. Tekste (koda1,koda2,koda3,koda4) spremenite v željene kode. Priporočam, da jih vpišete z velikimi znaki
        Else
            MsgBox("Napačna koda, prosimo kupite program, ali preverite, če je koda zapisana z velikimi črkami" + vbNewLine + vbNewLine + "Powerzan", MsgBoxStyle.Critical, "Napačna koda")
        End If

Kodo lahko dodajate tako, da dodate naslednji tekst pred "End If":
ElseIf TextBox1.Text = "koda" Then
            Form1.Show()
            Me.Hide()
            'Tukaj preveri za kodo
 
 
7
 
 
  Včasih pa nas moti, da ne moremo le vpisati kodo ter pritisniti tipko "Enter". Kako to popraviti? Dvokliknite na okno ter vpišite naslednjo kodo:
AcceptButton = Button1
        'Ustvari t.i. Enter gumb
 
 
8
 
 
  Ker pa ne želimo vsakič preverjati za kodo, pa bomo dodali spominsko funkcijo. Najprej greste pod zavihek "Project" ter zatem kliknete "IME PROJEKTA properties.
 
 
9
 
 
  Potem kliknemo na zavihek "Settings.
 
 
10
 
 
  Nato kliknemo na prazno vrednost (ime te vrednosti je "Setting"), ter nastavimo ime "potrjen", ter za "Value" nastavimo vrednost "0" (0 bo pomenilo, da serijske kode še ni vpisal ali pa je bila napačna, 1 pa ravno obratno.
 
 
11
 
 
  Nato gremo v kodo gumba "Potrdi".
(Tam kjer je okno za vpis serijske kode)
 
 
12
 
 
  Zdaj pod vsakim "Me.Hide" napišemo še:
My.Settings.potrjen = "1"
 
 
13
 
 
  Pod kodo "AcceptButton = Button1" pa vpišemo tole:
If My.Settings.potrjen = 0 Then
            'Preveri če je vrednost 0, če je potem ne naredi nič
        Else
            'Sicer odpre Okno1 ter sebe skrije
            Me.Hide()
            Form1.Show()
        End If
 
 
14
 
 
  Verjetno vas bo motilo, da ko zaprete okno, ki se odpre po tem oknu, se proces ne zaustavi čisto. To odpravite tako, da greste v okno, ki vas moti, dvokliknete nanj ter v zgornjem desnem kotu izberete "FormClosing".
 
 
15
 
 
  Zdaj vpišete naslednjo kodo:
Form2.Close()
'Ime Form2 zamenjajte z imenom okna za serijsko kodo

To bo dokončno zaprlo program, ki se ne bo več le skril.
 
 
16
 
 
  Če pa slučajno ne znate nastaviti glavno okno (tisto, ki se odpre ob zagonu programa) pa storite naslednje. Kot pri koraku 8 greste v nastavitve projekta, le da greste pod zavihek "Application", tam pa v izbirniku "Startup form" izberete glavno okno.
 
 
17
 
 
  Zdaj program le še preverite in vidite, da če narobe vpišete kodo, vam ven vrže sporočilo o napaki.
 
 
18
 
 
  Če pa vpišete pravilno kodo, pa se vam odpre naslednje okno.
 
 
19
 
 
  Če boste vpisali pravilno kodo, vam okna za registracijo ne bo prikazovalo več.

Morebitne težave in vprašanja sporočite na forum, kjer jih bomo s skupnimi močmi poskušali rešiti.
 
 
Komentiraj
 
 
Prijava in registracija
 
 
 
 
 
 
  Zmaga.com | Zmagajmo z znanjem
 
  Zmaga.com ponuja brezplačno in razumljivo učenje računalniških programov, nudi enkraten način spoznavanja z različnimi svetovnimi jeziki, vas s podrobno obrazloženimi recepti nauči kulinarike in vam prežene strahove pred domačimi opravili.