EXPIRAR
Ola Pessoal!!!
Gostaria de saber como criar ou onde encontrar fontes para programas que expirarão em 30 dias .
Exemplo: Quando instala o programa Macroemidia Flash, ele pede uma chave certo. apos o periodo de validade o programa nao abre mais, ne mesmo desinstalando e instalando novamente.
Gostaria de fazer igual com minha aplicaçao.
Amilton
Gostaria de saber como criar ou onde encontrar fontes para programas que expirarão em 30 dias .
Exemplo: Quando instala o programa Macroemidia Flash, ele pede uma chave certo. apos o periodo de validade o programa nao abre mais, ne mesmo desinstalando e instalando novamente.
Gostaria de fazer igual com minha aplicaçao.
Amilton
existem algumas formas de se fazer isso...
simplificando...
quando o software é iniciado pela primeira vez, ele cria um arquivo ou um registro nos registros do windows (mais comum inclusive), onde ele armazena um valor que pode ser a) a data de primeira execucao; b) a quantidade de vezes que a pessoa pode usar o software ainda
assim que voce desisntala o programa, este registro ou arquivo ainda estao no micro, ele nao remove estes dados. Desta forma voce eh obrigado a apaga-los manualmente se quiser reinstala-los
uma forma de pelo menos entender o processo:
na abertura de seu software
Private sub Form_Load()
dim i as byte
dim Arq as string
dim DataPrimeioUso as string
arq = app.path & "\MinhaProtecao.ptc"
if len(dir(arq,vbnormal)) MAIOR 0 then
i=freefile
open arq for input as #i
line input #i, DataPrimeiroUso
close #i
if abs(DateDiff("d", Now, cdate(DataPrimeiroUso)))0 then
msgbox "FECHAR APLICATIVO AQUI!"
endif
else
i=freefile
open arq for append as #i
print #i, now
close #i
endif
'CONTINUAR AQUI COM O SEU PROGRAMA
end sub
simplificando...
quando o software é iniciado pela primeira vez, ele cria um arquivo ou um registro nos registros do windows (mais comum inclusive), onde ele armazena um valor que pode ser a) a data de primeira execucao; b) a quantidade de vezes que a pessoa pode usar o software ainda
assim que voce desisntala o programa, este registro ou arquivo ainda estao no micro, ele nao remove estes dados. Desta forma voce eh obrigado a apaga-los manualmente se quiser reinstala-los
uma forma de pelo menos entender o processo:
na abertura de seu software
Private sub Form_Load()
dim i as byte
dim Arq as string
dim DataPrimeioUso as string
arq = app.path & "\MinhaProtecao.ptc"
if len(dir(arq,vbnormal)) MAIOR 0 then
i=freefile
open arq for input as #i
line input #i, DataPrimeiroUso
close #i
if abs(DateDiff("d", Now, cdate(DataPrimeiroUso)))0 then
msgbox "FECHAR APLICATIVO AQUI!"
endif
else
i=freefile
open arq for append as #i
print #i, now
close #i
endif
'CONTINUAR AQUI COM O SEU PROGRAMA
end sub
Tópico encerrado , respostas não são mais permitidas