VFP 愛用者社區

[ptdon]

因為有須求，必須在程式中開啟網頁，並讀該網頁內容分析其中須要的資料，以供使用
過去都用 IE
1.oIE = Createobject("internetexplorer.application")
2.oIE.Navigate( url ) 開啟網頁
3.網頁內容 = oIE.Document.body.innerhtml

但現在因 微軟不在支持更新 IE,導至我要讀取網頭內容，有時會內容不完整
想改用 CHROME
現在僅得知
1.先將 chrome設為預設瀏覽器
2.loHyperlink = CREATEOBJECT("hyperlink")
3.loHyperlink.navigateto(lUrl)
卻找不到讀取網頁內容的指令
請教該如何讀取呢？

[syntech]

http://vfp.sunyear.com.tw/viewtopic.php?t=6645

最後一篇

記得把信用卡準備好

[ptdon]

感謝 syntech 大大回覆
看完之後才知準備信用卡之意
看來目前只好先用 IE 撐一陣子了
謝謝!!

[lincc]

1.把整個網頁(html格式)內容先搬到電腦裡，再做後續的處理。(如程式片段，跟使用的瀏覽器無關，直接搬網站原始資料)
2.要繼續使用IE做後續的處理的話，就不要裝Edge，不然使用開啟IE的指令，系統會自動連結到edge


** input : c_para1 &&通常為網址
** output : 如果下載正常，會得到一個 demo.html 檔



lcRemoteUrl= c_para1
lcRemoteFile=lcRemoteUrl
lcLocalFile = "demo.html"

Declare Integer DeleteUrlCacheEntry In Wininet.Dll String szUrl
Declare Integer URLDownloadToFile In urlmon.Dll Integer pCaller,String szURL,;
String szFileName,Integer dwReserved,Integer lpfnCB
=DeleteUrlCacheEntry(lcRemoteUrl) &&清理暫存
=URLDownloadToFile(0, lcRemoteFile,lcLocalFile,0,0)

c_result1=""
IF FILE("demo.html")
c_result1=strconv(FILETOSTR("demo.html"),11)
STRTOFILE(c_result1,"demo.html")
endif