DEIXAR OS DADOS GRAVADOS.
blz... se precisar, manda mensagem interna...
pode deixar amigo...
obrigado e desculpe não estar conseguindo peagr bem, é que sou novo neste assunto de registro com o windows.....
eu desenvolvi um programa completinho, só esta faltando fazer um tipo serial....
mas estou quebrando a cabeça...
agradeço pela sua atenção
obrigado e desculpe não estar conseguindo peagr bem, é que sou novo neste assunto de registro com o windows.....
eu desenvolvi um programa completinho, só esta faltando fazer um tipo serial....
mas estou quebrando a cabeça...
agradeço pela sua atenção
Caro Leandro Bueno ve se este código lhe ajuda em alguma coisa, eu o desenvolvi para minhas aplicações e funciona bem quando quero usá-lo mas acho que para vc vai servir é só dar uma estudada no meu código que vc consegue
Dim vData As String
Dim vData1 As Date
Dim vData2 As Date
Dim vData3 As Date
Dim resultado As String
Dim vDataInicial As String
Dim vDataFinal As String
Dim vDataRet As String
Dim vPerÃodo As String
vPerÃodo = "100"
vDataInicial = GetSetting("HKEY_LOCAL_MACHINE", "TravarVei", "Trava")
vDataFinal = Format(Date, "dd/mm/yyyy")
If vDataInicial = "" Then
vDataInicial = Format(Date, "dd/mm/yyyy")
SaveSetting "HKEY_LOCAL_MACHINE", "TravarVei", "Trava", vDataInicial
End If
vData1 = vDataInicial
If vDataFinal = "" Then
resultado = "0"
Else
vData2 = vDataFinal
resultado = vData2 - vData1
End If
If vPerÃodo <= resultado Then
MsgBox "Problemas com o Windows" & vbCrLf & "danificaram da Base de Dados", vbInformation, "SISGEP -> A T E N Ç Ã O !!!"
SaveSetting "HKEY_LOCAL_MACHINE", "TravarVei", "TravaDataFin", vDataFinal
ErroPrograma
End
End If
vDataRet = GetSetting("HKEY_LOCAL_MACHINE", "TravarVei", "TravaDataRet")
'vData3 = vDataRet
If vDataRet <> "" Then
MsgBox "Problemas com o Windows" & vbCrLf & "danificaram da Base de Dados", vbInformation, "SISGEP -> A T E N Ç Ã O !!!"
ErroPrograma
End
End If
vData = Format(Date, "dd/mm/yyyy")
If vData < vData1 Then
MsgBox "Problemas com o Windows" & vbCrLf & "danificaram da Base de Dados", vbInformation, "SISGEP -> A T E N Ç Ã O !!!"
SaveSetting "HKEY_LOCAL_MACHINE", "TravarVei", "TravaDataRet", vData
ErroPrograma
End
End If
Dim vData As String
Dim vData1 As Date
Dim vData2 As Date
Dim vData3 As Date
Dim resultado As String
Dim vDataInicial As String
Dim vDataFinal As String
Dim vDataRet As String
Dim vPerÃodo As String
vPerÃodo = "100"
vDataInicial = GetSetting("HKEY_LOCAL_MACHINE", "TravarVei", "Trava")
vDataFinal = Format(Date, "dd/mm/yyyy")
If vDataInicial = "" Then
vDataInicial = Format(Date, "dd/mm/yyyy")
SaveSetting "HKEY_LOCAL_MACHINE", "TravarVei", "Trava", vDataInicial
End If
vData1 = vDataInicial
If vDataFinal = "" Then
resultado = "0"
Else
vData2 = vDataFinal
resultado = vData2 - vData1
End If
If vPerÃodo <= resultado Then
MsgBox "Problemas com o Windows" & vbCrLf & "danificaram da Base de Dados", vbInformation, "SISGEP -> A T E N Ç Ã O !!!"
SaveSetting "HKEY_LOCAL_MACHINE", "TravarVei", "TravaDataFin", vDataFinal
ErroPrograma
End
End If
vDataRet = GetSetting("HKEY_LOCAL_MACHINE", "TravarVei", "TravaDataRet")
'vData3 = vDataRet
If vDataRet <> "" Then
MsgBox "Problemas com o Windows" & vbCrLf & "danificaram da Base de Dados", vbInformation, "SISGEP -> A T E N Ç Ã O !!!"
ErroPrograma
End
End If
vData = Format(Date, "dd/mm/yyyy")
If vData < vData1 Then
MsgBox "Problemas com o Windows" & vbCrLf & "danificaram da Base de Dados", vbInformation, "SISGEP -> A T E N Ç Ã O !!!"
SaveSetting "HKEY_LOCAL_MACHINE", "TravarVei", "TravaDataRet", vData
ErroPrograma
End
End If
Obrigado amigo pela sua ajuda,
Uma pergunta este código fica no form_load??
Uma pergunta este código fica no form_load??
sim deu certo......
só mais uma pergunta amigo, qual é o tempo de uso para barrar o programa?
se eu entendi bem, se por acaso o usuário modificar a data do windows ele da erro certo?
mas não entendi quanto tempo ele roda até o erro.
só mais uma pergunta amigo, qual é o tempo de uso para barrar o programa?
se eu entendi bem, se por acaso o usuário modificar a data do windows ele da erro certo?
mas não entendi quanto tempo ele roda até o erro.
leandro...
fiz uma pequena melhora no código do DNEVONY e te mandei por mensagem interna, pois vc estava me questionando... se funcionou, fecha o tópico...
fiz uma pequena melhora no código do DNEVONY e te mandei por mensagem interna, pois vc estava me questionando... se funcionou, fecha o tópico...
ta ok jean jedson, ja te respondi..
obrigado pela sua ajuda.
qualquer problema estamos ai.
obrigado pela sua ajuda.
qualquer problema estamos ai.
á só uma pergunta:
O usuário usuo o programa por 365 dias e ele expirou certo?
Agora se ele alterar a hora do windows, o programa voltará a funcionar não é?
O usuário usuo o programa por 365 dias e ele expirou certo?
Agora se ele alterar a hora do windows, o programa voltará a funcionar não é?
a hora não a data
sim...
mas daà é só ve ter um novo Ãtem no registro, que quando ele entrar a primeira vez para pedir código (não a primeira vez que entrar, quando vencer o primeiro ano) ele salve que o programa não pode ser mais usado, e já cai direto pedindo o código de validação... desta forma, não faz o teste por data, e daà não adianta o nego alterar a data do micro...
mas daà é só ve ter um novo Ãtem no registro, que quando ele entrar a primeira vez para pedir código (não a primeira vez que entrar, quando vencer o primeiro ano) ele salve que o programa não pode ser mais usado, e já cai direto pedindo o código de validação... desta forma, não faz o teste por data, e daà não adianta o nego alterar a data do micro...
Tópico encerrado , respostas não são mais permitidas