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

    [Resolvido]Como criar e utilizar uma variavel global posterirmente

    Mylton
    Mylton
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1017
    Registrado : 23/08/2010

    [Resolvido]Como criar e utilizar uma variavel global posterirmente Empty [Resolvido]Como criar e utilizar uma variavel global posterirmente

    Mensagem  Mylton 27/2/2024, 12:32

    Essa funcao executa


    'A função GerarLicenca recebe os números do processador e da placa-mãe como entrada,
    'calcula um hash SHA-256 a partir da concatenação desses números
    'e retorna os últimos 10 dígitos desse hash como uma licença.
    'Usado para gerar uma licença única com base nas especificações do hardware.

    Function GerarLicenca(NumeroProcessador As String, NumeroPlacaMae As String) As String
    Dim chave As String
    Dim hash As String

    ' Concatena os números do processador e da placa-mãe
    chave = NumeroProcessador & NumeroPlacaMae

    ' Criar objeto de hash SHA-256
    Dim objSHA256 As Object
    Set objSHA256 = CreateObject("System.Security.Cryptography.SHA256Managed")

    ' Calcula o hash SHA-256 da chave concatenada
    Dim bytes() As Byte
    bytes = StrConv(chave, vbFromUnicode)
    bytes = objSHA256.ComputeHash_2(bytes)

    ' Converte o hash SHA-256 em uma string hexadecimal
    hash = ""
    Dim i As Integer
    For i = LBound(bytes) To UBound(bytes)
    hash = hash & Right("0" & Hex(bytes(i)), 2)
    Next i

    ' Mantém apenas os últimos 10 dígitos do hash
    GerarLicenca = Right(hash, 10)
    End Function

    Criei uma Declaração da variável global assim:
    Option Compare Database
    Public chaveLicencaGlobal As String



    Quando tento usá para ser demonstrada num FrmQualquer em campo texto com esse codigo:
    Private Sub Form_Load()
    ' Define o valor do rótulo para o valor da variável global
    Me.txtChaveLicenca.value = chaveLicencaGlobal
    End Sub


    e

    Private Sub Form_Open(Cancel As Integer)
    ' Atribui um valor à variável global
    chaveLicencaGlobal = chaveLicencaGlobal
    End Sub

    aparece a palavra chaveLicencaGlobal.
    Gostaria que fosse mostrado o que foi armazenado nela.

    Alguma dica...
    Obrigado
    Pablo Neruda
    Pablo Neruda
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 344
    Registrado : 17/09/2010

    [Resolvido]Como criar e utilizar uma variavel global posterirmente Empty Re: [Resolvido]Como criar e utilizar uma variavel global posterirmente

    Mensagem  Pablo Neruda 28/2/2024, 14:11

    Em um modulo defina assim

    Global ChaveLicencaGlobal As String

    Assim o valor da variável poderá ser acessado que qualquer parte do projeto

    e outra coisa, creio que esteja atribuindo o valor a variável de forma errada:

    Private Sub Form_Open(Cancel As Integer)

    ' Atribui um valor à variável global
    chaveLicencaGlobal = chaveLicencaGlobal

    Não deveria ser:

    Private Sub Form_Open(Cancel As Integer)

    ' Atribui um valor à variável global
    chaveLicencaGlobal = GerarLicenca(x,y)

    End Sub

    onde x,y seriam os valores de NumeroProcessador e NumeroPlacaMae que a função pede?


    .................................................................................
    [Resolvido]Como criar e utilizar uma variavel global posterirmente Uc?export=view&id=0B-lnOJoekdM2VzZBQzFMVzRreTg
    Mylton
    Mylton
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1017
    Registrado : 23/08/2010

    [Resolvido]Como criar e utilizar uma variavel global posterirmente Empty Re: [Resolvido]Como criar e utilizar uma variavel global posterirmente

    Mensagem  Mylton 28/2/2024, 18:21

    Obrigado pelo ensinamento
    Deixa chegar em casa que vejo.
    Abs
    Mylton
    Mylton
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1017
    Registrado : 23/08/2010

    [Resolvido]Como criar e utilizar uma variavel global posterirmente Empty Re: [Resolvido]Como criar e utilizar uma variavel global posterirmente

    Mensagem  Mylton 28/2/2024, 21:43

    Obrigado Pablo.
    Funcionou.
    Boa semana.

    Conteúdo patrocinado


    [Resolvido]Como criar e utilizar uma variavel global posterirmente Empty Re: [Resolvido]Como criar e utilizar uma variavel global posterirmente

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 23/5/2024, 00:36