Utilizando registro do Windows

 

Para que utilizamos o registro do Windows?

Você pode utilizar o registro do Windows para armazenar dados sobre sua aplicação VB ou Access/VBA. Você pode armazenar por exemplo configurações do usuário, último acesso, id do usuário, preferências de impressão entre outras.

Utilize como garantia contra cópias ilegais armazenando uma chave criptografada que combine, por exemplo, nome, CNPJ ou CPF do cliente mais data de validação do sistema.

No registro do windows existe um local específico para vb e vba:
HKEY_CURRENT_USER\Software\VB And VBA Program Settings\

Vamos aos comando principais:

Gravar no Registro do Windows

Dim sTexto As String
Dim sID As String
sTexto = “Nome do seu Cliente”
sID = “GKGMKQCIMR” 'Chave criptografa

'Para gravar
'1 - comando
'2 - nome da empresa ou do aplicativo
'3 - pasta
'4 - Nome do atributo ou registro
'5 - Variável com o valor atribuido ao nome ou registro

'     1       2      3        4        5
SaveSetting "fse", "mode", "Reg", sTexto
SaveSetting "fse", "mode", "sID", sID

Ler uma informação no Registro do Windows

Dim sNome As String

'Para acessar um valor
'1 - variável que receberá o valor
'2 - comando
'3 - nome empresa ou aplicativo
'4 - pasta
'5 - Nome do atributo ou registro

'  1         2       3      4        5
sNome = GetSetting("fse", "mode", "Reg")
Me.Texto0 = sNome

Nota: Lembre-se que os dados conforme expostos acima são lido como string. Então você precisa utilizar as função de conversão para outros tipos como números inteiros, datas, etc. (cLng, cInt, cDbl, cCur… …)