oie = CREATEOBJECT("internetexplorer.application")
lurl="http://www.chinatax.
oie.Navigate(lurl)
DO WHILE oie.Busy OR oie.ReadyState!=4
INKEY(2)
?? " 请稍候......",TIME()+0h0D
ENDDO
bError = .F.
TRY
lctext = oie.document.body.innerHTML
CATCH
bError = .T.
MESSAGEBOX("网页打开错误",0+16,"出错了")
ENDTRY
?lctext
_CLIPTEXT =lctext
[此贴子已经被作者于2021-9-7 17:00编辑过]