Protegendo o Programa com nslock

[Flecha]

Quem não sabe pergunta!!!

peguei um exemplo no site do Macoratti sobre o assunto, lá tem também um exemplo para baixar, o link esta abaixo:

http://www.macoratti.net/vb_nslc1.htm

Funciona direitinho, só que eu mudei a data do sistema para ver se barrava o acesso e barrou, mas agora o programa não funciona mais

será que alguém pode me orientar onde tenho que alterar para funcionar novamente ?

Ele barra nessa sub:

Private Sub Form_Load()

 If alock.LastRunDate > Now Then

    MsgBox "Ocorreu uma alteração na data do sistema operacional " _
    & vbCrLf & " O programa será encerrado.", vbOKOnly + vbCritical, "Erro de sistema"
    End
End If
If Not alock.RegisteredUser Then
     Me.Caption = "VERSÃO DE DEMONSTRAÇÃO"
Else
     Me.Caption = "VERSÃO REGISTRADA"
     lblaviso.Visible = False
     lblregistro(2).Enabled = False
End If
End Sub

Kuroi aprendi a colocar o código dentro do CODE...

Onde está esse LastRunDate para apagar o que tem dentro??

Não sei se tem que apagar algo no registro.

Grato

Flecha

Editado Fevereiro 22, 2010 por Flecha

[Flecha]

Pessoal,

Descobri, tem vários tópicos desse activelock, no próprio Macoratti, e ai eu achei outro escrito por ele que fala sobre

rodar novamente o mesmo soft, e ele diz:

Se você desejar outra cópia da mesma aplicação que tenha um comportamento diferente , deve mudar a propriedade SoftwareName.

Que é do ActiveLock

Pronto ai roda outra vez. Começando do Zero, avaliação e Registro

E se eu quizesse consertar o mesmo programa que está no Cleinte ??

Só mudo o executável???

Flecha

Editado Fevereiro 22, 2010 por Flecha