Controle de Execução do Sistema para Clientes Mensalistas

Boa tarde,

Tenho um sistema e cobro mensalidade dos clientes.

Atualmente, estou usando hard lock da Safenet para controlar as mensalidades, mas agora quero deixar qualquer pessoa baixar o sistema e executá-lo por um período e depois deste período bloquear o sistema e somente liberar após o pagamento da mensalidade.

Alguma sugestão ?

Grato,

Eleandro
S. J. dos Campos - SP

Também estou precisando Eleandro. Vi esta função só que é para Excel VBA:

Código:


    Sub Macro1()
    Dim exdate As Date
    ‘data de expiração
    exdate = “14/09/2010”
    If Date > exdate Then
    varNum = Application.InputBox(“A planilha expirou, informe o codigo”, “Revalidação do prazo”, “####”)
    If varNum = 123456 Then
    Exit Sub
    End If
    MsgBox (“Você chegou no final do período de uso”)
    ActiveWorkbook.Close
    End If
    MsgBox (“Você têm ” & exdate – Date & ” Dias restantes”)
    End Sub


Não sei muito bem se pode implementar para VBA Access. As palavras do autor:
"Infelizmente não é possível fazer através de macro, mas para fazer implementar através de código vba é muito fácil."
Segue o link do autor: http://excelevba.com.br/expiracao-de-data-para-excel/

Este controle aí é muito simples e não é dinâmico.

Estou testando as soluções indicadas neste tópico: https://www.maximoaccess.com/t2291-resolvidoprotecao-contra-pirataria?highlight=pirataria

Obrigado pela atenção.

Abraço.