参考代码，细节自行调整
Dim body As String = "gameIndex=301&searchDate=2018-09-02&gameFrom="
Dim req = System.Net.WebRequest.Create("https://kaijiang.aicai.com/open/kcResultByDate.do")
req.Method = "POST"
req.ContentType = "application/x-www-form-urlencoded"
req.UserAgent = "Mozilla/5.0 (Windows NT 6.3; rv:57.0) Gecko/20100101 Firefox/57.0"
Dim aryBuf As Byte() = Encoding.UTF8.GetBytes(body)
req.ContentLength = aryBuf.Length
Dim writer = req.GetRequestStream()
writer.Write(aryBuf, 0, aryBuf.Length)
writer.Close()
writer.Dispose()
Dim pos = req.GetResponse
Dim stm As System.IO.Stream = pos.GetResponseStream()
Dim reader As New System.IO.StreamReader(stm)
Dim str As String = reader.ReadToEnd
pos.Close
stm.Close
reader.close
msgbox(str)
Dim jo As JObject = Jobject.Parse(str)
Dim web As new System.Windows.Forms.WebBrowser
web.ScriptErrorsSuppressed = True
web.DocumentText = "<html><body><table>" & jo("resultHtml").ToString & "</table></body></html>"
Do Until web.ReadyState = 4
Application.DoEvents
Loop
Dim trs = web.Document.GetElementsByTagName("tr")
msgbox(trs.count)
For Each tr As object In trs
Dim tds = tr.GetElementsByTagName("td")
output.show(tds(0).Innertext)
output.show(tds(1).Innertext)
output.show(tds(2).Innertext)
output.show("--------")
Next
[此贴子已经被作者于2018/9/3 10:40:43编辑过]
加好友 
发短信
Post By：2018/9/3 10:40:00 [只看该作者]
