PROGRAMA TRIAL

NILSINHO 03/01/2014 10:39:41
#432613
Pessoal, Minha duvida e sobre a aplicação nslock, eu tenho ele no meu compurador para fazer alguns plicativos e mais para estudar. Quando executo ele no VB6 aparece que tem 30 dias para registrar, no dia seguinte ao executar novamente 29 dias para registrar, no outro dia 28 dias para registrar...... e assim sucessivamente até o último dia para registar. No último dia ele trava. Gostaria de saber em que parte do código podemos alterar para que quando chegeu no ultimo dia posso colocar de volta os 30 dias assim pra comçeca novamente. O codigo é esse:

Private Sub cmdregistraragora_Click()

If txtcodigoliberacao.Text = [Ô][Ô] Then
txtcodigoliberacao.SetFocus
Exit Sub
End If

frmMenu.alock.LiberationKey = txtcodigoliberacao.Text

If Not frmMenu.alock.RegisteredUser Then
MsgBox [Ô]Chave de LIBERAÇÃO INCORRETA[Ô], vbOKOnly + vbCritical, [Ô]Chave Liberação Incorreta[Ô]
txtcodigoliberacao.SetFocus
Else
MsgBox [Ô]REGISTRO EFETUADO COM SUCESSO ![Ô], vbExclamation, [Ô]Registro OK[Ô]
frmMenu.lblaviso.Visible = False
frmMenu.Caption = [Ô]VERSÃO REGISTRADA[Ô]
frmMenu.lblregistro(2).Enabled = False
Unload Me

End If
End Sub

Private Sub cmdregistrardepois_Click()
Unload Me
End Sub

Private Sub cmdSair_Click()
End
End Sub

Private Sub Form_Load()

Dim diasQueFaltaParaRegistrar As Integer

diasQueFaltaParaRegistrar = 0

diasQueFaltaParaRegistrar = 30 - (frmMenu.alock.UsedDays)

txtdiasquefaltampararegistrar.Text = diasQueFaltaParaRegistrar


If diasQueFaltaParaRegistrar <= 0 Then
cmdregistrardepois.Enabled = False
End If

txtcodigodoprograma.Text = frmMenu.alock.SoftwareCode
End Sub
MARCELO.TREZE 03/01/2014 14:20:52
#432621
bom eu nunca usei o nslock, mas pelo que eu entendi o userdays conta quantos dias o programa foi usado, então o que você Pode fazer é aumentar a quantidade de dias.

Private Sub Form_Load()

Dim diasQueFaltaParaRegistrar As Integer

diasQueFaltaParaRegistrar = 0
[txt-color=#007100][ô] aumente o 30 para 60 e terá mais 30 dias colega[/txt-color]
diasQueFaltaParaRegistrar =[txt-color=#0000f0] 30[/txt-color] - (frmMenu.alock.UsedDays)

txtdiasquefaltampararegistrar.Text = diasQueFaltaParaRegistrar


If diasQueFaltaParaRegistrar <= 0 Then
   cmdregistrardepois.Enabled = False
End If

txtcodigodoprograma.Text = frmMenu.alock.SoftwareCode
End Sub
FILMAN 03/01/2014 20:02:56
#432636
Cara pesquisa aqui no forum que você encontrará exemplos de sistemas trial

pesquise por TRIAL
NILSINHO 06/01/2014 10:37:48
#432673
Ha! Marcelo, entendi agora.
Valeu! muito obrigado!

Filman, eu já pesquisei mas minha dúvida era quanto aumentar os dias para registro do nslock mas eu te agradeço pelo o post. Valeu!
Faça seu login para responder
Voltar