求助,IE11不能运行
oIE=Createobject("InterNetExplorer.Application")cURLstr="http://www.
oIE.Navigate(cURLstr)
tStartSecond=Seconds()
Do While oIE.Busy = .T. Or oIE.ReadyState!=4
If Seconds()-tStartSecond>10
Exit
Endif
Inkey(0.5)
Enddo
lcStr= oIE.Document.body.innerText
lcStrb=STREXTRACT(lcStr,"出球顺序:","(本期使用:第" )
lcStrc=STREXTRACT(lcStr,"(本期使用:第","套摇奖球)" )
? lcStrb
? lcStrc