VB6 WinHttpRequest PUT请求异常：API访问故障排查

嘿，从你给出的响应头Allow: OPTIONS, GET, POST, HEAD来看，服务器返回的允许方法里居然没PUT，但Postman能正常发送，这十有八九是**跨域预检请求（OPTIONS）**的锅——Postman会自动帮你处理这个预检流程，但VB6的WinHttp得咱们手动来搞定。

下面一步步来排查解决：

1. 先核对你的PUT请求基础代码 #

先看看你的请求构造有没有问题，比如是不是漏了必要的请求头或者方法写错了？给你个标准的PUT请求模板，对比看看：

Dim objWinHttp As New WinHttp.WinHttpRequest
Dim strUrl As String
Dim strRequestBody As String

strUrl = "你的目标API地址"
strRequestBody = "{""你的键"":""你的值""}" ' 换成你实际的JSON请求体

' 初始化PUT请求
objWinHttp.Open "PUT", strUrl, False
' 一定要设置Content-Type，JSON接口就设成application/json
objWinHttp.SetRequestHeader "Content-Type", "application/json"
' 如果API需要认证，别忘了加Authorization头，比如Bearer令牌
' objWinHttp.SetRequestHeader "Authorization", "Bearer 你的认证令牌"

' 发送请求
objWinHttp.Send strRequestBody

' 看看响应结果
MsgBox objWinHttp.ResponseText

如果你的代码和这个差不多，那基础构造应该没问题，问题出在别的地方。

2. 手动处理跨域OPTIONS预检请求 #

当你发送PUT这种非简单请求时，浏览器（或者部分HTTP客户端）会先给服务器发一个OPTIONS请求，问问“我能不能发PUT啊？”。Postman会自动帮你做这一步，但VB6的WinHttp不会，所以得咱们手动触发：

具体步骤： #

• 先给目标URL发一个OPTIONS请求，告诉服务器你接下来要发PUT，以及要带哪些请求头
• 确认服务器返回的响应里，Access-Control-Allow-Methods包含PUT，Access-Control-Allow-Headers包含你要带的头（比如Content-Type）
• 再正式发送PUT请求

给你写好示例代码，直接改改就能用：

Dim objWinHttp As New WinHttp.WinHttpRequest
Dim strUrl As String
Dim strRequestBody As String

strUrl = "你的目标API地址"
strRequestBody = "{""你的键"":""你的值""}"

' 第一步：先发送OPTIONS预检请求
objWinHttp.Open "OPTIONS", strUrl, False
' 带上Origin头（跨域请求必须要，填你的请求来源，比如http://localhost）
objWinHttp.SetRequestHeader "Origin", "你的请求来源地址"
' 告诉服务器你接下来要发PUT请求
objWinHttp.SetRequestHeader "Access-Control-Request-Method", "PUT"
' 告诉服务器你要带的请求头，这里以Content-Type为例
objWinHttp.SetRequestHeader "Access-Control-Request-Headers", "Content-Type"

objWinHttp.Send ""

' 检查服务器是否允许PUT
If InStr(objWinHttp.GetResponseHeader("Access-Control-Allow-Methods"), "PUT") > 0 Then
    ' 第二步：正式发送PUT请求
    objWinHttp.Open "PUT", strUrl, False
    objWinHttp.SetRequestHeader "Content-Type", "application/json"
    ' 同样带上Origin头
    objWinHttp.SetRequestHeader "Origin", "你的请求来源地址"
    
    objWinHttp.Send strRequestBody
    
    ' 拿到响应啦
    MsgBox "PUT请求响应：" & objWinHttp.ResponseText
Else
    MsgBox "服务器不允许PUT方法哦，检查下服务器配置或者请求来源"
End If

3. 其他排查方向 #

• WinHttp版本：确保你用的是WinHttp 5.1及以上版本（VB6里引用的一般都是这个，但还是确认下）
• Cloudflare拦截：响应头里看到Server: cloudflare，Cloudflare可能有安全规则，Postman可能在白名单里，VB6的请求被拦了。可以试试用抓包工具（比如Fiddler）对比Postman和VB6的请求头，看看差了啥，把VB6的请求头改成和Postman一样的试试。
• 代理/防火墙：有没有公司代理或者本地防火墙拦截了PUT请求？可以试试在同一个网络下用Postman和VB6请求，排除环境问题。

4. 抓错误信息更高效 #

在代码里加个错误捕获，能更快找到问题：

On Error Resume Next
objWinHttp.Send strRequestBody
If Err.Number <> 0 Then
    MsgBox "请求出错啦：" & Err.Description & " 错误码：" & Err.Number
End If
On Error GoTo 0

另外，用Fiddler抓一下Postman的PUT请求和VB6的PUT请求，对比请求头、请求体的差异，基本上就能定位到问题啦。

内容的提问来源于stack exchange，提问作者Jordan Hanna