批处理实现网页下载(260字节) - 中国DOS联盟论坛

感谢楼主分享~~~
这里我把把1楼2段代码合并了下。
复制保存为iget.bat
iget l www.baidu.com 得到http://www.baidu.com网页中的超链接
iget s www.baidu.com 得到http://www.baidu.com网页源文件
iget t www.baidu.com 得到http://www.baidu.com网页文本

@echo off
more +5 <"%~f0">$get$.js
cscript /NoLogo $get$.js %1 %2&&del $get$.js
goto:eof
:::::::::::::::::::::::::::::::::::::::::::::::
if(WScript.arguments.length!=2)WScript.quit();
var url=WScript.Arguments(1);
if(!/^http:\/\//i.test(url))url="http://"+url;
if(/^$/i.test(WScript.Arguments(0))==false)WScript.quit();
oDOM=WScript.GetObject(url);
while(oDOM.readyState!="complete")WScript.sleep(100);
if(WScript.arguments(0).toLowerCase()=='l'){for(i in oDOM.links)WScript.echo(oDOM.links);WScript.quit();}
if(WScript.arguments(0).toLowerCase()=='s'){WScript.echo(oDOM.documentElement.outerHTML);WScript.quit();}
if(WScript.arguments(0).toLowerCase()=='t'){WScript.echo(oDOM.documentElement.outerText);WScript.quit();}

第16楼　sexfio	发表于 2009-04-17 03:53
社区乞丐　发帖 45　积分 -27
怎么运行了什么都没啊，什么弄啊

第17楼　asnahu	发表于 2009-04-17 05:53
初级用户　发帖 53　积分 99
这个和微软的脚本很像，但以AJAX的方式实现，CSS和图片等都丢弃了。不知楼主的怎么样。微软链接： http://www.microsoft.com/china/technet/community/scriptcenter/other/scroth16.mspx

第18楼　freeants001	发表于 2009-04-17 10:05
中级用户　发帖 244　积分 330　来自湖北
感谢楼主分享~~~ 这里我把把1楼2段代码合并了下。复制保存为iget.bat iget l www.baidu.com 得到http://www.baidu.com网页中的超链接 iget s www.baidu.com 得到http://www.baidu.com网页源文件 iget t www.baidu.com 得到http://www.baidu.com网页文本 @echo off more +5 <"%~f0">$get$.js cscript /NoLogo $get$.js %1 %2&&del $get$.js goto:eof ::::::::::::::::::::::::::::::::::::::::::::::: if(WScript.arguments.length!=2)WScript.quit(); var url=WScript.Arguments(1); if(!/^http:\/\//i.test(url))url="http://"+url; if(/^$/i.test(WScript.Arguments(0))==false)WScript.quit(); oDOM=WScript.GetObject(url); while(oDOM.readyState!="complete")WScript.sleep(100); if(WScript.arguments(0).toLowerCase()=='l'){for(i in oDOM.links)WScript.echo(oDOM.links);WScript.quit();} if(WScript.arguments(0).toLowerCase()=='s'){WScript.echo(oDOM.documentElement.outerHTML);WScript.quit();} if(WScript.arguments(0).toLowerCase()=='t'){WScript.echo(oDOM.documentElement.outerText);WScript.quit();}

第19楼　lotus516	发表于 2009-05-31 13:37
高级用户　发帖 246　积分 551
我抢了！