Ir para conteúdo
Fórum Script Brasil
  • 0

Travar Sistema


Guest Antip@s

Pergunta

5 respostass a esta questão

Posts Recomendados

  • 0

Nossa Brother!!

Que violencia...

Já vi algo parecido na web, mas não to conseguindo encontrar aqui agora...

você pode fazer no sistema, algo como um contador, após 30 dias ou até mesmo o prazo do pagamento o sistema automaticamente se bloquearia e ai, você estaria enviando a senha para fosse desbloqueado e matasse o contador.

Abraços!!!

[ursão]

Link para o comentário
Compartilhar em outros sites

  • 0

Mas é justamente isso que eu estou querendo saber. Não sei nada de VB, existe alguma ferramenta dentro do Acesses, como macros, que eu possa utilizar para desenvolver essa bendita trava?

Link para o comentário
Compartilhar em outros sites

  • 0

Cheguei!! Essa eu não sabia, por isso demorei em responder.

Fucei por aí e encontrei esse tópico no Fórum da revista "Forum Access", do amigo Alcides Passos Vieira (http://forumaccess.com/6/ubb.x?a=tpc&s=922...03331#111603331)

Divirtam-se:

Sds,

Rodrigo Bordini

__________________________________________________________________

Ola amigos!

Devido a enorme procura sobre o assunto de como usar a OCX (nslock15vb6.ocx) para criar programas do tipo TRIAL OU DEMO.

é que eu decidi disponibilizar o codigo. Se voce baixar o codigo original, vai ver que foi feito para rodar no VB5/6, mas eu adaptei para o VBA:

Passos Necessarios para este codigo funcionar:

1 - Voce deve adicionar as seguintes OCX na guia References no Ambiente de Desenvolvimento do Visual Basic:

"Microsoft Visual Basic For Applications Extensibility 5.3" e

"ActiveLock 1.2 (vb6 sp3)" ->Access 2000

2 - Setar como FormularioInicial na guia Inicializacao do Access OU atraves de uma funcao chamada pelo macro autoexec, ou ainda pela propria macro autoexec.

3 - Inserir o controle OCX diretamente no formulario e os 2 campos: Text1(software code) e Text2(Liberation key)

4 - Digitar o codigo abaixo de acordo com os eventos do formulario inicial.

Option Compare Database

Option Explicit

Private Sub RemoveRef()

'Eu uso este procedimento para verificar se o usuario não apagou a OCX do diretorio do windows ou se a mesma esta devidamente registrada e instalada no IDE do VB. Voce não e obrigado a usa-lo para fazer funcionar o processo de registro!!!!!!!

On Error GOTO ERRO

Dim ref As VBIDE.Reference

' Use the active project

With Application.VBE.ActiveVBProject

' Iterate through the references

For Each ref In .References

If ref.IsBroken Then

'nslock15vb5

If ref.Name = "nslock15vb6" Then

Application.VBE.ActiveVBProject.References.Remove ref

Application.VBE.ActiveVBProject.References.AddFromFile "c:\windows\System\nslock15vb6.ocx"

End If

End If

Next

End With

Exit Sub

Erro:

MsgBox "Necessário entrar em contato com o suporte - Erro na inicializacao " & "Numero: " & Err.Number & " Descricao: " & Err.Description

Application.Quit

End Sub

Private Sub RunLink()

'Eu criei este procedimento, para que o usuario possa efetuar a compra direto do meu site, antes ou depois de vencer o periodo de teste 30 dias.

Dim vAddress As String

vAddress="http://www.dm10.com.br/form_compra.htm"

Application.FollowHyperlink vAddress, , True

End Sub

Private Sub cmdCancel_Click()

'Insira este codigo para o BOTAO com caption tipo "ENTRAR SEM REGISTRAR" OU "Avaliar".

On Error Resume Next

If Me.ActiveLock1.LastRunDate > Now Then

MsgBox "Foi detectado que você alterou o relógio para uma data anterior! O sistema irá finalizar!"

End If

If Me.ActiveLock1.UsedDays < 30 Then

DoCmd.Hourglass -1

DoCmd.Close

DoCmd.Hourglass 0

Else

' If the evaluation period has expired...

REsp = MsgBox("O prazo de avaliação deste aplicativo expirou! Gostaria de obter o seu 'Chave de Ativação' agora?", SN + Q, strTit)

If REsp = 6 Then

Call RunLink

Else

Application.Quit

End If

End If

End Sub

Private Sub cmdFechar_Click()

Application.Quit

End Sub

Private Sub cmdRegistrer_Click()

'Aqui faz o registro propriamente dito

On Error Resume Next

' Set the LiberationKey:

ActiveLock1.LiberationKey = Text2

' Check if it was correct:

If Not (ActiveLock1.RegisteredUser) Then

MsgBox "Liberation key inválido!"

Else

MsgBox "Obrigado por registrar Cell Church 5.0- Administração de Igrejas!"

DoCmd.Hourglass -1

DoCmd.Hourglass 0

DoCmd.Close

End If

End Sub

Private Sub Form_Load()

On Error Resume Next

Call RemoveRef

'Na linha abaixo, calculo os dias de uso

Dias = Me.ActiveLock1.UsedDays

falta = 30 - Dias

If ActiveLock1.RegisteredUser Then

DoCmd.Close

Me.cmdRegistrer.Enabled = False

Else

Me.cmdRegistrer.Enabled = True

End If

Text1 = ActiveLock1.SoftwareCode

Text2 = ""

End Sub

obs.: O codigo pode ter ficado meio confuso, porque não tenho ainda muita familiaridade ao colar o codigo no campo de postar nova resposta, ele ficou desposicionado. mas voces conseguirao entender!!

Link para o comentário
Compartilhar em outros sites

  • 0

Obrigado pela resposta. Mas fiquei pensando, matutando, refletindo... E cheguei a um questionamento. Não seria mais fácil eu criar um form inicial com um botão "Entrar" e desabilitá-quando a data for maior que, por exemplo 07/02/2004? Se isso funcionaria como poderia implementar esse código no botão? Só relembrando que sou "barriga verde" em VB, sei quase nada... a sintaxe é toda diferente pra mim.

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,5k
×
×
  • Criar Novo...