WIN7系统excelVBA抓取网页数据send命令出错提示“无法建立连接”

zhystudio

代码如下：
temp = "https://portal.ccsa.cn/rp/paas/pm/projectReportDrill/getProjBasicDrillVOById.do?projCode=" & Cells(3, 3)
   
    ' Login
    Set postReq = CreateObject("Msxml2.ServerXMLHTTP.6.0")
    'Set postReq = CreateObject("Msxml2.XMLHTTP.6.0")
    postReq.Open "GET", temp, False
    postReq.setRequestHeader "Cookie", cookies
    postReq.setRequestHeader "Content-type", "application/json;charset=UTF-8" 'send appropriate Headers
    postReq.send  ' send login info

执行到send命令时提示“无法建立连接”

我在家里win10系统下就可以运行并获取数据，在公司win7电脑里就提示错误，哪位知道是怎么回事？

约定的童话

IE重新安装试一下

perfect131

试试 8 楼方法
https://club.excelhome.net/forum ... 1360051&pid=9183809

zhystudio

win10、win11里运行1楼的代码都没问题，就是在我这台win7的电脑上就提示“无法与服务器建立连接”。这个跟ie11有关系吗？我的这个网站用ie11打不开，用chrome可以打开。360浏览器极速模式可以打开，兼容模式打不开。代码是需要先在chrome里登录，手动获取到cookie后复制到excel里，excel vba再使用cookie登录进去抓取数据。

zhystudio

perfect131 发表于 2023-3-28 12:31
试试 8 楼方法
https://club.excelhome.net/forum ... 1360051&pid=9183809

我用的Msxml2.ServerXMLHTTP.6.0，没找到有遇到过这个问题的答案

perfect131

zhystudio 发表于 2023-3-28 17:56
win10、win11里运行1楼的代码都没问题，就是在我这台win7的电脑上就提示“无法与服务器建立连接”。这个 ...

用别的对象 WinHttpRequest，或者 启用更高版本的 TLS 协议

zhystudio

perfect131 发表于 2023-3-29 19:15
用别的对象 WinHttpRequest，或者 启用更高版本的 TLS 协议

测试了一下，
在win10下
Set postReq = CreateObject("WinHttp.WinHttpRequest.5.1")
postReq.Option(9) = 2048   'TLS1.2
正常运行

但是改为
Set postReq = CreateObject("WinHttp.WinHttpRequest.5.1")
postReq.Option(9) = 512   'TLS1.1
就不行了，提示无法与服务器建立连接。

在win7里
postReq.Option(9) = 512   'TLS1.1   可以执行下去，但是后面会提示无法与服务器建立连接。
改为 postReq.Option(9) = 2048   'TLS1.2  后运行该条程序会直接提示“运行时错误 5，无效的过程调用或参数”

问题应该就是在TLS1.2这里，但是win7里创建WinHttp.WinHttpRequest.5.1对象后，不让用TLS1.2

zhystudio

zhystudio

解决了：
1、需要安装1个win7的补丁；
2、修改注册表，设置默认的安全协议使用TSL1.2

让windows7支持
补丁地址：http://www.catalog.update.microsoft.com/search.aspx?q=kb3140245
下载自己的版本对应的，安装之后重启，然后要设置注册表，以 win7x64 为例：

Windows Registry Editor Version 5.00
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings\WinHttp]
“DefaultSecureProtocols”=dword:00000a00
[HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Internet Settings\WinHttp]
“DefaultSecureProtocols”=dword:00000a00
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings]
“SecureProtocols”=dword:00000a80
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings]
“SecureProtocols”=dword:00000a80
如果自己添加不来，微软也提供了工具：http://download.microsoft.com/do ... oftEasyFix51044.msi

运行完成后重启即可。