Nema tu koda. Mogu jedino da postujem klasu za rad sa registry-em. Znači vrlo je prosto da se napiše neki kod za provjeru. evo kako sam ja radio:
Code:
Dim c
c = GetStringValue("HKEY_CURRENT_USER\Software\IcoCompany\Testovi", "REGISTAR")
'Čitanje iz reg
If c = "" Then SetStringValue "HKEY_CURRENT_USER\Software\IcoCompany\Testovi",
"REGISTAR", "1" 'ovo sam morao staviti jer prijavljuje grešku ako nepostoji ovaj key
c = GetStringValue("HKEY_CURRENT_USER\Software\IcoCompany\Testovi", "REGISTAR")
'Čitanje iz reg
If c = Serial() Then 'Serial() je moja f-ja (sa algoritam) za izračinavalnje
serijskog broja
Unload Me
Glavna.Show
Else
Login.Show
End If
I ♥ ♀
Ovaj post je zlata vrijedan!