DESABILITANDO PARTES DO MEU SISTEMA
meu programa ta pronto e quero desabilitar algumas partes dele.
Se o usuario quizer acionar estas partes então ele tera que registrar
Como eu faço isso?
Como gerar via código uma rotina no VB para proteger o meu sistema?
Se o usuario quizer acionar estas partes então ele tera que registrar
Como eu faço isso?
Como gerar via código uma rotina no VB para proteger o meu sistema?
Vc quer tipo, enquanto não registra não habilita?
Claro
Para vc fazer isso, vc precisa fazer confirmações
Por ex:
Mas para vc fazer isto, quando vc manda registrar vc precisa criar um label com o nome de registro que antes de registrar esteje em branco, para vc poder fazer confirmações.
Espero ter ajudado
Falou, qualquer dúvida mande um e-mail para linkin.basic@uol.com.br
Para vc fazer isso, vc precisa fazer confirmações
Por ex:
If Formabout.Labe1.Caption = "" Then
Msgbox "Esta versão é shareware"
Else
Form3.Show
End If
Mas para vc fazer isto, quando vc manda registrar vc precisa criar um label com o nome de registro que antes de registrar esteje em branco, para vc poder fazer confirmações.
Espero ter ajudado
Falou, qualquer dúvida mande um e-mail para linkin.basic@uol.com.br
Olha esse aqui:
Para gerar e gravar no registro:
Esse para registrar:
Falou
Para gerar e gravar no registro:
'Tenta locailzar o número do registro
vSN = GetSetting(App.EXEName, "Teste", "Serial")
If vSN = "" Then
'Criar um número de Série
For i = 1 To 6
Randomize
N = Int(Rnd * 105)
SN = SN & N
Next i
SaveSetting App.EXEName, "Teste", "Serial", Str(SN)
Else
'verificar se já existe a licença
' VSenha = Int(5 * vSN / 204)
End If
Label1.Caption = GetSetting(App.EXEName, "Teste", "Serial")
If Label1.Caption = "" Then
Else
End If
Esse para registrar:
Private Sub Command1_Click()
vSN = GetSetting(App.EXEName, "Teste", "Serial")
If VSenha = Int(5 * vSN / 205) Then
MsgBox "Origado por registrar esta cópia", vbInformation, "Registro"
'SaveSetting App.EXEName, "Teste", "Codigo", VSenha.Text
'SaveSetting App.EXEName, "Teste", "Nome", Text1.Text
Else
MsgBox "Este código esta errado", vbCritical, "Código errado"
End If
Falou
Vc tem que mandar gravar no registro antes da comparação
Tópico encerrado , respostas não são mais permitidas