也可以用IE对象打开网页,通过标签对象ID直接获取数据。
用这种方法时要注意是默认使用IE浏览器和当前没有打开其他第三方浏览器,否则有可能在IE对象打开网页时出现异常。
用这种方法时要注意是默认使用IE浏览器和当前没有打开其他第三方浏览器,否则有可能在IE对象打开网页时出现异常。
程序代码:
ie = CREATEOBJECT("InternetExplorer.Application") ie.Navigate("http://www./index20200930102856") DO WHILE !(ie.ReadyState==4) DOEVENTS ENDDO obj = ie.document.getElementById("last_box_102") IF VARTYPE(obj) == "O" **? SUBSTR(obj.innerHTML,7) thisform.label4.caption = SUBSTR(obj.innerHTML,7) ELSE MESSAGEBOX("可能没有连接网络,请检查网络!",48,"错误提示!") ENDIF ie.Quit()