oo = NewObject('Form')
oo.AddObject('oo','olecontrol','Shell.Explorer.2')
oo.oo.Visible = .t.
oo.oo.navigate('https://chart.')
Do while oo.oo.readyState <> 4
    Inkey(0.1)
EndDo
lcStr = oo.oo.Document.body.innerText
lcStrb=STREXTRACT(lcStr,"34567891011121314151617183456789101112131415161718","预选区" )
? lcStrb
= StrToFile( lcStrb,"c:123.txt")

在 navigate 之前加一行
oo.oo.slient=.t.
这样就可以屏蔽错误提示了
试试看。

郑重声明，以下内容为完全复制吹版之前的发贴！
IE控件所使用IE内核版本不支持，网页样式无法正常显示。
在注册表中为你的进程指定引用IE的版本号。
 对于32位程序：
 HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Internet Explorer\MAIN\FeatureControl\FEATURE_BROWSER_EMULATION
 
 对于64位程序：
 HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\MAIN\FeatureControl\FEATURE_BROWSER_EMULATION
 
 在对应的路径下添加你程序名字，如vfp9.exe为名的value，DWORD值。值选项：
 
 11001(0×2af9)   IE11 Edge
 11000(0×2af8)   IE11
 10001(0x2711)    IE10 Standards
 10000(0x2710)    IE10
 9999 (0x270F)    IE9  Standards
 9000 (0x2328)    IE9
 8888 (0x22B8)    IE8  Standards
 8000 (0x1F40)    IE8
 7000 (0x1B58)    IE7

不是这个问题，原来一直能正常运行抓取的