NFE - SELECIONAR CERTIFICADO DIGITAL A1

LREZANI 09/04/2013 15:46:05
#421697
Olá;
Localizei um código na internet onde o mesmo abre a caixa de seleção de certificados presentes no computador.
Fiz os testes para certificado digital tipo A3 e o mesmo funcionou perfeitamente, porém preciso que este código funcione também com certificado A1 e sinceramente não tenho como testar e não sei muito a respeito desta ferramenta.
Gostaria que alguém pudesse testar e/ou me informar se o código funciona com o tipo A1.
Abaixo o código:
  [ô]Selecionar certificado digital no VB6:
[ô]Referenciar:  CAPICOM v2.1 Type Library
Dim Stor As New Store
Dim Cert As Certificate
Dim Certs As New Certificates
Dim CForNext As Integer

[ô]Abrir o store
Stor.Open

Certs.Clear
For CForNext = 1 To Stor.Certificates.Count
Certs.Add Stor.Certificates.Item(CForNext)
Next CForNext

Set Certs = Certs.Select([Ô]LaRoche[Ô], [Ô]Selecione o Certificado Digital.[Ô], False)

[ô]Exibir mensagem com data de validade do certificado

For Each Cert In Certs
	MsgBox ([Ô]Nome do cliente:[Ô] Cert.GetInfo(CAPICOM_CERT_INFO_SUBJECT_SIMPLE_NAME))
Next


Retirado do Link http://br.dir.groups.yahoo.com/group/uninfe/message/19753
Qualquer informação adicional ou que esqueci por favor me perguntem.
Obrigado.
JUNIOR.STATUS 10/04/2013 08:13:45
#421722 Resposta escolhida
Luiz bom dia

eu fiz um teste aki, mostro todos os certificados q tenho A1 e A3, sem problemas

abç
FUTURA 10/04/2013 08:23:07
#421723
rezani, só seleciona os certificados, ou da pra assinar o xml também ?
LREZANI 10/04/2013 20:28:07
#421776
Futura, eu não tenho essa resposta...
O amigo Barros nos respondeu que não é possível, que pena.
Obrigado pelo teste Junior.
Vou fazer uso dessa ferramenta para liberar o uso da minha aplicação buscando o CNPJ do cartão.
Até +.
Tópico encerrado , respostas não são mais permitidas
Voltar