| 查看: 1393 | 回复: 1 | ||
[求助]
如何用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 |
回复此楼» 猜你喜欢
面上没中，邀请各位路过的虫友分析一下分数
已经有13人回复
-
售SCI一区T0P文章，我:8.O.55.1.O54,科目全,可伽急
已经有8人回复
-
两块石头
已经有8人回复
-
初秋的晨风
已经有6人回复
-
学科评审组评审是指会评吗？
已经有9人回复
-
售SCI一区T0P文章，我:8O.55.1.O.54,科目全,可伽急
已经有14人回复
-
广西大学-广州大学招聘博士后 欢迎广大优秀人才！！！
已经有7人回复
-
科研人应该花精力去思考如何解决问题，而不是去凝练问题
已经有17人回复
-
Ei源刊怎么投
已经有4人回复
-
哈尔滨工业大学韩晓军教授课题组招收2027年硕士推免生及博士研究生
已经有3人回复
2楼2018-08-31 00:53:31