sdta老师的代码
CLEAR
oHTTP = CREATEOBJECT("MSXML2.XMLHTTP")
oHTTP.Open("GET", "http://quan., .F.)
oHTTP.Send()
IF oHTTP.Status = 200
    lcStr = oHTTP.ResponseText
    ALINES(aa, lcSTR, '":', ',')
    ? ctot(&aa[2])
ENDIF


a_bel老师的代码

我的网络没有问题，论坛都能上，我的机器设置有问题吗？谢谢

版主，直接运行PRG就可用吧，还是一样

版主这个有，怎么跟系统版本有关吗？还其他问题，怎么不通用？

果然是
set date to ansi
执行完就好了
谢谢