VBA发起HTTP请求时如何通过URL以GET/POST正确传递字符串变量

常见传参异常原因 #

你当前遇到服务端只收到字面字符串"UserN"、拿不到实际变量值的问题，通常由以下几个原因导致：

• 拼接请求URL/请求体时未对动态变量做URL编码，碰到包含空格、@、中文、域标识的Windows用户名时，参数会被URL规则截断，导致服务端收到错误的不完整内容
• 拼接字符串时手误将变量名作为字面量写入，例如把"user=" & UserN写成了"user=UserN"，就会出现服务端只收到固定字符串"UserN"的情况
• 用GET请求时错误把参数写在send()方法的请求体里（GET请求的参数不会通过请求体传递，服务端自然接收不到）
• 发POST请求时没有设置正确的Content-Type请求头，服务端无法解析请求体里的参数内容

具体实现 #

前置准备：URL编码辅助函数 #

VBA本身没有内置的URL编码方法，拼接带特殊字符的参数时必须先编码，否则会直接出现传参截断问题，可直接复用以下通用编码函数：

Function URLEncode(ByVal inputStr As String) As String
    Dim i As Long, charCode As Long, output As String
    For i = 1 To Len(inputStr)
        charCode = Asc(Mid(inputStr, i, 1))
        ' 处理负数编码（对应中文等非ASCII字符）
        If charCode < 0 Then charCode = charCode + 65536
        ' 数字、大小写字母无需编码，直接保留
        Select Case charCode
            Case 48 To 57, 65 To 90, 97 To 122
                output = output & Chr(charCode)
            Case Else
                ' 其余字符统一转换为URL规范的%XX格式
                output = output & "%" & Hex(charCode \ 256) & "%" & Hex(charCode Mod 256)
        End Select
    Next
    URLEncode = output
End Function

GET请求正确写法 #

GET请求的参数需要和URL做拼接，拼接前必须对变量值做URL编码：

' 变量赋值保持原有逻辑
UserN = Environ("username")

' 正确拼接URL
Dim fullUrl As String
fullUrl = "http://{local-ip}/index.php?user=" & URLEncode(UserN)
' 排查用：打印实际拼接完成的URL，确认变量值已经正确填入
Debug.Print "最终请求URL：" & fullUrl

Set objHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
objHTTP.Open "GET", fullUrl, False
objHTTP.setRequestHeader "User-Agent", "Mozilla/5.0 (X11; Ubuntu; Linux x86_64; rv:84.0) Gecko/20100101 Firefox/84.0"
' GET请求不需要传入请求体参数
objHTTP.send

Debug.Print objHTTP.responseText

POST请求正确写法 #

POST请求的参数不要拼在URL后面，需要按照表单格式把编码后的参数作为请求体传递，同时设置正确的请求头：

UserN = Environ("username")
Dim postUrl As String
postUrl = "http://{local-ip}/index.php"

Set objHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
objHTTP.Open "POST", postUrl, False
' 必须设置匹配表单格式的Content-Type，否则PHP无法解析请求体
objHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded; charset=UTF-8"
objHTTP.setRequestHeader "User-Agent", "Mozilla/5.0 (X11; Ubuntu; Linux x86_64; rv:84.0) Gecko/20100101 Firefox/84.0"

' 对参数值做URL编码后作为请求体发送
Dim postData As String
postData = "user=" & URLEncode(UserN)
objHTTP.send postData

Debug.Print objHTTP.responseText

服务端配合排查修正 #

• 如果使用GET请求，PHP端用$_GET['user']接收参数的逻辑是正确的
• 如果使用POST请求，PHP端需要把$_GET改为$_POST才能接收到参数
• 临时排查可以在PHP端添加var_dump($_SERVER['QUERY_STRING'], file_get_contents('php://input'))，直接打印服务端实际收到的查询字符串和请求体内容，定位是VBA拼接错误还是服务端配置问题，也可以顺便检查Kali上的Apache配置是否存在URL重写拦截参数的情况。

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