ACTIVELOCK
Se alguém tiver um exemplo de como usar esta ferramenta, sem ser o exemplo da Macorati, e puder me enviar eu agradeço.
Pois não estou conseguindo registrar a chave para liberar o sistema, já gerei o codigo do sistema, e criei a chave, só não estou conseguindo programar o botão Registrar.
[txt-color=#000080]Por Jose.Niz:
Removido a palavra SOCOOOOOOOOOORRO do tÃtulo.
Ae galera de administradores tão ficando muito moles.[/txt-color]
Pois não estou conseguindo registrar a chave para liberar o sistema, já gerei o codigo do sistema, e criei a chave, só não estou conseguindo programar o botão Registrar.
[txt-color=#000080]Por Jose.Niz:
Removido a palavra SOCOOOOOOOOOORRO do tÃtulo.
Ae galera de administradores tão ficando muito moles.[/txt-color]
Prezado colega
Poste seu código, fica mais facil
Poste seu código, fica mais facil
ACTIVE LOCK
Espero que isso te ajude
Espero que isso te ajude
Veja esse código talvez resolva seu problema:
Private Sub cmdRegistrar_Click()
If Text2.Text <> "" Then
ActiveLock1.LiberationKey = Text2
If ActiveLock1.RegisteredUser Then
MsgBox "Obrigado por Registrar este software, reexecute o programa."
frmPrincipal.mnuRegistrar.Visible = False
End
Else
MsgBox "Chave inválida, digite novamente!", vbExclamation, "Chave inválida"
Text2.SelStart = 0
Text2.SelLength = Len(Text2)
Text2.SetFocus
End If
End If
End Sub
Private Sub cmdRegistrar_Click()
If Text2.Text <> "" Then
ActiveLock1.LiberationKey = Text2
If ActiveLock1.RegisteredUser Then
MsgBox "Obrigado por Registrar este software, reexecute o programa."
frmPrincipal.mnuRegistrar.Visible = False
End
Else
MsgBox "Chave inválida, digite novamente!", vbExclamation, "Chave inválida"
Text2.SelStart = 0
Text2.SelLength = Len(Text2)
Text2.SetFocus
End If
End If
End Sub
Sinto mas esse código não ajudou, pois faço todo procedimento, mas o Activelock não reconhece o usuário como registrado
Alberto,
Qual versão do ACTIVELOCK vc está usando?
Luiz
Qual versão do ACTIVELOCK vc está usando?
Luiz
Citação:L_CARLOS escreveu:
Alberto,
Qual versão do ACTIVELOCK vc está usando?
Luiz
é a 1.8 pq?
No botão REGISTRAR coloque:
lock1.Register (txtLiberationKey)
Depois no evento REGISTRATION do activelock coloque:
Private Sub lock1_Registration(WasSuccessful As Boolean)
If WasSuccessful Then
MsgBox "Obrigado por registrar o programa! ", vbExclamation
Else
MsgBox "REGISTRO INVALIDO!", vbExclamation
txtLiberationKey.Text = ""
txtLiberationKey.SetFocus
Exit Sub
End If
End Sub
lock1.Register (txtLiberationKey)
Depois no evento REGISTRATION do activelock coloque:
Private Sub lock1_Registration(WasSuccessful As Boolean)
If WasSuccessful Then
MsgBox "Obrigado por registrar o programa! ", vbExclamation
Else
MsgBox "REGISTRO INVALIDO!", vbExclamation
txtLiberationKey.Text = ""
txtLiberationKey.SetFocus
Exit Sub
End If
End Sub
Eu já criei o form e inseri a ocx, é gerado o código do sistema, depois eu gero uma chave com o keygenerator, mas não sei onde vai constar esta chave para ser reconhecida, pois quando digito a chave me dá a mensagem de chave invalida.
Se alguem pudesse me postar um exemplo de como utilizar esta OCX do Activelock do começo ao fim, eu agradeceria, pois já estou quase desistindo!
Um Abraço.
Se alguem pudesse me postar um exemplo de como utilizar esta OCX do Activelock do começo ao fim, eu agradeceria, pois já estou quase desistindo!
Um Abraço.
Tópico encerrado , respostas não são mais permitidas