Možeš na isti taj način da pohraniš informaciju o šifri.Posle tog koda stavi prvo da se proverava da li je aplikacija startovana manje od 10 puta, pa ako nije ne tražiš šifru.Ovo pišem iz glave, pa su moguće greške.
Code:
Private Sub Form_Load()
BrojOtvaranja = GetSetting(App.Title, "Podesavanja", "BrojPaljenja", 0)
BrojOtvaranja = BrojOtvaranja + 1
SaveSetting App.Title, "Podesavanja", "BrojPaljenja", BrojOtvaranja
If BrojOtvaranja < 10 Then
Exit Sub
Else
sifra = GetSetting(App.Title, "Podesavanja", "Sifra", "")
If sifra = "" Then
Dim a As String
a = InputBox("Unesite lozinku", "Provera lozinke")
If a = "nesto" Then SaveSetting App.Title, "Podesavanja", "sifra", a
End If
End If
End Sub
-Odracuonogakomijedrpiorazmaknicu.
-Ne rxdi mi txstxturx, kxd god hocu dx
ukucxm "x" onx ukucx "x".
-Ko kaaz e da ja neuummem da kuuca
m.
-Piše "Insert disk 3", a jedva sam i ova
dva ugurao u drajv
-Postoje samo dve osobe kojima
verujem, jedna sam ja, a druga nisi ti