回复 2楼 sdta
还想请教下,如果网络不通。打不开网页,则会出错。
请老师看看
Public intnetlj
IF intnetlj=.f.
oXml = CreateObject("MSXML2.XMLHTTP")
cUrl = "http://www. "
oXml.Open("GET", cUrl, .F.)
oXml.Send()
lcText=STRCONV(STRCONV(oXml.ResponseBody, 11), 2)
C1 = '<div id="last_box_98">密码:'
C2 = "</div>"
thisform.label4.caption=STREXTRACT(lcText, C1, C2)
else
thisform.label4.caption="网络不通,不能获取"
ENDif