USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Usando o Command line Arguments da propr. do proje
flecha
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 04/03/2010 11:41 hs            
Pessoal,
 
Estou tentando passar um argumento na propriedade do projeto na aba Make, Command Line Arguments
 
Para testar uma proteção anti cópia e com prazo de validade, segue as subs que devem ser colocadas em um módulo,tem que criar um form para abri-lo se estiver no prazo.
Este exemplo esta no site do Macoratti.
O projeto funciona até esgotar o prazo só que depois não consigo liberá-lo sem apagar o registro no Windows.
Ele não executa a função do primeiro If no Sub Main()
 
Option Explicit
Const GUI = "4BE96C57-F3BF-11D6-A57D-B2A419659821"
Sub Main()
If Command = "Ativar" Then
     AtivaAplicativo (GUI)
Else
     DesativarEm "10/11/10"
End If
frmprotecao.Show
End Sub
Public Sub DesativarEm(Data As Date)
'Desativa o programa na data informada
Dim chave As String
'Gera a chave com base no codigo identificador do usuario
chave = Left(GUI, 8)
'Se a chave for invalida encerra a aplicação
If GetSetting("Aplicativo", "Security", chave, GUI) <> GUI Then
     MsgBox "Não é possivel executar a aplicação entre em contado com " & vbCrLf & _
     "(flecha@limao.com.br)", vbCritical, _
     "Erro de Validação de chave : A-1"
     End
End If
'Se a data expirar, desativa o aplicativo
If Date >= Data Then
   'grava um valor invalido na chave do registro
   SaveSetting "Aplicativo", "Security", chave, "A-1"
   MsgBox "O periodo de demonstração terminou ! " & vbCrLf & _
   " Para adquirir o sistema entre em contato com (flecha@limao.com.br)", vbCritical, "Erro Interno"
   End
End If
End Sub

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
 
Será que alguém pode tentar para ver o que tem de errado?
 
 
Flecha
   
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página