CRIANDO SISTEMA TRIAL

Vamos precisar de:
2 Forms
Form1 - Name: frmTrial Text: Sistema Trial
Form2 - Name: frmPrincipal Text: Sistema Ativado

Conteúdo do form1
4 Labels
Label1 - Text: Início em:
Label2 - Name: lblData
Label3 - Text: Expira em:
Label4 - Name: lblFim
1 Timer
1 Botão - Name: btnRegistro Text: Registrar

1 Dialog
Conteúdo do Dialog
1 TextBox - Name: txtChaveSerial
1 Label - Text: Chave Serial
Adicionar um TextBox no Dialog1 e 1 label com o Text: Chave Serial



Form 1:

Dialog

Form2

Antes de inserir os códigos faça a seguinte configuração:

depois outra configuração...

Agora passaremos para os códigos

/////////////////////////////////////////////////////////////////////////////////////////////////////////

Código do Form1: frmTrial

'Este codigo faz o sistema funcionar por 30 dias

If My.Settings.Registrado = True Then

frmPrincipal.Show()

Me.Close

Else

If My.Settings.Expirado = "" Then

My.Settings.Expirado = DateTime.Now.AddDays(30)

My.Settings.Save()

My.Settings.Reload()

Else

End If

lblData.Text = DateTime.Now

lblFim.Text = My.Settings.Expirado

End If

/////////////////////////////////////////////////////////////////////////////////////////////////////////

2ª Opção de código para testar o sistema...

Código do Form1: frmTrial

'Este codigo faz o sistema funcionar por 30 segundos

If My.Settings.Registrado = True Then

frmPrincipal.Show()

Me.Close

Else

If My.Settings.Expirado = "" Then

My.Settings.Expirado = DateTime.Now.AddSeconds(30)

My.Settings.Save()

My.Settings.Reload()

Else

End If

lblData.Text = DateTime.Now

lblFim.Text = My.Settings.Expirado

End If

/////////////////////////////////////////////////////////////////////////////////////////////////////////

Código do Timer:

lblData.Text = DateTime.Now

If My.Settings.Expirado <= lblData.Text Then

Timer1.Stop()

MsgBox ("O trial expirou, compre a licença do Software",MsgBoxStyle.Exclamation, "Fim do Trial")

Dialog1.Show()

End If

/////////////////////////////////////////////////////////////////////////////////////////////////////////

Código do botão Ok do Dialog:

If txtChaveSerial.Text = "1111-2222-3333-4444" Then

My.Settings.Registrado = True

My.Settings.Save()

My.Settings.Reload()

MsgBox("Programa ativado com sucesso!",MsgBoxStyle.Information, "Sucesso!")

Else

MsgBox("A chave informada é inválida...",MsgBoxStyle.Critical, "Erro!")

End If

/////////////////////////////////////////////////////////////////////////////////////////////////////////

Código do botão Registrar:

 Dialog1.Show()

O serial para testar é: 1111-2222-3333-4444