这个POST的URL怎么构建？

bluexuemei

POST http://www.zsedu.net/rrt/query/search-info/search HTTP/1.1
Host: www.zsedu.net
Connection: keep-alive
Content-Length: 176
Accept: */*
Origin: http://www.zsedu.net
X-Requested-With: XMLHttpRequest
User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/64.0.3282.119 Safari/537.36
Content-Type: application/x-www-form-urlencoded; charset=UTF-8
Referer: http://www.zsedu.net/rrt/view/pc-search.html
Accept-Encoding: gzip, deflate
Accept-Language: zh-CN,zh;q=0.9
Cookie: SESSION=e99165fa-13f5-4e41-958e-3fd1f71bc4a0; token=1124a83f6dd7520972281f99da292324; _jspxcms=11333e7d45984c489becbb8de56539cd; Hm_lvt_7ee8fd93d20d49c6d05675e9b4862b1e=1531387604,1531469758,1531523005; Hm_lpvt_7ee8fd93d20d49c6d05675e9b4862b1e=1531523005


code=a5c6e45ea4dcabf63acb7836760a9ef1&info_examNo=081900005&info_stName=%E9%99%88%E6%B5%A9&_n=A98B6B2A98B6B0B2A96B10B12B8B14B10B98C16C10B98C14B0B6B0A88B4B0A96B32B70B68B68B58B56

forwjds

有很多动态的参数。直接复制粘贴这些值恐怕是不行的

duquancai

是不是 动态参数 加密了？
code=a5c6e45ea4dcabf63acb7836760a9ef1这个是加密的吧！
info_examNo=081900005这个明码
info_stName=%E9%99%88%E6%B5%A9这个明码“陈浩”
_n=A98B6B2A98B6B0B2A96B10B12B8B14B10B98C16C10B98C14B0B6B0A88B4B0A96B32B70B68B68B58B56这个是加密的吧！


应该找加密函数！

Kaohsing

用ie模拟登录

duquancai

有验证码，不是那么好玩的！

forwjds

这个查询不需要登录。

1. Sub Main()
   
2.     Dim PostData
   
3.     PostData = "code=a5c6e45ea4dcabf63acb7836760a9ef1" '查询种类的code，固定值
   
4.     PostData = PostData & "&info_examNo=081900005" '考试号
   
5.     PostData = PostData & "&info_stName=%E9%99%88%E6%B5%A9" '姓名
   
6.     PostData = PostData & "&_n=A98B6B2A98B6B6B0B10B2B4B8B0B8B98C16C10B98C14A98B10B12A88B4B0B0B32B70B68B68B58B56" '校验值
   
7.     '校验值是由时间及鼠标点击“查询”按钮时的坐标生成的字符串
   
8.     '在当前的测试中，使用固定值，查询未受影响
   
9.     '该值也可以用下面的函数生成
   
10. '    PostData = PostData & "&_n=" & getEventEncrypt()
    
11.    
    
12.     With CreateObject("WinHttp.WinHttpRequest.5.1")
    
13.         .Open "GET", "http://www.zsedu.net/rrt/common/initSearch", False
    
14.         .Send
    
15.         .Open "POST", "http://www.zsedu.net/rrt/query/search-info/search", False
    
16.         .setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
    
17.         .Send PostData
    
18.         Debug.Print .responsetext
    
19.     End With
    
20. End Sub
    
21. 
    
22. Function getEventEncrypt()
    
23.     Dim s As String
    
24.     'pageX=157,pageY=424
    
25.     s = "var a=function getEventEncrypt(){"
    
26.     s = s & "var str=new Date().getTime()+'click'+'157'+','+'424'+'BUTTON';"
    
27.     s = s & "var ecStr='';for(var i=0;i<str.length;i++){"
    
28.     s = s & "var data=str.charCodeAt(i)<<1;var type=parseInt(data/100);switch(type){"
    
29.     s = s & "case 0:ecStr+='A'+data;break;case 1:ecStr+='B'+(data-100);break;"
    
30.     s = s & "case 2:ecStr+='C'+(data-200);break;case 3:ecStr+='D'+(data-300);break;"
    
31.     s = s & "case 4:ecStr+='E'+(data-400);break;case 5:ecStr+='F'+(data-500);break;"
    
32.     s = s & "case 6:ecStr+='G'+(data-600);break;case 7:ecStr+='H'+(data-700);break;"
    
33.     s = s & "case 8:ecStr+='I'+(data-800);break;case 9:ecStr+='J'+(data-900);break;"
    
34.     s = s & "default:ecStr+='Z'+(data)}}return ecStr}();a"
    
35.     With CreateObject("MSScriptControl.ScriptControl")
    
36.         .Language = "javascript"
    
37.         getEventEncrypt = .Eval(s)
    
38.     End With
    
39. End Function
    

复制代码

bluexuemei

forwjds 发表于 2018-7-14 16:56
这个查询不需要登录。

有一个问题，只要用上循环的话就会出问题，只能查第一个，从第二个起查到的数据为{"status":500,"error":"系统异常，请稍候重试"}，怎么解决？测试数据
081900005        陈浩
081900014        周鑫
081900030        彭家妍

YZC51

bluexuemei 发表于 2018-7-14 20:31
有一个问题，只要用上循环的话就会出问题，只能查第一个，从第二个起查到的数据为{"status":500,"error": ...

学习forwjds老师的代码，请参考。谢谢！
中山市2017-2018学年第二学期高二期末水平测试.rar (16.64 KB, 下载次数: 14)

2018-7-14 21:35 上传

点击文件名下载附件

ammyc

好好学习，天天向上

mxf21cn

forwjds 发表于 2018-7-14 16:56
这个查询不需要登录。

forwjds老师您好，本人在使用Fiddler抓包时，得到的网址均为"http://zk.zsedu.net/…………"
而您在13、15两行代码中均使用 "http://www.zsedu.net/…………"，能帮忙解释下您是如何得到这个网址的么？