AXPIRAR APOS 30 DIAS...

USUARIO.EXCLUIDOS 05/06/2005 11:10:13
#87065

Dê uma pesquisada sobre o componente ActiveLook (Free). Ele possibilita que uma aplicação seja bloqueda num determinado período de uso ou um determinado número de vezes (uso).

USUARIO.EXCLUIDOS 05/06/2005 14:44:43
#87103

Você pode gravar em um arquivo quailquer, por exemplo .txt, a data de inicio e fazer os caulos a partir dai.

Por exemplo.
Ao abrir pela primeira vez o programa, o .exe verifica se na raiz possui um arquivo "data.txt"
Se não ouver, isso significa que o programa está sendo aberto pela primeira vez, ele cria o arquivo e coloca nele a data do sistema.
Se o arquivo já existir, significa que ele já foi criado, logo o programa já foi executado algumavez, então você abre o "data.txt" e faz o calculo da data atual do sistema - data do .txt, se for >= 30 então vc não abre o prog.

Esse método não é mt seguro, já que se o usuário atrazar a data do sistema ou deletar o arquivo "data.txt", o programa continuara funcionando mesmo após 30 dias.
O certo msm seria criar um sistema de contagem de vezes que foi usado, daí vc grava em um arquivo o número de vezes, mas coloca em um arquivo bem estranho e escondido, algo como "start.dll" (na verdade o arquivo é .txt disfarçado de .dll), ninguém deletaria uma .dll de um programa a fim de altera-lo...

FORMIGINHA 05/06/2005 15:30:29
#87122

wcosta eu uso o vb6 e não tem esta ferramenta. só a versão 5 q tem esta ferramenta.

JEAN.JEDSON 05/06/2005 15:44:20
#87128 Resposta escolhida

tente assim:

Private Sub Form_Load()
Dim resultado As String
Dim vDataInicial As String
Dim vDataFinal As String
Dim vPeríodo As String
Dim vTravar As String
vPeríodo = "30"
vTravar = GetSetting("NomeDoSistema", "Registro", "Travar")
vDataInicial = GetSetting("NomeDoSistema", "Registro", "Data")
vDataFinal = Format(Date, "dd/mm/yyyy")
If vTravar = "" Or vTravar = "Não" Then
If vDataInicial = "" Then
SaveSetting "NomeDoSistema", "Registro", "Travar", "Não"
SaveSetting "NomeDoSistema", "Registro", "Data", vDataFinal
Exit Sub
End If
End If
If vDataFinal = "" Then
resultado = "0"
Else
resultado = DateDiff("d", Format(vDataInicial, "dd/mm/yyyy"), Format(vDataFinal, "dd/mm/yyyy"))
End If
If vPeríodo <= resultado Or vTravar = "Sim" Then
If vTravar = "" Or vTravar = "Não" Then
SaveSetting "NomeDoSistema", "Registro", "Travar", "Sim"
MsgBox "O Prazo de Licença expirou." , vbCritical, "||| Atenção |||"
End
End If
End If
End Sub

FORMIGINHA 05/06/2005 16:10:42
#87138

p q allterei a data do windows e ele continuou funcionando?

FORMIGINHA 05/06/2005 16:12:12
#87139

AGORA SIM funcionou.

obrigado gean.