MaximoAccess

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

Obrigado

Administração do MaximoAccess

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


    Lendo informações do certificado digital com o capicom

    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

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

    Lendo informações do certificado digital com o capicom Empty Lendo informações do certificado digital com o capicom

    Mensagem  IvanJr. em 26/8/2019, 23:50

    Exemplo que lê o repositório pessoal do usuário. Altere as constantes a vontade para ler qualquer outro repositório de qualquer outro local.

    Baixe e instale o CAPICOM
    microsoft.com/pt-br/download/details.aspx?id=3207

    Habilite a referência CAPICOM v2.1 Type Library

    Em um módulo global cole e execute
    Código:
    Sub fncInfoCertificado()
    '  Baixe, instale o CAPICOM e habilite a referência CAPICOM v2.1 Type Library
    '  microsoft.com/pt-br/download/details.aspx?id=3207

    On Error GoTo trataErro

        Const REPOSITORIO_PESSOAL As String = "My"

        Dim objStore        As CAPICOM.Store
        Dim objCertificados As CAPICOM.Certificates
        Dim objCertificado
        
        Set objStore = New Store
        Set objCertificados = New CAPICOM.Certificates
        Call objCertificados.Clear
        
        Call objStore.Open(CAPICOM_CURRENT_USER_STORE, REPOSITORIO_PESSOAL, CAPICOM_STORE_OPEN_READ_ONLY)
        
        For Each objCertificado In objStore.Certificates
            Call objCertificados.Add(objCertificado)
        Next objCertificado
        
        If objCertificados.Count = 0 Then
            Call MsgBox("Nenhum certificado encontrado no repositório indicado.")
        Else
        
            Set objCertificado = objCertificados.Select("Certificados Digitais", "Selecione", False)
            
            Call MsgBox("Nome: " & objCertificado(1).GetInfo(CAPICOM_CERT_INFO_SUBJECT_SIMPLE_NAME) & vbNewLine & _
                        "Emitido em: " & objCertificado(1).ValidFromDate & vbNewLine & _
                        "Válido até: " & objCertificado(1).ValidToDate)
            
        End If
        
    sair:
        Set objCertificado = Nothing
        Set objCertificados = Nothing
        Set objStore = Nothing
        Exit Sub

    trataErro:
        If Err.Number > 0 Then
            Call MsgBox("Erro VBA: " & Err.Description)
        ElseIf Err.Number = -2138568446 Then
            Call MsgBox("Operação cancelada.")
        Else
            Call MsgBox("Erro CAPICOM: " & Err.Number)
        End If
        Resume sair
        
    End Sub


    .................................................................................
    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.
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Lendo informações do certificado digital com o capicom Empty Re: Lendo informações do certificado digital com o capicom

    Mensagem  ahteixeira em 27/8/2019, 16:20

    Olá Ivan,

    Mais uma grande partilha, parabéns.

    Abraço
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

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

    Lendo informações do certificado digital com o capicom Empty Re: Lendo informações do certificado digital com o capicom

    Mensagem  IvanJr. em 29/8/2019, 23:01

    Valeu Alvaro.


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

    Conteúdo patrocinado

    Lendo informações do certificado digital com o capicom Empty Re: Lendo informações do certificado digital com o capicom

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 17/11/2019, 01:02