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

来源：互联网发布：dps数据处理软件下载编辑：程序博客网时间：2024/05/12 17:12

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;

0 0