如何批量查询高考成绩？？？？？
成绩查询登录页面：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
程序所需附件.rar
(1.82 KB)
[此贴子已经被作者于2019-7-9 21:36编辑过]
