2,727
社区成员
发帖
与我相关
我的任务
分享
loXmlHttp = Newobject( "Microsoft.XMLHTTP" )
lcURL = "http://finance.yahoo.com/d/quotes.csv"
loXmlHttp.Open( "POST" , lcURL, .F. )
loXmlHttp.Send( "s=MSFT,^DJI&f=sl1d1t1c1ohgv&e=.csv" )
If loXmlHttp.Status = 200 && OK
lcMessage = "OK 一切正常
Messagebox( lcMessage, 16, Program() )
Endif