ActiveLock 1.8.4

[alissong 1]

Pessoal,

 

Tive que formatar o micro que usava o activelock15v5.ocx e instalei o activelock184.ocx, porém o código que funcionava com o anterior não está mais. Descobrir que não essa propriedade "ActiveLock1.LiberationKey"

 

 

Private Sub cmdregistraragora_Click()

 

If txtcodigoliberacao.Text = "" Then

txtcodigoliberacao.SetFocus

Exit Sub

End If

 

ActiveLock1.LiberationKey = txtcodigoliberacao.Text

 

If Not ActiveLock1.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"

frmSplash.Show

MDIForm1.Caption = "VERSÃO REGISTRADA"

 

Unload Me

 

End If

 

End Sub

 

Private Sub cmdregistrardepois_Click()

 

With frm_protecao.ActiveLock1

' Se o usuário não esta registrado, verifica

' se ele alterou a data do sistema

 

If .LastRunDate > Now Then

MsgBox "ActiveLock detectou que você alterou a data do sistema !..."

 

End

End If

 

' Verifica o período de avaliação

If .UsedDays < 30 Then

frmSplash.Show

MDIForm1.Caption = "VERSÃO NÃO REGISTRADA"

Else

'Se período expirou avisa o usuário e sai

 

MsgBox "Seu periodo de avaliação terminou , Registre-se...!"

Unload frm_protecao

 

End If

 

End With

 

End Sub

 

Private Sub cmdsair_Click()

Unload frm_protecao

 

End Sub

 

Private Sub Form_Load()

Dim diasQueFaltaParaRegistrar As Integer

 

' Se o usuário é registrado exibe o formulário principal

If ActiveLock1.RegisteredUser Then

frmSplash.Show

Unload frm_protecao

 

Else

 

diasQueFaltaParaRegistrar = 0

 

diasQueFaltaParaRegistrar = 30 - (ActiveLock1.UsedDays)

 

txtdiasquefaltampararegistrar.Text = diasQueFaltaParaRegistrar

 

If diasQueFaltaParaRegistrar <= 0 Then

cmdregistrardepois.Enabled = False

End If

 

txtcodigodoprograma.Text = ActiveLock1.SoftwareCode

End If

 

End Sub

 

Alguem sabe por qual propriedade devo trocar.

 

 

Um abraço.

 

 

Alissong

[alissong 1]

Pessoal,

 

 

Resolvido.

 

 

Um abraço.

 

 

Alissong

[hostwap 0]

http://forum.imasters.com.br/public/style_emoticons/default/clap.gif

Como resolveu, poderia postar o codigo?

 

Agradecido