headers中增加cookie键值对 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以下程序测试headers中增加cookie键值对，在服务器项目中发现请求的headers中没有cookie键值对

Dim mystring As String

Dim mycookie As String = "ddjdjjjdjd"

Dim hctest As New HttpClient("http://157.116.12.172:32188/Web_api" )

hctest.C

hctest.Headers.Add("cookie",mycookie)

Dim jotest As New JObject

jotest("jsonrpc") = "2.0"

output.Show( jotest.Tostring )

Net.ServicePointManager.SecurityProtocol = Net.SecurityProtocolType.Tls12

hctest.Content = jotest.Tostring

mystring = hctest.GetData()

output.Show( mystring )

但是如果把程序修改如下（把键值对的键名改为mycookie），测试OK

Dim mystring As String

Dim mycookie As String = "ddjdjjjdjd"

Dim hctest As New HttpClient("http://157.116.12.172:32188/Web_api" )

hctest.C

hctest.Headers.Add("mycookie",mycookie)

Dim jotest As New JObject

jotest("jsonrpc") = "2.0"

output.Show( jotest.Tostring )

Net.ServicePointManager.SecurityProtocol = Net.SecurityProtocolType.Tls12

hctest.Content = jotest.Tostring

mystring = hctest.GetData()

output.Show( mystring )

请教专家，如果一定要增加键名为cookie的键值对，有什么办法。

[此贴子已经被作者于2022/9/22 11:53:50编辑过]

再请教老师cookie中如何包含特殊字符？

Dim mystring As String

Dim mycookie As String = "bGxqZ2wuZA3ZFxlv7pwEa3OvCTKAdA=="

Dim hctest As New HttpClient("http://157.116.12.172:32188/Web_api" )

hctest.C

Dim jotest As New JObject

jotest("jsonrpc") = "2.0"

hctest.sCookies.Add("Session-Id",UrlEncode(mycookie))

hctest.Content = jotest.Tostring

mystring = hctest.GetData()

运行以上程序后

服务器端cookies如下

Session-Id:bGxqZ2wuZA3ZFxlv7pwEa3OvCTKAdA%3d%3d

服务器端headers如下

Cookie:Session-Id=bGxqZ2wuZA3ZFxlv7pwEa3OvCTKAdA%253d%253d

如果不编码直接放入sCookies

hctest.sCookies.Add("Session-Id",UrlEncode(mycookie)) ----》 hctest.sCookies.Add("Session-Id",mycookie)

服务器端cookies如下

Session-Id:bGxqZ2wuZA3ZFxlv7pwEa3OvCTKAdA==

服务器端headers如下

Cookie:Session-Id=bGxqZ2wuZA3ZFxlv7pwEa3OvCTKAdA%3d%3d

请教老师如何才能做到服务器端cookies 服务器端headers 都正常？

关键是服务器端接口是固定死的：不是直接取cookie，而是取服务器端headers里的cookie

主题：headers中增加cookie键值对