MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Evitar Copia do Sistema

    Compartilhe

    ifabio
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 43
    Registrado : 25/11/2011

    [Resolvido]Evitar Copia do Sistema

    Mensagem  ifabio em Ter 20 Maio 2014, 15:01

    Caros, amigos

    Estou precisando de uma código simples para evitar que meu cliente copie meu sistema. Vi aqui no fórum que já tem um código simples e pronto do nosso amigo JPaulo. Contudo não estar funcionando mesmo com o arquivo salvo no diretório correto. Abaixo, informo o código:




    Estou utilizando: Ms Access 2007 / Windows 7 Ultimate


    [Você precisa estar registrado e conectado para ver este link.]


    1º Crie um ficherio de texto vazio e salve com o nome qualquer e extensão .dll

    Exemplo: xpto.dll

    Coloque-o na pasta C:\Windows\System32

    2º Faça um formulario vazio a abrir em primeiro lugar e em modo oculto.

    No evento ao abrir:

    Private Sub Form_Open(Cancel As Integer)
    If Len(Dir("C:\Windows\System32\xpto.dll")) Then
    DoCmd.OpenForm "frmPrincipal", acNormal, "", "", , acNormal
    Else
    MsgBox "Copia inválida, o sistema vai fechar...", vbCritical
    DoCmd.Quit
    End If
    End Sub

    Fernando Bueno
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1819
    Registrado : 13/04/2012

    Re: [Resolvido]Evitar Copia do Sistema

    Mensagem  Fernando Bueno em Qua 21 Maio 2014, 15:56

    Fabio bom dia.

    A rotina apresentada criada pelo mestre João Paulo esta funcional, fiz um teste

    em um banco de dados meu e funciona perfeitamente, atente-se na nomeação

    de seu respectivo formulario e arquivo dll.

    Private Sub Form_Open(Cancel As Integer)
    If Len(Dir("C:\Windows\System32\xpto.dll")) Then
    DoCmd.OpenForm "frmPrincipal", acNormal, "", "", , acNormal
    Else
    MsgBox "Copia inválida, o sistema vai fechar...", vbCritical
    DoCmd.Quit
    End If
    End Sub


    .................................................................................
    Um abraço
    Fernando Bueno


    O aumento do conhecimento é como uma esfera dilatando-se no espaço
    quanto maior a nossa compreensão,
    maior o nosso contacto com o desconhecido
    [Você precisa estar registrado e conectado para ver esta imagem.]

    ifabio
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 43
    Registrado : 25/11/2011

    Re: [Resolvido]Evitar Copia do Sistema

    Mensagem  ifabio em Qua 21 Maio 2014, 21:08

    Fernando, boa tarde!

    Verifiquei tudo que você informou, mas ainda continua com a mensagem: Copia Inválida, o sistema vai fechar... O arquivo xpto.dll estar no diretório correto, tanto que quando digito o endereço: "C:\Windows\System32\xpto.dll o arquivo abre. O nome do formulário estar correto eu até fiz o teste com o banco de dados que o mestre João Paulo deixou no link que informei e mesmo assim não consegui que o ms access reconhecesse o arquivo xpto.dll e abrisse o banco de dados. Será que pode ser o meu Windows 7 Ultimate 64 bits ?



    Desde já, obrigado pela atenção!

    Fábio

    Fernando Bueno
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1819
    Registrado : 13/04/2012

    Re: [Resolvido]Evitar Copia do Sistema

    Mensagem  Fernando Bueno em Qua 21 Maio 2014, 21:33

    Boa tarde Fábio, não sei se é o windows mas talvez possa ser o access..

    To usando o 2007 e você?


    .................................................................................
    Um abraço
    Fernando Bueno


    O aumento do conhecimento é como uma esfera dilatando-se no espaço
    quanto maior a nossa compreensão,
    maior o nosso contacto com o desconhecido
    [Você precisa estar registrado e conectado para ver esta imagem.]

    ifabio
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 43
    Registrado : 25/11/2011

    Re: [Resolvido]Evitar Copia do Sistema

    Mensagem  ifabio em Qui 22 Maio 2014, 15:47

    Fernando, bom dia!

    Estou usando o Ms Access 2007.



    Att,

    Fábio

    Fernando Bueno
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1819
    Registrado : 13/04/2012

    Re: [Resolvido]Evitar Copia do Sistema

    Mensagem  Fernando Bueno em Qui 22 Maio 2014, 16:40

    Entendi, aqui uso o 2007 também e windows xp..

    Tenta ver com o mestre João Paulo se ele te da alguma solução.


    .................................................................................
    Um abraço
    Fernando Bueno


    O aumento do conhecimento é como uma esfera dilatando-se no espaço
    quanto maior a nossa compreensão,
    maior o nosso contacto com o desconhecido
    [Você precisa estar registrado e conectado para ver esta imagem.]

    mathusalmeida
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 263
    Registrado : 30/08/2011

    Re: [Resolvido]Evitar Copia do Sistema

    Mensagem  mathusalmeida em Sex 23 Maio 2014, 00:39

    Olá amigo, se seu sistema é de 64 bits, experimente colocar a dll na pasta sysWOW64, e veja se roda.

    Só ressaltando que a rotina não impede a cópia de seu bd, o que impede, e impede mesmo, é o sistema rodar em uma máquina que não possua a dll.


    Sucesso.

    ifabio
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 43
    Registrado : 25/11/2011

    Re: [Resolvido]Evitar Copia do Sistema

    Mensagem  ifabio em Sab 24 Maio 2014, 15:32

    Caros, Fernando e Mathusalmeida, bom dia!


    Consegui resolver com a dica do amigo Mathusalmeida. Logo, venho agradecer pela ajuda de vocês.




    Cordialmente,

    Fábio

    Fernando Bueno
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1819
    Registrado : 13/04/2012

    Re: [Resolvido]Evitar Copia do Sistema

    Mensagem  Fernando Bueno em Sab 24 Maio 2014, 17:52

    Legal Fabio.!



    .................................................................................
    Um abraço
    Fernando Bueno


    O aumento do conhecimento é como uma esfera dilatando-se no espaço
    quanto maior a nossa compreensão,
    maior o nosso contacto com o desconhecido
    [Você precisa estar registrado e conectado para ver esta imagem.]

      Data/hora atual: Dom 04 Dez 2016, 01:57