vb如何獲取已經(jīng)打開(kāi)的ie網(wǎng)頁(yè)的源代碼？在表單中添加控件text1（multiline=true，scrollbars=2）和Timer1（interval=1000），然后在代碼區(qū)復(fù)制以下代碼并運(yùn)行

vb如何獲取已經(jīng)打開(kāi)的ie網(wǎng)頁(yè)的源代碼？

在表單中添加控件text1（multiline=true，scrollbars=2）和Timer1（interval=1000），然后在代碼區(qū)復(fù)制以下代碼并運(yùn)行它，以在text1中實(shí)時(shí)顯示IE中打開(kāi)的網(wǎng)頁(yè)源代碼：option explicit Dimo shellapp，oshellappwindows，owindimurllstastingstring private subtimer1utimer（）SetoShellApp=CreateObject（）外殼.應(yīng)用）SetoShellAppWindows=oShellApp.windowsforeachowininoshellappwindowsiff案例（打印名（oWin.document文件))=“htmldocument”ThenIfInStr（1，UrlLstoWin.locationurl，vbTextCompare）=0THENURLST=URLST&oWin.locationurl&“，”文本1.Text=oWin.document.body文件. innerHTMLMe.Caption=oWin.locationnameEndI Fendifnextedsub

兩種方法，一種是使用ajax，另一種是啟動(dòng)IE進(jìn)程。我推薦方法一。我的示例代碼如下：

dim HTTP set HTTP=CreateObject（）Microsoft.XMLHTTP") http.打開(kāi)“Post”，“connection address”，falsehttp.send發(fā)送“”如果http.狀態(tài)=200那么selection.text=http. responseText end if

獲取HTML源代碼和CSS源代碼1。在計(jì)算機(jī)中找到此路徑，然后刪除此目錄中的內(nèi)容。2使用IE打開(kāi)要下載的網(wǎng)頁(yè)。三。返回此路徑并刷新C:documents and settingsadministratorlocal settingstemporary Internet此時(shí)，所需頁(yè)面的HTML源代碼和CSS代碼將顯示在此路徑下；4。復(fù)制本頁(yè)中的HTML、CSS、圖片等內(nèi)容并放入新文件夾中。刪除復(fù)制文件名后的“[1]”，并將相關(guān)鏈接更改為直接使用。