PROBLEMA COM ACTIVELOCK E NSLOCK

TRTNCG 10/11/2009 18:06:07
#327387
Pessoal alguém poderia me ajudar, é o seguinte ao instalar em qualquer máquina o meu programa que quero que rode 30 dias após isso tem que registrar. Dá como período experiou, tipo como se já tivesse passado os 30 dias de teste. Sendo que instalei minutos antes. Pois era para ela pegar a data da primeira execução e somar com mais 30 dias para poder expirar. O que está contecendo?
WCOSTA 10/11/2009 19:16:35
#327392 Resposta escolhida
Poderia ser mais específico. Pelo que entendi o software conta 29 ao invés de 30?
TECLA 10/11/2009 19:30:06
#327393
Poste o código que está usando.
Somente com estas informações, fica difícil ajudá-lo.
TRTNCG 10/11/2009 20:06:32
#327398
Desculpas pessoal vou explicar melhor.

O software quando instalo em uma máquina era para ele funcionar durante 30 dias correto.

Só que quando executo o software após a instalação já dá período de teste expirado entenderam.

Ou seja nem posso testar.

Entenderam?
WCOSTA 11/11/2009 17:23:22
#327454
Citação:

TECLA escreveu:
Poste o código que está usando.
Somente com estas informações, fica difícil ajudá-lo.


Concordo com o Tecla, com o código postado ajuda.
Abraço
TRTNCG 11/11/2009 19:58:46
#327463
Esse Verifica se tá registrado ou não

If Not AC.RegisteredUser Then
If AC.LastRunDate > Now Then
MsgBox [Ô]Ocorreu uma alteração na data do sistema operacional [Ô] _
& vbCrLf & [Ô] O programa será encerrado.[Ô], vbOKOnly + vbCritical, [Ô]Erro de sistema[Ô]
End
Else
LIBERAR.BTNContinuar.Enabled = False
LIBERAR.Show 1
Timer1.Enabled = True
Unload Me
End If
Else
N = 0
Timer1.Enabled = True
End If


Verifica a quantidade de dias

TXTNUMERO.Text = SPLASH.AC.SoftwareCode

If SPLASH.AC.UsedDays < 0 Then
Label11 = [Ô]Restando [Ô] & 30 - (SPLASH.AC.UsedDays) & [Ô] dias para avaliação[Ô]
Else
Label11 = [Ô]Restando 0 dia(s) para avaliação[Ô]
End If
WCOSTA 12/11/2009 00:29:11
#327482
TRSoftwares
você precisa setar o tempo máximo de utilização do seu software
Tenta o código abaixo, marcado em vermelho e em negrito:
 
If AC.LastRunDate > Now Then
            MsgBox [Ô]Ocorreu uma alteração na data do sistema operacional [Ô] _
            & vbCrLf & [Ô] O programa será encerrado.[Ô], vbOKOnly + vbCritical, [Ô]Erro de sistema[Ô]
            End
[txt-color=#FF0000]ElseIf AC.UsedDays = 30 Then
            MsgBox [Ô]O tempo de teste foi excedido![Ô] _
            & vbCrLf & [Ô] O programa será encerrado.[Ô], vbOKOnly + vbCritical, [Ô]Tempo Excedido[Ô]
            End[/txt-color] 
Else
....
End If
WCOSTA 12/11/2009 00:29:56
#327483
Qualquer dúvida dá uma olhada no site do Macoratti
http://www.macoratti.net/locking.htm
Tópico encerrado , respostas não são mais permitidas
Voltar