Olá galera!

Estou eu novamente aqui para pedir uma ajuda e  tirar uma dúvida.

Os amigos do fórum me ajudaram a fazer essa rotina:

Private Sub Form_Load()
If Day(Date) = 7 Then
   MsgBox "lincença expirando daqui a uma semana", vbInformation, "Aviso!!"
   ElseIf Day(Date) = 8 Then
   MsgBox "lincença expirando daqui 6 dias", vbInformation, "Aviso!!"
   ElseIf Day(Date) = 9 Then
   MsgBox "lincença expirando daqui a 5 dias", vbInformation, "Aviso!!"
   ElseIf Day(Date) = 10 Then
   MsgBox "lincença expirando daqui a 4 dias", vbInformation, "Aviso!!"
   ElseIf Day(Date) = 11 Then
   MsgBox "lincença expirando daqui a 3 dias", vbInformation, "Aviso!!"
   ElseIf Day(Date) = 12 Then
   MsgBox "lincença expirando daqui a 2 dias", vbInformation, "Aviso!!"
....

No final fiz uma rotina para que abrisse um form para colocar uma senha de liberação.

Pois bem, depois que coloco a senha, abre-se o form cujo está com a rotina acima. Então, ele lê a rotina e como está no dia marcado para expiração,ele dá erro...

 

Gostaria de uma ajuda dos amigos para que quando digitar a senha de liberação,meu sistema não caia na rotina novamente e fique liberado.

Desde já agradeço a colaboração dos amigos que sempre me ajudam.

na realidade o ideal seria colocar esta chave no registro do windows, ou criar um arquivo ini oculto no sistema, ou seja o programa verifica se existe uma senha no registro e enquanto nao tiver vrifaca o tempo apos inserir esta chave a mesma sera salva no sistema e pronto.

Pegue esta rotina, coloque em um módulo, do formulário inicial, chame a função, e pegue apenas o retorno, pronto, fica ótimo.

Para digitar ao invés de usar um formulário, use o InputBox.

 

vlu//

 

vlu//

o problema do mesmo é digitar a chave e não chamar mais esta rotina!

pelo que eu entendi, entao seu programaso roda até o dia 14 de qualquer mes...

tá muito mal esse codigo!!

faz como o Treze falou, so que vc tem que inserir tambem no registro a data em que ele foi instalado, dando assim os dias correto de avaliacao ao usuario!!

 

Obrigado pela ajuda galera!!