MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]clonagem do programa em outras máquinas

    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1472
    Registrado : 23/01/2018

    [Resolvido]clonagem do programa em outras máquinas Empty [Resolvido]clonagem do programa em outras máquinas

    Mensagem  crysostomo em 24/1/2018, 14:18

    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 ,
    thiagomcosta
    thiagomcosta
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 368
    Registrado : 23/01/2017

    [Resolvido]clonagem do programa em outras máquinas Empty Re: [Resolvido]clonagem do programa em outras máquinas

    Mensagem  thiagomcosta em 24/1/2018, 14:22

    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.
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1472
    Registrado : 23/01/2018

    [Resolvido]clonagem do programa em outras máquinas Empty Re: [Resolvido]clonagem do programa em outras máquinas

    Mensagem  crysostomo em 27/1/2018, 04:11

    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


    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1472
    Registrado : 23/01/2018

    [Resolvido]clonagem do programa em outras máquinas Empty [Resolvido]Verificar se a maquina é a mesma para que na haja pirataria

    Mensagem  crysostomo em 6/2/2019, 17:08

    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)
    CassioFabre
    CassioFabre
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 731
    Registrado : 18/01/2013

    [Resolvido]clonagem do programa em outras máquinas Empty Re: [Resolvido]clonagem do programa em outras máquinas

    Mensagem  CassioFabre em 7/2/2019, 00:42

    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.


    .................................................................................
    Só não tem código pra morte!
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6957
    Registrado : 15/03/2013

    [Resolvido]clonagem do programa em outras máquinas Empty Re: [Resolvido]clonagem do programa em outras máquinas

    Mensagem  ahteixeira em 17/3/2019, 10:48

    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
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1472
    Registrado : 23/01/2018

    [Resolvido]clonagem do programa em outras máquinas Empty Re: [Resolvido]clonagem do programa em outras máquinas

    Mensagem  crysostomo em 17/3/2019, 12:12

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


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6957
    Registrado : 15/03/2013

    [Resolvido]clonagem do programa em outras máquinas Empty Re: [Resolvido]clonagem do programa em outras máquinas

    Mensagem  ahteixeira em 18/3/2019, 14:29

    cheers
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2458
    Registrado : 22/11/2016

    [Resolvido]clonagem do programa em outras máquinas Empty Re: [Resolvido]clonagem do programa em outras máquinas

    Mensagem  DamascenoJr. em 25/6/2020, 02:33

    Tópico fundido.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

      Data/hora atual: 5/12/2020, 09:22