问个菜问题,如何用VFP编程实现网页静态文件下载?
问个菜问题,如何用VFP编程实现网页静态文件下载?想下载 http://www.,用vfp实现,哪个高人指点一下
oHtml=Createobject("INTERNETEXPLORER.APPLICATION") oHtml.Navigate("http://www.500.com/static/500info/sfc/project/14054_fshm_2.txt") tStartSecond = Seconds() Do While oHtml.Busy = .T. Or oHtml.ReadyState!=4 If Seconds() - tStartSecond > 10 Exit Endif Inkey(0.2) Enddo = StrToFile( oHtml.Document.body.innerText,"c:\14054_fshm_2.TXT") MessageBox('网页内容下载成功。') Modify File 14054_fshm_2.TXT Return