clear
loInternet=Createobject("MSXML2.ServerXMLHTTP")
loInternet.Open([POST],[http://www.lzk.])
loInternet.setRequestHeader([Content-Type],[application/x-www-form-urlencoded]) &&数据格式要指定,否则没有结果。
loInternet.Send('zkzh=0123789&ksxm=%D5%C5%C8%FD') &&张三转为URL编码提交。
If loInternet.READYSTATE = 4 .And. loInternet.Status = 200
?STRCONV(STRCONV(loInternet.responseBody,9),11)
ENDIF
&&没有正确准考证号和姓名,无法给你验证。