- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]HttpClient的POST请求 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=174491)
-- 发布时间：2022/1/18 10:58:00
-- [求助]HttpClient的POST请求
因需求需要对部分网站的信息进行实时采集，之前用Webbrower可以实现但比较麻烦，GET形式的请求比较好处理，类似如下的POST请求一直无法研究成功，请求协助
网站源：http://www.changanjyzx.com/
采集链接(post请求链接)：http://www.changanjyzx.com/notice/pageNoticeByType
对应的请求代码及header头截图如下，此链接无需登录和COOKIE
Dim url As String = "http://www.changanjyzx.com/notice/pageNoticeByType"
Dim hc As New HttpClient(url)
hc.ContentType = "application/json;charset=UTF-8"
hc.Headers.Add("Accept","application/json, text/javascript, */*; q=0.01")
hc.Headers.Add("Accept-Encoding","gzip, deflate")
hc.Headers.Add("Accept-Language","zh-CN,zh;q=0.9")
hc.Headers.Add("Connection","keep-alive")
hc.Headers.Add("Content-Length","42")
\'hc.Headers.Add("Cookie","xxx")
hc.Headers.Add("Host","www.changanjyzx.com")
hc.Headers.Add("Origin","http://www.changanjyzx.com")
hc.Headers.Add("Referer","http://www.changanjyzx.com/")
hc.Headers.Add("User-Agent","Mozilla/5.0 (Windows NT 10.0; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/97.0.4692.71 Safari/537.36")
hc.Headers.Add("X-Requested-With","XMLHttpRequest")
Dim jo As New JObject
jo("type") = 9
jo("examType") = 0
jo("pageSize") = 10
jo("pageNumber") = 2
\'Output.Show(jo.tostring)
hc.Content = jo.tostring
Dim ret As String = hc.GetData
Output.Show(ret)
\'
[此贴子已经被作者于2022/1/18 11:04:38编辑过]
-- 发布时间：2022/1/18 11:11:00
--
使用表单方式提交数据：http://www.foxtable.com/mobilehelp/topics/0159.htm
……
hc.Headers.Add("X-Requested-With","XMLHttpRequest")
hc.ContentType = "application/x-www-form-urlencoded"
hc.FormData.Add("type",9)
hc.FormData.Add("examType",0)
……
Dim ret As String = hc.GetData
Output.Show(ret)
-- 发布时间：2022/1/18 11:29:00
--
果然成功了，谢谢蓝版。追问：为什么这里必须要用表单方式呢，是怎么判断的？
-- 发布时间：2022/1/18 11:32:00
--
此主题相关图片如下：1.png
-- 发布时间：2022/1/18 11:50:00
--
谢谢蓝版。下面是另外一个网站，也是表单形式，但是参数有些不一样，对应json我已经解析准备好，但是参数名比如之前的又type,examType等，这个应该怎么来做表单参数提交呢。
此主题相关图片如下：微信图片_20220118114935.png
-- 发布时间：2022/1/18 11:52:00
--
信息太少无法判断。看接口说明文档
-- 发布时间：2022/1/18 11:59:00
--
网站源：https://www.cqggzy.com/jyxx/transaction_detail.html
采集链接(post请求链接)：https://www.cqggzy.com/interface/rest/inteligentSearch/getFullTextData
请教：
1、这个链接对应的Form Data 是由josn对应组成的，如果是表单提交不是josn大概是什么思路来分拆参数？
2、如果涉及到带cookie，是用hc.Headers.Add("Cookie","xxx")还是hc.sCookies("xxx")？
此主题相关图片如下：微信图片_20220118115318.png
此主题相关图片如下：微信图片_20220118114935.png
-- 发布时间：2022/1/18 13:34:00
--
1、有没有接口说明文档？
2、hc.sCookies
-- 发布时间：2022/1/18 13:59:00
--
没有接口文档
以下是代码，未成功，sCookies的方式为测试（应该不需要）
Dim url As String = "https://www.XXXXX.com/interface/rest/inteligentSearch/getFullTextData"
Dim hc As New HttpClient(url)
hc.ContentType = "application/x-www-form-urlencoded"
hc.Headers.Add("Accept","application/json, text/javascript, */*; q=0.01")
hc.sCookies.Add("JSESSIONID","F13AA7A30C7633EC1A977149A3F2939D")
hc.sCookies.Add("__jsluid_s","182579a38d31f324ab6317c280583d06")
hc.sCookies.Add("cookie_www","36802747")
hc.sCookies.Add("Hm_lvt_3b83938a8721dadef0b185225769572a","1642406313,1642411971,1642470401")
hc.sCookies.Add("Hm_lpvt_3b83938a8721dadef0b185225769572a","1642485954")
hc.Headers.Add("User-Agent","Mozilla/5.0 (Windows NT 10.0; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/97.0.4692.71 Safari/537.36")
hc.Headers.Add("X-Requested-With","XMLHttpRequest")
Dim jo As New JObject
jo("token") = ""
jo("pn") = 20
jo("rn") = 20
jo("sdt") = ""
jo("edt") = ""
jo("wd") = " "
jo("inc_wd") = ""
jo("exc_wd") = ""
jo("fields") = "title;projectno;"
jo("cnum") = "001"
Dim jo1 As New JObject
jo1("istop")= "0"
jo1("ordernum")= "0"
jo1("webdate")= "0"
jo1("rowid")= "0"
jo("sort") = jo1
jo("ssort") = "title"
jo("cl") = 200
jo("terminal") = ""
Dim jo2 As New JObject
jo2("fieldName") = "categorynum"
jo2("equal") = "004"
jo2("notEqual") = Nothing
jo2("equalList") = Nothing
Dim ja1 As New JArray
ja1.Add("014001018")
ja1.Add("004002005")
ja1.Add("014001015")
ja1.Add("014005014")
ja1.Add("014008011")
jo2("notEqualList") = ja1
jo2("isLike") = True
jo2("likeType") = 2
Dim ja2 As New JArray
ja2.Add(New JObject)
ja2(0) = jo2
jo("condition") = ja2
Dim ja3 As New JArray
ja3.Add(New JObject)
ja3(0)("fieldName") = "webdate"
ja3(0)("startTime") = "2021-10-19 00:00:00"
ja3(0)("endTime") = "2022-01-17 23:59:59"
jo("time") = ja3
jo("highlights") = "title"
jo("statistics") = Nothing
Dim ja4 As New JArray
jo("unionCondition") = ja4
jo("accuracy") = ""
jo("noParticiple") = "0"
jo("searchRange") = Nothing
jo("isBusiness") = "1"
\'Output.Show(jo.tostring)
hc.Content = jo.tostring
Dim ret As String = hc.GetData
Output.Show(ret)
\'
[此贴子已经被作者于2022/1/18 14:21:36编辑过]
-- 发布时间：2022/1/18 14:19:00
--
这我就不懂了，自己试吧