none
anti-pirataria RRS feed

  • Pergunta

  • 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)

    quinta-feira, 7 de fevereiro de 2019 16:33