Question

我有以下代码使用VBA进行Web服务调用（单词2013）。直到最近，当网址更改为https时，它与http工作正常。

Dim myRequest As Object
Set myRequest = CreateObject("WinHttp.WinHttpRequest.5.1")
myRequest.setTimeouts 50000, 50000, 50000, 50000
myRequest.Open "GET", myURL, False
myRequest.setRequestHeader "Authorization", "Basic " + EncodeToBase64("uid"+"pwd")
myRequest.Send
myRequest.waitForResponse (500)

当我从＆＃34; http＆＃34;更改网址时到＆＃34; https＆＃34;它给出了这个错误。

＆＃34;运行时错误＆＃39; -2147012739（80072f7d）＆＃39;：发生错误安全渠道支持＆＃34;

我已尝试设置客户端证书（在发送方法之前），但这不起作用。（我将证书导入我的本地计算机并可以在证书库中看到它）

myRequest.SetClientCertificate "LOCAL_MACHINE\Personal\Certificates\"

我真的需要解决这个问题。有人可以帮忙吗？感谢。

Answer 1

我记得有这个问题，

Microsoft于2015年7月14日终止了对Windows Server 2003的支持。此更改已影响您的软件更新和安全选项。

在这里查看https://support.microsoft.com/en-us/kb/938397

使用vba调用Web服务时出错

1 个答案: