这个POST的URL怎么构建？

forwjds

网站首页就是www.zsedu.net

mxf21cn

但抓包结果：
POST http://zk.zsedu.net/rrt/query/search-info/search HTTP/1.1
Accept: */*
Content-Type: application/x-www-form-urlencoded; charset=UTF-8
X-Requested-With: XMLHttpRequest
Referer: http://zk.zsedu.net/rrt/view/pc-search.html
Accept-Language: zh-CN
Accept-Encoding: gzip, deflate
User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64; Trident/7.0; rv:11.0) like Gecko
Host: zk.zsedu.net
Content-Length: 182
DNT: 1
Connection: Keep-Alive
Pragma: no-cache
Cookie: SESSION=c64407a0-1e1b-4c64-b805-52d3eb7682f8; token=3aa7dddc417fed29d7a6ab12fcde3091; Hm_lpvt_7ee8fd93d20d49c6d05675e9b4862b1e=1532056130; Hm_lvt_7ee8fd93d20d49c6d05675e9b4862b1e=1531666612,1531705115; _jspxcms=87af9215bb4046de8c249c50dca70dde; JSESSIONID=BD4D8F677A659C1E9E24D5E297290434.zsedu-web3

code=a5c6e45ea4dcabf63acb7836760a9ef1&info_examNo=081900030&info_stName=%E5%BD%AD%E5%AE%B6%E5%A6%8D&_n=A98B6B2B0A96B6B8A98B4B0B8B2B14B98C16C10B98C14B0B4A96A88B4B0B0B32B70B68B68B58B56

duquancai

学习多多姐的代码，写一个：

1. Sub main()
   
2.     Dim winHttp As Object, Dom As Object, Js As Object
   
3.     Dim code$, info_examNo$, info_stName$, ecStr$
   
4.     Set winHttp = CreateObject("WinHttp.WinHttpRequest.5.1")
   
5.     Set Dom = CreateObject("htmlfile"): Set Js = Dom.parentWindow
   
6.     Dom.write "<script src='http://www.zsedu.net/rrt/js/my-controls/JEventInfo.js'></script>"
   
7.     info_examNo = "081900005" '学号
   
8.     info_stName = Js.eval("encodeURIComponent('陈浩')") '姓名
   
9.     code = "a5c6e45ea4dcabf63acb7836760a9ef1" '查询类型
   
10.     ecStr = Js.eval("getEventEncrypt({type:'click',pageX:'157',pageY:'824',target:{nodeName:'BUTTON'}})")
    
11.     With winHttp
    
12.         .Open "GET", "http://www.zsedu.net/rrt/common/initSearch", False
    
13.         .Send
    
14.         .Open "POST", "http://www.zsedu.net/rrt/query/search-info/search", False
    
15.         .setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
    
16.         .Send "code=" & code & "&info_examNo=" & info_examNo & "&info_stName=" & info_stName & "&_n=" & ecStr
    
17.         Debug.Print .responsetext
    
18.     End With
    
19. End Sub

复制代码