[Resolvido]Evitar Copia do Sistema

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


http://maximoaccess.forumeiros.com/t12432-resolvidobloquear-a-copia-de-meu-bd?highlight=evita+copia


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

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

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

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

To usando o 2007 e você?

Fernando, bom dia!

Estou usando o Ms Access 2007.



Att,

Fábio

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.

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.

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

Legal Fabio.!