哪位老师有时间帮我看看如何提取网页上的指定的一串数字？
比如http://www.   左上角有“密码：20191120”字样 。“20191120”不定期变化一次。用VFP如何提取密码到表单上？
我在论坛里也看到好多文章，试了都失败了。

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>"
MESSAGEBOX("密码：" + STREXTRACT(lcText, C1, C2))

谢谢老师！三两句搞定。我写了一大堆都没有实现。

还想请教下，如果网络不通。打不开网页，则会出错。

请老师看看
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

已经解决！

LOCAL xmlhttp,strUrl,vRet,isTimeout
strUrl="http://XXX "
xmlhttp = newObject('Msxml2.serverXMLHTTP')
xmlhttp.setTimeouts(3000,3000,3000,5000)  &&解析响应超时时间,建立Winsock连接超时时间,发送数据超时时间,接收数据超时时间
xmlhttp.open("GET",strUrl, .f.)
isTimeout=.f.
TRY
    xmlhttp.Send()
CATCH
    =MESSAGEBOX('操作超时',16,'',2000)
    isTimeout=.t.
ENDTRY
IF isTimeout=.f.
    vRet=xmlhttp.responseText
ENDIF   
RELEASE xmlhttp