Estive vendo uns exemplos de proteção no projeto, estou usando um exemplo que o programa roda até uma determinada data
que é passada pelo Sub Main()
Sub Main()
If Command = "Ativar" Then
AtivaAplicativo (GUI)
Else
DesativarEm "10/11/10"
End If
frmprotecao.Show
End Sub
Quando o programa bloquear pela expriração do prazo é gravado uma informação no registro do Windows.
Acontece que aquele primeiro If , que executa o Command = "Ativar" then não reconhece o argumento colocado na
propriedade do projeto na opção Make Command Line Arguments. Para executar a sub e reativar o registro pela sub abaixo;
Public Sub AtivaAplicativo(codigo As String)
Dim chave As String
chave = Left(codigo, 8)
If Command = "Ativar" Then
SaveSetting "Aplicativo", "Security", chave, codigo
End If
End Sub
Pergunta
Flecha
Pessoal,
Estive vendo uns exemplos de proteção no projeto, estou usando um exemplo que o programa roda até uma determinada data
que é passada pelo Sub Main()
Quando o programa bloquear pela expriração do prazo é gravado uma informação no registro do Windows. Acontece que aquele primeiro If , que executa o Command = "Ativar" then não reconhece o argumento colocado na propriedade do projeto na opção Make Command Line Arguments. Para executar a sub e reativar o registro pela sub abaixo;Alguém se habilita
Flecha
Link para o comentário
Compartilhar em outros sites
1 resposta a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.