*!*    提取学校和代码：
Clear
Create Cursor Url_tab ( No I, URL C(100), university C(30) )

*!*    oHTTP = Createobject("Winhttp.winhttprequest.5.1")
oHTTP = Createobject("MSXML2.ServerXmlHttp")
oHTTP.SetTimeouts(10000, 10000, 10000, 40000)  && 设置超时
=GetURL(1, 120)  && 枚举页数范围，范围尽量不要太大，会引起超时，分批提取
oHTTP = .Null.
Go Top
Browse Last


Function GetURL(StartNo As Integer, EndNo As Integer)
    For I = StartNo To EndNo
        oHTTP.Open("GET", 'http://www.' + Transform(I), .F.)
        oHTTP.Send()
        Try
            If oHTTP.Status = 200
                Wait Window Transform(I) Nowait At 10, 10
                lcName = Strextract(oHTTP.ResponseText,[<div class="centbot1" title="], [">], 1)
                Insert Into Url_tab Values ( I, 'http://www.' + Transform(I), lcName )
            Endif
        Catch
            * error handling code here.
            * ? "Error"
            Return
        Endtry
    Endfor
    ? "Finish"
Endfunc

有了 Url_tab 表中的地址
就可以提取你所需要的：历史录取分数、历史录取统计、专业录取分数等几个标的内容了

自己试试看吧

[此贴子已经被作者于2017-5-7 17:38编辑过]

好的，谢谢红斑竹！

红版主，得到的数据仍然是文科的，不是理科的数据，请有时间时再帮我看一下，谢谢！

vfp作业，课程设计代做，二级，考试援助 qq:1043462884

文科的网址是哪个？我不知道哪里进入文科的网页。

或者发一张有文科网址的图片上来

[此贴子已经被作者于2017-5-10 13:37编辑过]

1、如果使用http://www.，就会出现登录选择：
[attach]89705[/attach]

2、如果使用http://www.，直接出现文科界面：
[attach]89706[/attach]

3、如果使用http://www.入网，用注册的理科生的身份进入网页就显示理科信息
[attach]89707[/attach]

通过三步选择之后，出来的就是理科数据：


理科信息也是我需要的，请帮忙，非常感谢！

[此贴子已经被作者于2017-5-10 16:01编辑过]

红版主，我已把理科生的注册信息通过“发短消息”发给你啦，请有时间时帮忙看一下，谢谢！

[此贴子已经被作者于2017-5-10 19:48编辑过]

谢谢版主！