Jump to content
Fórum Script Brasil
  • 0

(Resolvido) Proteção Contra Cópia


HClausing
 Share

Question

Bom dia

Minha dúvida é a seguinte:

Terminei de fazer um aplicativo e tenho interesse em distribuí-lo (por uma quantia digamos, simbólica), porém gostaria de saber se é possível colocar um tipo de "trava" que não permita que caso seja copiado para ser usado em outra máquina ele não funcione. Minha idéia seria adicionar informação no registro do windows e fazer que o aplicativo procure este registro, caso não encontre ele não funcionará. Alguém pode me ajudar? Se alguém conhecer alguma idéia melhor, por gentileza me indique.

Obrigado

Link to comment
Share on other sites

4 answers to this question

Recommended Posts

  • 0

Bom quando eu fazia isso eu utilizava uma função que guardava o nr de série numa tabela, e toda vez que abria ele verificava essa serie e caso fosse diferente ele retornava uma mensagem e fechava a aplicação, a função que eu usava na epoca não tenho mais, porém fiz uma pesquisa e encontrei uma no JRs FAQ.

Function NuHD() As String

Dim fs, d, sTmp

Set fs = CreateObject("Scripting.FileSystemObject")

Set d = fs.GetDrive(fs.GetDriveName( _

fs.GetAbsolutePathName("C:")))

sTmp = Hex$(d.SerialNumber)

NuHD = Left$(sTmp, 4) & "-" & Right$(sTmp, 4)

End Function

Bom espero que resolva!

Link to comment
Share on other sites

  • 0

Bom, primeiramente obrigado pela ajuda, mas não manjo muito de access, então surge a dúvida:

Devo eu criar uma macro, digitar essa função para que seja executada quando abro o aplicativo, correto? Devo também criar uma tabela para que este valor seja armazenado, ok?

Link to comment
Share on other sites

  • 0

ummmm, então devo presumir que sua aplicação foi toda feita com assistente...rsrsrs

Cara seguinte tu tem que criar a tabela pra armazenar isso, aconselho você a colocar essa função num módulo, e chama-la sempre num evento do formulário de abertura de seu sistema!

Link to comment
Share on other sites

  • 0
ummmm, então devo presumir que sua aplicação foi toda feita com assistente...rsrsrs

BINGO!!! hehehe... ou melhor... passou por perto... no começo estava fazendo tudo através de assistente, depois fui pegando o jeito da coisa... heheh

Pesquisando pela internet encontrei o tal do ActiveLock também, me parece interessantem porém pra mim ainda é um bocado complexo. Muito obrigado pela ajuda!

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share



  • Forum Statistics

    • Total Topics
      150.1k
    • Total Posts
      647.1k
×
×
  • Create New...