VB.NET发送指定表单参数的HTTP POST请求问题求解

代码核心问题 #

• 请求体写入逻辑错误：你将POST数据转为字节数组后，直接用StreamWriter.WriteLine(byteArray)写入，此时byteArray会被转为字符串"System.Byte[]"，实际提交的完全不是你构造的表单数据，同时WriteLine会额外追加换行符，破坏请求格式。
• 编码选择不当：使用ASCII编码无法处理非英文字符（如法语、中文），大概率会出现乱码。
• 冗余代码：创建了WebClient实例但全程未使用，无实际作用。
• URL编码缺失：手动拼接表单参数未做URL编码，若字段值包含&、=、空格等特殊字符时，请求格式会被破坏。
• 异常处理逻辑错误：将MsgBox的返回值（枚举类型）赋值给result，无法正常保留异常信息。

修正后实现代码 #

' 需提前引入命名空间
' Imports System.Net
' Imports System.Text
' Imports System.IO

Dim result = ""
Dim targetUrl = "http://derogations/index.php"

' 用键值对集合存储表单参数，方便统一处理
Dim formParams As New List(Of KeyValuePair(Of String, String))()
formParams.Add(New KeyValuePair(Of String, String)("filtre_statut", "*"))
formParams.Add(New KeyValuePair(Of String, String)("filtre_client", "*"))
formParams.Add(New KeyValuePair(Of String, String)("filtre_type", "*"))
formParams.Add(New KeyValuePair(Of String, String)("filtre_demandeur", "*"))
formParams.Add(New KeyValuePair(Of String, String)("filtre_validateur", "*"))
formParams.Add(New KeyValuePair(Of String, String)("filtre_recherche", "RATNOV0025AB"))

' 拼接并对参数做URL编码
Dim postData As New StringBuilder()
For Each param In formParams
    If postData.Length > 0 Then postData.Append("&")
    postData.AppendFormat("{0}={1}", Uri.EscapeDataString(param.Key), Uri.EscapeDataString(param.Value))
Next

' 转为字节数组，默认用UTF-8编码适配多语言场景
Dim byteArray() As Byte = Encoding.UTF8.GetBytes(postData.ToString())

' TLS配置仅对HTTPS请求生效，HTTP请求无影响
ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls12
' 以下回调仅用于HTTPS自签名证书的测试场景，生产环境务必删除
ServicePointManager.ServerCertificateValidationCallback = Function(sender, cert, chain, errs) True

Try
    ' 初始化POST请求
    Dim req = CType(WebRequest.Create(targetUrl), HttpWebRequest)
    req.Method = "POST"
    req.ContentType = "application/x-www-form-urlencoded"
    req.ContentLength = byteArray.Length
    req.KeepAlive = False
    ' 如目标服务器仅支持HTTP/1.0可保留原配置，默认用1.1即可
    req.ProtocolVersion = HttpVersion.Version11

    ' 写入正确的请求体
    Using reqStream As Stream = req.GetRequestStream()
        reqStream.Write(byteArray, 0, byteArray.Length)
    End Using

    ' 读取响应内容
    Using resp As WebResponse = req.GetResponse()
        Using sr As New StreamReader(resp.GetResponseStream(), Encoding.UTF8)
            result = sr.ReadToEnd()
        End Using
    End Using

Catch ex As Exception
    ' 保留完整异常信息，如需弹窗可单独调用MsgBox
    result = $"请求执行出错：{ex.Message}"
    ' MsgBox(result)
End Try

简化实现（基于WebClient） #

如果不需要精细控制请求参数，可直接用WebClient简化逻辑，省去手动处理请求流的步骤：

Dim client As New WebClient()
client.Headers.Add("Content-Type", "application/x-www-form-urlencoded")
Dim byteArray() As Byte = Encoding.UTF8.GetBytes(postData.ToString())
' 上传字节数组并获取响应
Dim responseBytes() As Byte = client.UploadData(targetUrl, "POST", byteArray)
' 转为字符串结果
result = Encoding.UTF8.GetString(responseBytes)

注意事项 #

• 若目标表单使用特定编码（如ISO-8859-1适配法语环境），可将代码中所有Encoding.UTF8替换为对应编码。
• 若请求需要登录态，需额外添加CookieContainer并复用，避免请求被重定向到登录页。
• 生产环境请删除ServerCertificateValidationCallback相关配置，避免引入安全风险。

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