如何批量查询高考成绩？？？？？

成绩查询登录页面：http://www.
成绩结果显示页面：http://www.

以下是在梅子论坛中看到的老中医老师的上传的代码 为何调试没有成功？

Clear
Close Databases
Set Decimals To 0
poWinHttp = Createobject("WinHttp.WinHttpRequest.5.1")
*!* 来路的绝对地址

sURLR = "http://www.

*!* 防盗链地址
sUrl = "http://www.
poWinHttp.Open("POST", sUrl, .F.)
poWinHttp.SetRequestHeader("Referer", sURLR )  && 页面判断，就是.SetRequestHeader("Referer", "来路的绝对地址")
poWinHttp.SetRequestHeader("content-type", "application/x-www-form-urlencoded", "charset=utf-8")  && 提交 urlencode 编码的表单
*!*    Create Table 高考成绩单 ( 准考证号 C (20), 身份证号 C (20), 姓名 C (20), ;
原始总分 N (8), 考生加分 N (8), 语文成绩 N (8), 数学成绩 N (8), 外语成绩 N (8), ;
综合成绩 N (8), 能力测试 N (8) )
Select 0
Use 高考成绩单 EXCLUSIVE
Zap
Select 0
Use Book11.Dbf
Go Top
Scan For !Empty(Book11.xm)
    Wait Window "正在提取：" + Alltrim(Book11.xm) + " 的信息，" + Chr(13) + ;
        "现在是第：" + Alltrim(Str(Recno())) + " 个" Nowait
    m.ksh = Book11.ksh  && 考生号
*    m.sfz = Book11.Sfz  && 身份证后四位数
    m.xm = Book11.xm   && 姓名
    =GetData(m.ksh, m.xm)
Endscan
Wait Window "提取完成。" Timeout 1
Select 高考成绩单
Go Top
Browse Last


Function GetData
    Parameters m.ksh, m.xm
    PostData = [ksh=] + M.ksh + [&] + [xm=] + M.xm
    =poWinHttp.Send(PostData)  && 提交表单
    =Inkey(0.5)
    ? poWinHttp.Status, poWinHttp.StatusText && 判别返回的状态，如果是：200，则：OK
    If poWinHttp.Status = 200
        cStr = poWinHttp.ResponseText
        ?? cstr
        Select 高考成绩单
        Insert Into 高考成绩单 Values ( ;
        m.ksh,m.Xm;
        VAL(Strextract(cStr, '语文：</span><span class="table1">', '</span>')), ;
        VAL(Strextract(cStr, '数学成绩</span><span class="table1">', '</span>')), ;
        VAL(Strextract(cStr, '外语成绩</span><span class="table1">', '</span>')), ;
        VAL(Strextract(cStr, '综合成绩</span><span class="table1">', '</span>')), ;
        VAL(Strextract(cStr, '基本能力测试</span><span class="table1">', '</span>')) ;
        )
        Select Book11
    Else
        ? "错误！"
    Endif
    Return

[此贴子已经被作者于2019-7-9 21:36编辑过]