[Resolvido]clonagem do programa em outras máquinas

colegas boa tarde, eu tentei várias vezes e não consegui, .
vocês poderia me aj?Tipo eu quero que o meu programa só rode na maquina x ,

Acho que dá para fazer pelo serial da máquina ou do HD. Eu nunca fiz, mas já vi tópicos aqui no forum a respeito. Procure por serial que você acha alguma coisa.

amigo, boa noite, peguei esse código aqui, estudei ele, mas não entendi o ponto do código comparar se o HD das maquinas é igual  da maquina aonde coloquei o programa, para que não haja cópias.

Private Sub Form_Load()
Option Compare Database
Private Declare Function GetVolumeInformation Lib "kernel32" _
Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, _
ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, _
lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, _
lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, _
ByVal nFileSystemNameSize As Long) As Long

Public Function DriveSerialNumber(strDrive As String) As String
'Para obter o numero de serie do HD
'Na janela imediata digite: ?DriveSerialNumber("c")
Dim x As Long, lngSerialNum As Long
Dim strRoot As String
strRoot = Left$(strDrive, 1) & ":\"
x = GetVolumeInformation(strRoot, "", 255, lngSerialNum, 0, 0, "", 255)
DriveSerialNumber = Hex$(lngSerialNum)
End Function
Ai no formulário principal ao abrir coloquei
Call DriveSerialNumber("c")
Feito isso, quando abro o aplicativo ele cria um monte de tabelas, eu queria saber como faria para criar uma tabela e jogar o número do HD nela pq ai depois eu poderia usar o código abaixo do JPaulo para evitar instalar em outro computador


Dim x As String

Dim y As Variant

x = DLookup("SeuCampoNumeroHD", "SuaTabela", "SeuCampoNumeroHD")

y= Call DriveSerialNumber("c")


If y <> x Then

MsgBox "Não autorizado"

DoCmd.Quit

Else

Exit Sub

End If

Boa tarde amigos, acabei de chegar um sistema com a ajuda de vocês.
Estou com um codigo que verifica se a mquina é a mesma do usuário que comprou o sistema:

Código:

Private Sub Form_Open(Cancel As Integer)
On Error Resume Next
If Len(Dir("C:\Windows\System32\system32SPP.dll")) > 0 Then
Else
MsgBox "Acesso não autorizado. Esse sistema não foi comprado para essa máquina" & vbCrLf & "Enviando Ip para a empresa.", vbCritical, "SistIg"
DoCmd.Quit
End If

End Sub

mas não consigo encontrar as pastas   que fica o numero do processador ou rede tipo e assim, para que eu não precise mandar um arquivo para a pasta C:\Windows\System32\system32SPP.dll" , antes de enviar o sistema, ou seja,  o sistema já vai direto  com o numero da placa do comprador ( eu irei ver qual será o numero dele e já coloco no sistema)

Boa noite,

Veja se este artigo do Avelino te ajuda.

usandoaccess.com.br/dicas/wmi-e-environ-gerenciando-windows-e-hardware.asp
(copiar e colar no navegador)

Abraço.

Olá a todos,

Gilliard Pacheco, Como ficou a situação, não deu retrono ao colega que tentou ajudar.

Tem que começar a utilizar a "Busca" aqui do fórum, veja como fazer:
https://www.maximoaccess.com/t1115-busca-no-forum-search

A regra n. 7 do fórum diz:
Use sempre o botão Busca, sempre que tiver uma dúvida e antes de abrir tópicos.
e todos temos verificado que não é isso que tem feito mais que uma vez.

Como prova disso veja por exemplo se não é o que pretende:
https://www.maximoaccess.com/t33280-ip-local-publico-mac-address-id-processador-serie-motherboard

Abraço a todos

A situação vba o deu certo , vou ficando dessa maneira aqui como verifica a máquina. Desculpa Esqueci de colocar como resolvido.

Tópico fundido.