關(guān)于vbs 生成靜態(tài)頁面過程中出現(xiàn)的問題
更新時(shí)間:2012年12月10日 17:07:31 作者:
訪問某個(gè)aspx頁面,然后把服務(wù)器返回的頁面以filestream 的形式保存為html格式,接下來將介紹實(shí)現(xiàn)代碼
vbs是否能夠?qū)崿F(xiàn)如下的:訪問某個(gè)aspx頁面,然后把服務(wù)器返回的頁面以filestream 的形式保存為html格式,如果可以實(shí)現(xiàn),應(yīng)該如何來用代碼來實(shí)現(xiàn)呢?
先用InternetExplorer.Application打開http://xxx.xxx.xxx/xxx.aspx,然后保存oIE.document.body.outerHTML就可以了??!
例如如下代碼細(xì)節(jié):
VBScript code:
Set oIE = CreateObject("InternetExplorer.Application")
oIE.Navigate "http://www.changjiangtimes.com/pdf.aspx"
Do
WScript.Sleep 200
Loop Until Not oIE.Busy And oIE.ReadyState = 4
'下面你可以把它寫到文件里面去,Adodb.Stream和Scripting.FileSystemObject都可以
WScript.echo "<HTML>" & oIE.Document.body.OuterHTML & _
"</HTML>"
oIE.Quit
Set oIE = Nothing
先用InternetExplorer.Application打開http://xxx.xxx.xxx/xxx.aspx,然后保存oIE.document.body.outerHTML就可以了??!
例如如下代碼細(xì)節(jié):
VBScript code:
復(fù)制代碼 代碼如下:
Set oIE = CreateObject("InternetExplorer.Application")
oIE.Navigate "http://www.changjiangtimes.com/pdf.aspx"
Do
WScript.Sleep 200
Loop Until Not oIE.Busy And oIE.ReadyState = 4
'下面你可以把它寫到文件里面去,Adodb.Stream和Scripting.FileSystemObject都可以
WScript.echo "<HTML>" & oIE.Document.body.OuterHTML & _
"</HTML>"
oIE.Quit
Set oIE = Nothing
相關(guān)文章
用vbs檢索在運(yùn)行對(duì)話框中鍵入的一系列命令的代碼
用vbs檢索在運(yùn)行對(duì)話框中鍵入的一系列命令的代碼...2007-03-03
VBScript Enun Remote CMD Shell代碼
Enun Remote CMDShell,喜歡玩cmdshell的朋友可以參考下2013-07-07
一個(gè)把任何文件轉(zhuǎn)成批處理的vbs腳本Any2Bat.vbs
一個(gè)把任何文件轉(zhuǎn)成批處理的vbs腳本Any2Bat.vbs...2007-04-04
用vbs實(shí)現(xiàn)獲取電腦硬件信息的腳本_最新版
比較迅速的獲取硬件信息排序后的txt文件把后綴名改為csv就是表格了,精簡(jiǎn)、整理后輸出打印就OK了。 如此詳細(xì)的信息,給老板看,一定可以讓老板對(duì)你另眼相看。 即使自己看,也能發(fā)現(xiàn)很多料想不到的的信息。2008-05-05
VBS教程:VBscript語句-Option Explicit 語句
VBS教程:VBscript語句-Option Explicit 語句...2006-11-11

