DESABILITANDO PARTES DO MEU SISTEMA

RAMON 15/05/2004 15:03:00
#24823
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?
USUARIO.EXCLUIDOS 15/05/2004 16:09:36
#24833
Resposta escolhida
Vc quer tipo, enquanto não registra não habilita?
USUARIO.EXCLUIDOS 15/05/2004 17:07:27
#24845
Claro
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
USUARIO.EXCLUIDOS 15/05/2004 20:06:30
#24865
Olha esse aqui:
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
USUARIO.EXCLUIDOS 16/05/2004 11:19:17
#24898
Vc tem que mandar gravar no registro antes da comparação
Tópico encerrado , respostas não são mais permitidas