梅子论坛有类似问题的解决方案

@sdta:谢谢！

Thisform.OleWebBrowse.document.getElementById("ksh").value=ksh
这样可以为id为ksh的表单项自动填入变量值

@zyxxzhyg:谢谢！

万能的vfp。

Clear
? GetTranscript("17510303160057","030391006","210381199910024429")  && 考生号/准考证号/身份证号


Function GetTranscript(ksh As Character, zkz As Character, sfz As Character)
    poWinHttp = Createobject("WinHttp.WinHttpRequest.5.1")
    sURLR = "http://cx.  && 来路的绝对地址
    sUrl = [http://api.] + ksh + ;
        [&] +[zkzh=] + zkz + [&] + [sfzh=] + sfz + [&yzm=请点击]  && 防盗链地址
    poWinHttp.Open("GET", sUrl, .F.)
    poWinHttp.SetRequestHeader("Referer", sURLR )  && 页面判断功能，就是.SetRequestHeader("Referer", "来路的绝对地址")
    poWinHttp.Send()  && 提交表单
    ? poWinHttp.Status, poWinHttp.StatusText  && 判别返回的状态，如果是：200，则：OK
    If poWinHttp.Status = 200
        =GetData(poWinHttp.ResponseText)
    Else
        ? "错误！"
    Endif
Endfunc


Function GetData
    Parameters cStr
    Create Cursor MyData (姓名 C(14), 考生号 C(14), 语文 C(6), 数学 C(6), 外语 C(6), ;
        理科综合 c(6), 物理 c(6),化学 c(6),生物 C(6), 加试分 C(6), 总分 C(6))
    Insert Into MyData Values (Strextract(cStr, [姓名","QValue":"], ["]),;
        STREXTRACT(cStr, [考生号","QValue":"], ["]),;
        STREXTRACT(cStr, [语文","QValue":"], ["]),;
        STREXTRACT(cStr, [数学","QValue":"], ["]),;
        STREXTRACT(cStr, [外语","QValue":"], ["]),;
        STREXTRACT(cStr, [理科综合","QValue":"], ["]),;
        STREXTRACT(cStr, [物理","QValue":"], ["]),;
        STREXTRACT(cStr, [化学","QValue":"], ["]),;
        STREXTRACT(cStr, [生物","QValue":"], ["]),;
        STREXTRACT(cStr, [加试分","QValue":"], ["]),;
        STREXTRACT(cStr, [总分","QValue":"], ["]))
    Go Top
    Browse Last
    Use
    Return
Endfunc

*!*    信息项 结果
*!*    姓名 关蓄
*!*    考生号 17510303160057
*!*    语文 109
*!*    数学 88
*!*    外语 114
*!*    理科综合 200
*!*    物理 51.0
*!*    化学 69.5
*!*    生物 79.0
*!*    加试分 0
*!*    总分 511

非常感谢！

若使用数据表获取考试号、准考证号、身份证号连续查询多人时，仅可以查询前3人，后面的数据为空白，如何解决？谢谢！
CREATE dbf xsmd(ksh c(14),zkh c(9),sfh c(18))
INSERT INTO xsmd values("17510303160057","030391006","210381199910024429")
INSERT INTO xsmd values("17510302161435","030292428","222405199905100020")
INSERT INTO xsmd values("17510302160369","030294312","340823199904134018")
INSERT INTO xsmd values("17510302160490","030294419","342623199902204810")
INSERT INTO xsmd values("17510301160806","030194205","350182199808231591")
INSERT INTO xsmd values("17510301160807","030191917","350583199909237114")

网上只能查一个或两个信息，如果多了，认为你是商业目的，就需要输入验证码，所以批量查询有难度，供参考，，，

谢谢，周末愉快！