MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

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
    avatar
    Fernando Bueno
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1888
    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
    avatar
    Fernando Bueno
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1888
    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
    avatar
    Fernando Bueno
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1888
    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.]
    avatar
    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
    avatar
    Fernando Bueno
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1888
    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: Ter 26 Set 2017, 10:16