BD para capturar o serial do HD

Pessoa, bom dia.

Tenho um BD e Gostaria de protege-lo colocando a proteção com a captura do serial
do HD..

Aguém tem algum exemplo é que posse me ceder?


Sd


Oliveira

Pessoal, bom dia.

Tenho um BD e Gostaria de protege-lo colocando a proteção com a captura do serial
do HD..

Alguém tem algum exemplo é que posse me ceder?


Sd


Oliveira

Pode-se usar essa função:

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

Obrigado, pela atenção.

Mais não conseguir colocar para rodar, podem da uma olhada?


Sd


Oliveira

Olá

Essa função retorna o serial do HD.
Cole num módulo novo ou num módulo de funções já existente.
Para testar, abra o VBA, exiba a janela de verificação imediata, e digite:
?NuHD
Será retornado um serial parecido com esse:
8EB4-5456

Pode usar a função, por exemplo, em um formulário inicial do aplicativo, no evento Ao carregar, para checar o serial e proceder conforme desejar:
Por exemplo:

Private Sub Form_Load()
If NuHD <> 8EB4-5456 Then
MsgBox "Este computador não tem licença para usar o aplicativo.", vbOKOnly, "Licença"
Application.Quit acQuitSaveNone
End If

Nesse exemplo, o código verifica o serial do HD e se for diferente do registrado, exibe uma mensagem e fecha o aplicativo.

Olá

Desculpe - me!! procedi conforme instrução mais não tive êxito.

Private Sub Form_Load()
If NuHD <> 8EB4-5456 Then
MsgBox "Este computador não tem licença para usar o aplicativo.", vbOKOnly, "Licença"
Application.Quit acQuitSaveNone
End If

Será que não tinha possibilidade de vc da uma olhada no aplicativo?

Sd

Oliveira

O aplicativo é um arquivo .exe

Não vou abrir um executável.

Olá Oliveiraferraz.

Como NuHD se trata de uma String, você deverá mostar o seu valor entre aspas ( "" ).

Coloque no Evento ao carregar do seu sistema o seguinte comando:

If NuHD <> "8EB4-5456" Then
MsgBox "Este computador não tem licença para usar o aplicativo.", vbOKOnly, "Licença"
Application.Quit acQuitSaveNone
End If

OBS: Substitua o serial 8EB4-5456 pelo serial do HD onde o sistema rodará.

Espero ter ajudado.

Oliveiraferraz.

Seria melhor se você colocasse o seu sistema para conferir o endereço MAC da sua placa de rede, pois não existe duas placas de rede com o mesmo número MAC, e quanto ao serial do HD, há possibilidade do mesmo ser alterado por qualquer um.

Veja este site e tente montar a sua chave de segurança do seu sistema.

Link: http://www.usandoaccess.com.br/dicas/dica24.asp?id=1

Abrçs.

Coloquei as (") e funcionou...


Merito e Wallace Lima, Desculpa minha falta de conhecimento.

Mas quero deixar aqui o meu agradecimento pela a cordial atenção de ambos..


Wallace Lima, verificarei a ultima opção no momento oportuno.


Abraços


Oliveira.

Que bom que tenha resolvido sweu problema Oliveira,
Agora só falta você atualizar o Tópico como "Resolvido".
Abrçs.

Obigado a todos.


Sd

Oliveira