VB编程助力高考志愿填报.doc

VB编程助力高考志愿填报 　　编者按：高考结束了，广大考生在获知成绩前都忙着分析自己应填报的志愿吧！新浪网的高考信息库/college/index.shtml相信也是很多考生常光顾的网站，其中的“高校往年分数线查询”对考生很有参考价值（图1）。但该网站数据库无法一次查询出某省市某年所有高校的录取分数线，如果一个一个地选择高校查询，三天三夜也查不完！下面教大家用程序来解决这个问题。 　 图1　　本文程序下载地址：/xz/gaokao.rar 　　解决思路：用程序获取网站数据库资料，分类整理后按格式输出 一、网站数据分析 　　要拿到新浪该板块的数据库比登天还难，还是换个思路吧！启动“Winsock Expert”监听工具，在提交查询时进行抓包，将抓取的参数去繁就简，得到了一个URL地址：“/collegedb/frame_score.php?provid=1&collegeid=1”，执行后的效果如图2，其中的“provid”是各省市的值，范围在1-32之间，而“collegeid”则是高校的ID值，经过测试后发现，其值的范围在1-700之间（也就是说新浪收录了近700所高校）。如果“Provid”固定为某个值，如1（北京），只要更改后面的“collegeid”值，所显示的就是该高校在北京的历年分数线。根据这个规律，用For循环从1读至700，然后在循环过程中，将这些高校的历年分数线截取出来，不就可以了吗？ 　 图2　　先来分析一下图2的源代码，在科目上，有理科和文科之分；在年份上，有2005年、2004年和2003年(有些高校包含2002年)；而在某一年内，还有最低分、平均分和投档分这三种类型。虽然有些复杂，但还是有规律的。 二、设计窗体 　　下面我们就开始编程，启动VB6.0，创建一个“标准 EXE”，在其中创建以下控件。 　　TEXT控件： 　　UrlTxt、TEXT值：/collegedb/frame_score.php?provid=1&collegeid= 　　JieGuo、ScrollBars值：2-Vertical；Multi 　　Line值：True，用于分行显示结果。 　　YuanMa、ScrollBars值：2-Vertical；MultiLine值：True，用于存放网页源代码。 　　SchoolTxt、Text值："#A752B9" ；Visib 　　le值：False，存放查找学校名称的关键字。 　　CityTxt、Text值："#FB9608" ；Visible值：False，存放用户所在省市的关键字。 　　ChaXun、Text值："#316B84" ；Visible值：False，存放查找历年成绩的关键字，在源代码中，不论是文理科，还是年份，或是分数类型，均采用这一个关键字。 　　Year()、Text数组控件，Year(0)的Text值：2005；Visible 值：False。Year(1)的Text值：2004；Visible 值：False。Year(2)的Text值：2003；Visible 值：False。 　　StartTxt、Text值：1，设置学校ID的起始值。 　　EndTxt、Text值暂设为10，是用于设置查询学校ID的终止值。 　　Command控件： 　　Command1、Caption值：获取分数。 　　搭建完成后的样式如图3。 　 图3三、输入源代码 　　接下来输入源代码： 　　'起初采用Inet控件来获取URL中的源代码，但在运行后，却屡屡出现错误，经过一番网上搜索，找到了一个具有同样功能的API函数URLDownloadToFile。 　　Private Declare Function URLDownloa 　　dToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long 　　Private Sub Form_Load() '在窗体加载时，引入如下变量 　　Dim Where2 '定义where2变量,用来存放在Yuanma中所对应字符的所在位置 　　Dim Where1 '定义where1变量,用来存放在单项截取中所对应字符的所在位置 　　Dim Startme As Integer '定义一个数值,记录每次查询到的位置 　　Dim Url As String '存放赋值后的网页URL 　　Dim Yihang As Stri