中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客: 注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » [原创]批处理实现网页下载(260字节)

‹ « [1] [2] »

sexfio
社区乞丐

积分 -27
发帖 45
注册 2006-5-16
状态离线

『第 16 楼』:

怎么运行了什么都没啊，什么弄啊

2009-4-17 03:53

asnahu
初级用户

积分 99
发帖 53
注册 2006-8-18
状态离线

『第 17 楼』:

这个和微软的脚本很像，但以AJAX的方式实现，CSS和图片等都丢弃了。不知楼主的怎么样。

微软链接：
http://www.microsoft.com/china/t ... other/scroth16.mspx

2009-4-17 05:53

freeants001
中级用户

积分 330
发帖 244
注册 2006-4-14
来自湖北
状态离线

『第 18 楼』:

感谢楼主分享~~~
这里我把把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(/^[lst]$/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[i]);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();}

2009-4-17 10:05

lotus516
高级用户

论坛上抢劫的

积分 551
发帖 246
注册 2006-9-21
状态离线

『第 19 楼』:

我抢了！

2009-5-31 13:37

‹ « [1] [2] »

请注意：您目前尚未注册或登录，请您注册或登录以使用论坛的各项功能，例如发表和回复帖子等。

可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题

论坛跳转: