DEIXAR OS DADOS GRAVADOS.
Amigos fiz o seguinte:
If Month(txtdata) = 5 And Year(txtdata) = 2005 And Text2 = "123" Then
MsgBox "Código liberado"
Combo1.Enabled = True
txtsenha.Enabled = True
Else
MsgBox "código não é válido"
Text1 = Empty
End If
Este código é dado no inicio do programa, e faz o seguinte, quando a data chegar ao mês 5, ele pedi o text2 que é um código de liberação o usuario digita 123, e pronto liberou o acesso.
Agora como eu faço para que:
depois que o usuário digitou o valor 123, o text2 fica gravado com "123" e não peça mais pro usuario digitar. é como se vc um serial.
If Month(txtdata) = 5 And Year(txtdata) = 2005 And Text2 = "123" Then
MsgBox "Código liberado"
Combo1.Enabled = True
txtsenha.Enabled = True
Else
MsgBox "código não é válido"
Text1 = Empty
End If
Este código é dado no inicio do programa, e faz o seguinte, quando a data chegar ao mês 5, ele pedi o text2 que é um código de liberação o usuario digita 123, e pronto liberou o acesso.
Agora como eu faço para que:
depois que o usuário digitou o valor 123, o text2 fica gravado com "123" e não peça mais pro usuario digitar. é como se vc um serial.
vc está utilizando banco de dados? vc poderia tbm gravar no registro do windows... tem vários exemplos aqui no vbmania
sim ultilizo banco de dados..
mas acho que o caso seria no registro do windows, mas não sei bem como fazer.
poderiam me dizer o que eu deveria fazer?
supondo que eu ache um exemplo de como garvar no registro do windows.
mas como faria para depois que passase um ano fazer o programa pedir outro código?
agradeço pela atenção de vocês.
mas acho que o caso seria no registro do windows, mas não sei bem como fazer.
poderiam me dizer o que eu deveria fazer?
supondo que eu ache um exemplo de como garvar no registro do windows.
mas como faria para depois que passase um ano fazer o programa pedir outro código?
agradeço pela atenção de vocês.
bem... para gravar no registro vc tem exemplos aqui no vbmania... quanto a cada ano pedir um novo código, vc pode partir para 3 opções:
1. fazer via código, prevendo uns 10 anos com códigos fixos;
2. gerar uma chave e o usuário te enviar esta chave, e vc devolver o código;
3. fazer um cálculo a partir do mês/ano que deve ser pedido, e a partir daà gerar o código;
quanto a gravar no windows, grave o mês e ano que foi digitado... e não o código... assim vc sabe quando pedir novamente...
1. fazer via código, prevendo uns 10 anos com códigos fixos;
2. gerar uma chave e o usuário te enviar esta chave, e vc devolver o código;
3. fazer um cálculo a partir do mês/ano que deve ser pedido, e a partir daà gerar o código;
quanto a gravar no windows, grave o mês e ano que foi digitado... e não o código... assim vc sabe quando pedir novamente...
bem, tem o meu programa, e tem o programinha que grava no registro.
no programinha do registro eu mando gravar em: eHKEY_LOCAL_MACHINE, "Software\Control Doc onde o valor por exemplo vai ser 123.
até ai tudo bem.
Agora como eu faço para adaptar este valor eu meu programa?
como fazer gerar outro valor depois de por exemplo um ano da data de instalação, preciso de ajuda.
Amiga JEAN JEDSON você não tem algum exemplo pra me mostrar? se não te incomodar.
Amigos, Não estou entendendo muito....
Agradeço pela atenção.
no programinha do registro eu mando gravar em: eHKEY_LOCAL_MACHINE, "Software\Control Doc onde o valor por exemplo vai ser 123.
até ai tudo bem.
Agora como eu faço para adaptar este valor eu meu programa?
como fazer gerar outro valor depois de por exemplo um ano da data de instalação, preciso de ajuda.
Amiga JEAN JEDSON você não tem algum exemplo pra me mostrar? se não te incomodar.
Amigos, Não estou entendendo muito....
Agradeço pela atenção.
bem... vou pensar em alguma coisa... daqui a uma meia hora te passo alguma coisa
ta ok ficarei esperando amigo obrigado pela seu ajuda.
Veja esses exemplos:
http://www.macoratti.net/d121002.htm
http://www.macoratti.net/registry.htm
Boa sorte,
http://www.macoratti.net/d121002.htm
http://www.macoratti.net/registry.htm
Boa sorte,
bem... aà está um exemplo de como fazer uma "embaralhada" no mês e ano para gerar uma chave. o código que o usuário digitar deve ser o mesmo que retorna nesta função... claro que aqui eu simplesmente peguei a data atual, sem testar se é a data (mes/ano) que realmente preciso. caso seja o mes certo (05, por exemplo), testa se já tem gravado no registro o mes/ano atual. se tiver, entra direto sem pedir nada. se não estiver gravado, ou se for diferente, pede para digitar...
Dim sData As String
Dim iCount As Integer
Dim sTemp As String
sData = Right("0" & Month(Now), 2) & Year(Now)
For iCount = 1 To Len(sData)
sTemp = sTemp & Chr(Asc(Mid$(sData, iCount, 1) * Int(iCount * 3.14)))
Next iCount
Dim sData As String
Dim iCount As Integer
Dim sTemp As String
sData = Right("0" & Month(Now), 2) & Year(Now)
For iCount = 1 To Len(sData)
sTemp = sTemp & Chr(Asc(Mid$(sData, iCount, 1) * Int(iCount * 3.14)))
Next iCount
entendeu? serviu? então encerre o tópico...
qualquer coisa estou na área para ajudar - mande mensagem interna
qualquer coisa estou na área para ajudar - mande mensagem interna
vou analisar o site e tentar fazer
obrigado pela atenção de vcs
o tópico ainda ficará aberto pois ainda tenho duvidas
desde ja agradeço pela atençao
obrigado pela atenção de vcs
o tópico ainda ficará aberto pois ainda tenho duvidas
desde ja agradeço pela atençao
Tópico encerrado , respostas não são mais permitidas