CERTIFICADO DIGITAL NFE FORMATO A3 S.0.S... S.O.S

OTAVIOFAVERO 13/04/2010 17:09:07
#339235

Public Shared Function SelecionarCertificado(ByVal xnome As String) As Boolean

Dim vRetorna As Boolean


Dim oX509Cert As New X509Certificate2([Ô]c:\impacto.cer[Ô], [Ô]imp2020[Ô]) [ô] anterior teste Dim oX509Cert As New X509Certificate2()
Dim store As New X509Store([Ô]MY[Ô], StoreLocation.CurrentUser)
store.Open(OpenFlags.[ReadOnly] Or OpenFlags.OpenExistingOnly)
Dim collection As X509Certificate2Collection = DirectCast(store.Certificates, X509Certificate2Collection)
Dim collection1 As X509Certificate2Collection = DirectCast(collection.Find(X509FindType.FindByTimeValid, DateTime.Now, False), X509Certificate2Collection)
Dim collection2 As X509Certificate2Collection = DirectCast(collection.Find(X509FindType.FindByKeyUsage, X509KeyUsageFlags.DigitalSignature, False), X509Certificate2Collection)
Dim scollection As X509Certificate2Collection = X509Certificate2UI.SelectFromCollection(collection2, [Ô]Certificado(s) Digital(is) disponível(is)[Ô], [Ô]Selecione o certificado digital para uso no aplicativo[Ô], X509SelectionFlag.SingleSelection)
[ô]Dim collection = store.Certificates
[ô]Dim scollection = collection.Find(X509FindType.FindBySubjectDistinguishedName, xnome, False)

If scollection.Count = 0 Then
Dim msgResultado As String = [Ô]Nenhum certificado digital foi selecionado ou o certificado selecionado está com problemas.[Ô]
[ô]MessageBox.Show(msgResultado, [Ô]Advertência[Ô], MessageBoxButtons.OK, MessageBoxIcon.Warning)
SelecionarCertificado = False
vRetorna = False
Else
oX509Cert = scollection(0)
oCertificado = oX509Cert
dValidadeInicial = oCertificado.NotAfter
sSubject = oCertificado.Subject
SelecionarCertificado = True
vRetorna = True
End If

Return vRetorna
End Function



alguem pode me ajudar eu to querendo selecionar um certificado formato A3 ate seleciono mas não retorna a caixa de senha do pin ele ta selecionando como se fosse arquivo...

alguem ja trabalhou com formato A3 por favor umaaa ajudinha uma luzz uhauahau


valeuu pessoal to meio desesperado!