VB.NET 点击ListView项跳转预填表单网页及POST参数构造问题

你当前拼接参数的方式存在两个核心问题，直接会导致请求提交后无法匹配表单字段：

• 参数开头不能加?：?是GET请求中分隔URL路径与查询参数的特殊符号，当你设置POST请求的ContentType为application/x-www-form-urlencoded时，请求体本身不需要带这个分隔符。加了之后服务端会把第一个参数键识别为?filtre_statut，完全匹配不上表单实际的filtre_statut字段。
• 所有参数值必须做URL编码：如果直接拼接明文，遇到中文、空格、特殊符号（比如&、=）时会触发解析错误，服务端拿到的字段值会出现错乱。

正确的参数格式 #

按照键1=值1&键2=值2&键3=值3的结构拼接即可，每个键对应目标网页的表单字段名，值对应你要填入的内容，示例代码：

' 从ListView选中项提取当前点击的组件名称
Dim selectedCompName As String = ListView1.SelectedItems(0).Text
' 构造POST参数，对每个传入值做URL编码
Dim postData As String = $"filtre_statut=*" &
                          "&filtre_client=*" &
                          "&filtre_type=*" &
                          "&filtre_demandeur=*" &
                          "&filtre_validateur=*" &
                          $"&filtre_recherche={Uri.EscapeDataString(selectedCompName)}"

你要实现的是“点击ListView项后，打开目标网页且表单自动填入组件名”的效果，单纯调用HttpWebRequest发POST拿返回字符串是做不到打开浏览器展示页面的，可根据目标网页的支持情况选择以下方案：

• 如果目标网页支持通过URL查询参数预填表单（绝大多数查询类业务页面都支持），直接拼好参数用系统默认浏览器打开即可，不需要写复杂的POST请求逻辑：

  Dim targetPageUrl As String = $"https://目标网页完整地址/?filtre_statut=*&filtre_recherche={Uri.EscapeDataString(selectedCompName)}"
  Process.Start(New ProcessStartInfo(targetPageUrl) With {.UseShellExecute = True})
  

• 如果目标网页必须通过POST请求提交参数才能加载预填后的页面，构造好上面说的postData传入你现有的Post_request函数即可，注意修正原函数中Cookie设置的边界问题。

原Post_request函数中设置Cookie的逻辑存在兼容问题：

' 原代码的URL截取逻辑
hwebrequest.CookieContainer.SetCookies(New Uri(url.Substring(0, url.IndexOf("/", 8))), cookies)

如果目标URL的层级较深（比如https://xxx.com/a/b/c?param=1），截取得到的域名会不完整，导致Cookie设置失败，可直接用完整的请求URL作为Uri参数传入SetCookies方法，不需要手动截取域名部分。

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