Buenas , esta es la parte de código que uso para el certificado por si te ayuda
Cita:
Dim certificado As System.Security.Cryptography.X509Certificates.X509Certificate2 = SII.ObtieneCertificadoDigital()
Public Shared Function ObtieneCertificadoDigital() As System.Security.Cryptography.X509Certificates.X509Certificate2
Dim store As System.Security.Cryptography.X509Certificates.X509Store = New System.Security.Cryptography.X509Certificates.X509Store("My")
store.Open(System.Security.Cryptography.X509Certificates.OpenFlags.ReadOnly)
Dim CertificadoCorrecto As New System.Security.Cryptography.X509Certificates.X509Certificate2
Dim cif As String = obtieneCIFPresentadorSII()
If cif <> "" Then
For Each certificado In store.Certificates
For Each subject In certificado.Subject.Split(",")
If subject.Contains(WWEMPCIF) Then
Return certificado
End If
Next
Next
End If
Return CertificadoCorrecto
End Function
|