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)