从资源visual导入X509Certificates

Question

 Dim x509Store As New X509Store(StoreName.Root, StoreLocation.CurrentUser)
    Dim cert = My.Resources.Facebook_com
    x509Store.Open(OpenFlags.MaxAllowed)
    x509Store.Add(cert)
    x509Store.Close()

x509Store.Add(cert)行中的问题表明，错误“类型为‘1-维字节数组’的值不能转换为system.cryptography.x509certificats.x509certificats2"。

Answer 1

从资源中获取的数据是一个字节数组。

您应该首先将其转换为证书对象。

你可以试试这个：

Sub Main()
    Dim x509Store As New X509Store(StoreName.Root, StoreLocation.CurrentUser)
    Dim certificateBytes() As Byte = My.Resources.Facebook_com
    Dim certificateObject As New X509Certificate2(certificateBytes)
    x509Store.Open(OpenFlags.MaxAllowed)
    x509Store.Add(certificateObject)
    x509Store.Close()
End Sub