VB 使用WinHttp对象访问证书错误的网站

winhttp对象本身支持https

但是今天遇到个网站，证书错误，然后用winhttp访问 返回空

查找一番，发现winhttp有个属性 winhttprequestoption_sslerrorignoreflags ,就是忽略证书错误标志，只要将此标志设置为 SslErrorFlag_Ignore_All (13056) 就可以了

http.option(4,13056)

附上winhttp的一些可设置选项，以备后用：

Option()相关：

WinHttpRequestOption_UserAgentString = 0;

WinHttpRequestOption_URL = 1;

WinHttpRequestOption_URLCodePage = 2;

WinHttpRequestOption_EscapePercentInURL = 3;

WinHttpRequestOption_SslErrorIgnoreFlags = 4;

WinHttpRequestOption_SelectCertificate = 5;

WinHttpRequestOption_EnableRedirects = 6;

WinHttpRequestOption_UrlEscapeDisable = 7;

WinHttpRequestOption_UrlEscapeDisableQuery = 8;

WinHttpRequestOption_SecureProtocols = 9;

WinHttpRequestOption_EnableTracing = 10;

WinHttpRequestOption_RevertImpersonationOverSsl = 11;

WinHttpRequestOption_EnableHttpsToHttpRedirects = 12;

WinHttpRequestOption_EnablePassportAuthentication = 13;

WinHttpRequestOption_MaxAutomaticRedirects = 14;

WinHttpRequestOption_MaxResponseHeaderSize = 15;

WinHttpRequestOption_MaxResponseDrainSize = 16;

WinHttpRequestOption_EnableHttp1_1 = 17;

WinHttpRequestOption_EnableCertificateRevocationCheck = 18;

Enum WinHttpRequestAutoLogonPolicy;

AutoLogonPolicy_Always = 0;

AutoLogonPolicy_OnlyIfBypassProxy = 1;

AutoLogonPolicy_Never = 2;

Enum WinHttpRequestSslErrorFlags;

SslErrorFlag_UnknownCA = 0x100;

SslErrorFlag_CertWrongUsage = 0x200;

SslErrorFlag_CertCNInvalid = 0x1000;

SslErrorFlag_CertDateInvalid = 0x2000;

SslErrorFlag_Ignore_All = 0x3300;

Enum WinHttpRequestSecureProtocols;

SecureProtocol_SSL2 = 8;

SecureProtocol_SSL3 = 32;

SecureProtocol_TLS1 = 128;

SecureProtocol_ALL = 168;