TRATAMENTO ANTI PIRATARIA

JDBASIC 08/06/2005 14:56:33
#87729
Boa-tarde, gostaria de saber se alguém conhece um programa que trave meu sistema feito em vb, periodicamente, tipo assim:

A cada 30 dias o sistema pessa para ser registrado, ai o usuário me solicita o código de destravamento ou de registro.

Eu conheco o ActiveLock, mas ele só trava uma vez, voces tem alguma idéia para que ele em um período especifico se alto trave novamente. Valeu.
DOMLOAD 08/06/2005 15:01:16
#87733
[txt-size=3]

Pesquise antes de postar...

http://www.vbmania.com.br/vbmforum.php?varMethod=Abrir&varID=65978&varSubPagina=1&varFiltro=filtro
http://www.vbmania.com.br/vbmforum.php?varMethod=Abrir&varID=47929&varSubPagina=1&varFiltro=filtro
http://www.vbmania.com.br/vbmforum.php?varMethod=Abrir&varID=65978&varSubPagina=1&varFiltro=filtro

Falow !!! [S71]

[/txt-size]
DOMLOAD 08/06/2005 15:03:44
#87735
[txt-size=3]

Agora com os links....

Aqui
Aqui
Aqui

[/txt-size][S20]

Falow !!
JEAN.JEDSON 08/06/2005 15:08:23
#87739
bem...
se quizer via código, tente assim (a função calculachave vc deve ter em sua máquina para poder retornar o código ao usuário):

private sub form_load()
Dim resultado As String
Dim vDataInicial As String
Dim vDataFinal As String
Dim vPeríodo As String
Dim vChave As String
Dim vTravar As String
vPeríodo = "30" 'quantidade de dias até pedir o registro novamente
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." & vbCrLf & _
"Entre em contato com o Administrador para nova Instalação" & vbCrLf & _
"Forneça os dados a seguir: " & Month(vDataInicial) & " / " & Year(vDataInicial), _
vbCritical, "Atenção!!!"
End If
vChave = InputBox("Digite o Código de Registro: ", "Registro", "")
If vChave = CalculaChave(Month(vDataInicial) & Year(vDataInicial)) Then
SaveSetting "NomeDoSistema", "Registro", "Travar", "Não"
SaveSetting "NomeDoSistema", "Registro", "Data", vDataFinal
MsgBox "Chave Validada com Sucesso. Obrigado por usar nosso Sistema.", vbCritical, "Atenção!!!"
Else
MsgBox "Chave Incorreta. O sistema somente será liberado quando for inserida a Chave correta.", vbCritical, "Atenção!!!"
End
End If
End If
End Sub

Private Function CalculaChave(Parametro As String) As String
Dim iCount As Integer
Dim sTemp As String
For iCount = 1 To Len(Parametro)
sTemp = sTemp & Chr(Asc(Mid$(Parametro, iCount, 1) * Int(iCount * 3.14)))
Next iCount
MsgBox sTemp
CalculaChave = sTemp
End Function
Tópico encerrado , respostas não são mais permitidas
Voltar