MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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

2 participantes

    Gravar Código MAC

    avatar
    jldacosta
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 08/08/2013

    Gravar Código MAC Empty Gravar Código MAC

    Mensagem  jldacosta 13/10/2017, 23:58

    Caros Mestres, Boa Noite!

    Estou desenvolvendo um aplicativo em access e para protege-lo de pirataria gostaria de fazer o seguinte:

    - Identificar se a tabela MAC do banco esta vazia.
      - Se estiver vazia, obter o código MAC e gravar o código MAC nesta tabela e avançar na aplicação chamando o programa de menu.
    - Se a tabela MAC não estiver vazia:
      - Obter o codigo MAC, ler a tabela MAC e comparar os códigos obtidos.
      - Se forem iguais avançar na aplicação chamando o programa de menu, senão exibir mensagem de erro e encerrar a aplicação.

    Grato a quem puder ajudar este aprendiz.
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4557
    Registrado : 06/11/2009

    Gravar Código MAC Empty Re: Gravar Código MAC

    Mensagem  Assis 14/10/2017, 23:00

    Boa noite

    Bons estudos


    .................................................................................
    *** Só sei que nada sei ***
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4557
    Registrado : 06/11/2009

    Gravar Código MAC Empty Re: Gravar Código MAC

    Mensagem  Assis 16/10/2017, 19:13

    José Luiz

    Ajudou ?


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    jldacosta
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 08/08/2013

    Gravar Código MAC Empty Re: Gravar Código MAC

    Mensagem  jldacosta 19/10/2017, 21:00

    Caro Assis, Boa Tarde!

    Desculpe a demora no retorno, estava tentando adaptar a minha rotina. Minha rotina funciona como eu quero, porém a inserção não esta funcionando. Não dá erro e não grava o registro. Se puder me ajudar mais uma vez, segue minha rotina para você analisar e me dizer onde esta o erro. Grato.
    'Rotina de Controle do endereço MAC.

    Código:
    Dim strResultado As String
    Dim strEndereco As String
    Dim strVencimento As String
    Dim strnomedamaquina As String
    Dim objFSO As Object
    Dim objShell As Object
    Dim objTempFile
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objShell = CreateObject("Wscript.Shell")

    'Cria um arquivo temporário para receber o resultado do comando GETMAC
    objTempFile = objFSO.GetTempName

    'Executa o comando GETMAC e transfere o resultado para o arquivo
    'temporário objTempFile
    objShell.Run "cmd /c GETMAC /NH /FO CSV >" & objTempFile, 0, True

    'Abre o arquivo temporário
    Set objTextFile = objFSO.OpenTextFile(objTempFile, 1)

    'Obtém o resultado do comando GETMAC, lido do arquivo temporário objTempFile
    Do While objTextFile.AtEndOfStream <> True
      strResultado = strResultado & objTextFile.ReadLine
    Loop

    'Fecha o arquivo temporário
    objTextFile.Close
    'Deleta o arquivo temporário
    objFSO.DeleteFile (objTempFile)

    If Nz(DCount("*", "[EndereçoMAC]")) = 0 Then
      strEndereco = Mid$(strResultado, 2, 17)
      strnomedamaquina = Environ("ComputerName")
      strVencimento = "99/99/9999"
      Me.Texto127 = strEndereco
      Me.Texto129 = strnomedamaquina
      Me.Texto131 = strVencimento
      'CurrentDb.Execute = "INSERT INTO EndereçoMAC (CodigoMAC,nomedamaquina, Vencimento) VALUES('" & Me.Texto127 & "', '" & Me.Texto129 & "', '" & Me.Texto131 & "')"
    Else
      If Me.CodigoMAC = Mid$(strResultado, 2, 17) Then
         Set objShell = Nothing
         Set objFSO = Nothing
         Exit Sub
       Else
         MsgBox "Você não esta autorizado a utilizar o aplicativo.", vbInformation, "Aviso"
      Application.Quit
      End If
    End If

    Sair:
      Set objShell = Nothing
      Set objFSO = Nothing
      Exit Sub

    End Sub

    Caro Assis, A rotina apresenta erro sim, nos textos 127, 129 e 131 ele apresenta o erro: "O Argumento não é opcional"

      Data/hora atual: 25/1/2022, 17:56