程序的意图是想通过XMLHTTP直接抓包得到考生的录取信息。
登录页面的表单信息如下: <form name="PglqcxActionForm" method="post" action="/ZKCX/PGLQCX/Action/PglqcxAction/Ck.do">
<tr>
<td bgcolor="#FFFFFF"><table width="80%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="50%"> </td>
<td width="2%"> </td>
<td width="48%"> </td>
</tr>
<tr>
<td height="40" align="right" class="ziti2">准考证号码:</td>
<td height="40"> </td>
<td height="40" align="left"><input type="text" name="kh" value=""></td>
</tr>
<tr>
<td height="40" align="right" class="ziti2">查询密码:</td>
<td height="40"> </td>
<td height="40" align="left"><input type="password" name="cxmm" value=""></td>
</tr>
<tr>
<td align="center" class="ziti2" colspan="3">
<font color="red"></font>
</td>
</tr>
<tr>
<td> </td>
<td> </td>
<td> </td>
</tr>
<tr>
<td align="right"><img src="../../Jsp/imaegs/Search.jpg" width="48" height="20" border="0" style="cursor:pointer" onclick="submit();" /></td>
<td> </td>
<td align="center"><img src="../../Jsp/imaegs/index_r5_c5.jpg" width="47" height="20" border="0" style="cursor:pointer" onclick="reset();"/></td>
</tr>
</table></td>
</tr>
</form>程序的代码如下:
Set XMLObject = CreateObject("Microsoft.XMLHTTP")
SendStr = "kh=" & EncodeToBytes(zkzh) & "&cxmm=" & EncodeToBytes(cxmm)
XMLObject.Open "POST", strQueryUrlLqcx, False
XMLObject.setRequestHeader "Referer", strQueryUrlLqcx
XMLObject.setRequestHeader "CONTENT-TYPE", "application/x-www-form-urlencoded"
XMLObject.setRequestHeader "CONTENT-LENGTH", Len(SendStr)
XMLObject.send SendStr
ReturnByte = XMLObject.responseBody
ReturnText = bytes2BSTR(ReturnByte)直接通过人工方式登录得到的HTML代码,如果被录取:
<td height="30" align="left" colspan="4"><font color="red">恭喜您!您已经被录取,录取结果为:</font></td>
</tr> <tr>
<td colspan="4" align="center"><table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#000000">
<tr>
<td align="center" bgcolor="#FFFFFF">批次</td>
<td align="center" bgcolor="#FFFFFF">层次</td>
<td align="center" bgcolor="#FFFFFF">学校</td>
<td align="center" bgcolor="#FFFFFF">专业</td>
</tr>
<tr>
<td align="center" bgcolor="#FFFFFF">(2)一本A类</td>
<td align="center" bgcolor="#FFFFFF">(1)本科</td>如果未被录取:
<h1>
提示:
</h1>
非常抱歉,您暂时还没有录取信息!
但用上面那段代码来获取时,不论考生是否被录取,均显示未被录取的信息
这个问题一直困扰着我
登录页面的表单信息如下: <form name="PglqcxActionForm" method="post" action="/ZKCX/PGLQCX/Action/PglqcxAction/Ck.do">
<tr>
<td bgcolor="#FFFFFF"><table width="80%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="50%"> </td>
<td width="2%"> </td>
<td width="48%"> </td>
</tr>
<tr>
<td height="40" align="right" class="ziti2">准考证号码:</td>
<td height="40"> </td>
<td height="40" align="left"><input type="text" name="kh" value=""></td>
</tr>
<tr>
<td height="40" align="right" class="ziti2">查询密码:</td>
<td height="40"> </td>
<td height="40" align="left"><input type="password" name="cxmm" value=""></td>
</tr>
<tr>
<td align="center" class="ziti2" colspan="3">
<font color="red"></font>
</td>
</tr>
<tr>
<td> </td>
<td> </td>
<td> </td>
</tr>
<tr>
<td align="right"><img src="../../Jsp/imaegs/Search.jpg" width="48" height="20" border="0" style="cursor:pointer" onclick="submit();" /></td>
<td> </td>
<td align="center"><img src="../../Jsp/imaegs/index_r5_c5.jpg" width="47" height="20" border="0" style="cursor:pointer" onclick="reset();"/></td>
</tr>
</table></td>
</tr>
</form>程序的代码如下:
Set XMLObject = CreateObject("Microsoft.XMLHTTP")
SendStr = "kh=" & EncodeToBytes(zkzh) & "&cxmm=" & EncodeToBytes(cxmm)
XMLObject.Open "POST", strQueryUrlLqcx, False
XMLObject.setRequestHeader "Referer", strQueryUrlLqcx
XMLObject.setRequestHeader "CONTENT-TYPE", "application/x-www-form-urlencoded"
XMLObject.setRequestHeader "CONTENT-LENGTH", Len(SendStr)
XMLObject.send SendStr
ReturnByte = XMLObject.responseBody
ReturnText = bytes2BSTR(ReturnByte)直接通过人工方式登录得到的HTML代码,如果被录取:
<td height="30" align="left" colspan="4"><font color="red">恭喜您!您已经被录取,录取结果为:</font></td>
</tr> <tr>
<td colspan="4" align="center"><table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#000000">
<tr>
<td align="center" bgcolor="#FFFFFF">批次</td>
<td align="center" bgcolor="#FFFFFF">层次</td>
<td align="center" bgcolor="#FFFFFF">学校</td>
<td align="center" bgcolor="#FFFFFF">专业</td>
</tr>
<tr>
<td align="center" bgcolor="#FFFFFF">(2)一本A类</td>
<td align="center" bgcolor="#FFFFFF">(1)本科</td>如果未被录取:
<h1>
提示:
</h1>
非常抱歉,您暂时还没有录取信息!
但用上面那段代码来获取时,不论考生是否被录取,均显示未被录取的信息
这个问题一直困扰着我
解决方案 »
- VB如何把Unicode字符转换成ANSI,并正确在TextBox中显示出来?
- 高手,出出注意啦!
- 有没有人写过数据库控件?比如象adodc和dbgrid?
- 我想问问`为什么用VB写游戏引擎总是会闪的啊?
- 求助??MSHFlexGrid问题??
- 管理员请封杀此人
- 我想组织一个程序开发小组,有兴趣进来谈谈想法!和yongjie一样!
- 请教几个做日本项目的问题,谢谢
- 请教高手,我在1024*768分辨率下打印VB窗体,在屏幕上看起来很正的东西打印到纸上反而偏了,不知是什么原因。
- ◆谁有ExRainButton6.ocx这个按钮控件的注册码或注册机啊?高分相送!
- MSHFlexGrid+TextBox---问题
- 网络采集软件的编程原理?
XMLHTTP无法使用Referer,所以放弃不用,决定用WinHttp试试。。