24小时热门版块排行榜

>论坛更新日志 (4038)
>导师招生 (656)
>考博 (476)
>虫友互识 (282)
>文献求助 (275)
>招聘信息布告栏 (228)
>休闲灌水 (224)
>物理 (142)
>硕博家园 (81)
>学术会议 (56)
>博后之家 (53)
>论文投稿 (49)
>海外博后 (44)
>教师之家 (36)
>基金申请 (27)
>标准与专利 (20)

返回列表

htyjerry

新虫 (初入文坛)

应助: 0 (幼儿园)
金币: 2
帖子: 1
在线: 4.6小时
虫号: 7510812
注册: 2017-11-22
专业: 环境污染化学

[求助] 如何用bat保存网页

各位大佬，我想用bat写一个保存网页的脚本，遇到了问题，用网上的方法保存下来的网页信息不完整（http://221.237.179.75:9090/scszj ... blish/preview.xhtml），另外，怎么实现以时间命名啊，我每天都想保存一个网页。先谢谢大佬了！

下面是网上找的，但是保存的网页打开后信息不完整，我需要右边的具体数据。。。

set Url=http://221.237.179.75:9090/scszjcsj/szjc_sj/DataPublish/preview.xhtml
set Save=D:\document

for %%a in ("%Url%"

do set "FileName=%%~nxa"
if not defined Save set "Save=%cd%"
(echo Download Wscript.Arguments^(0^),Wscript.Arguments^(1^)
echo Sub Download^(url,target^)
echo Const adTypeBinary = 1
echo Const adSaveCreateOverWrite = 2
echo Dim http,ado
echo Set http = CreateObject^("Msxml2.ServerXMLHTTP"^)
echo http.open "GET",url,False
echo http.send
echo Set ado = createobject^("Adodb.Stream"^)
echo ado.Type = adTypeBinary
echo ado.Open
echo ado.Write http.responseBody
echo ado.SaveToFile target
echo ado.Close
echo End Sub)>DownloadFile.vbs

DownloadFile.vbs "%Url%" "%Save%\%FileName%"
del DownloadFile.vbs

回复此楼