中国DOS联盟

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

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

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

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 求助,实现检测ie收藏夹中链接的有效性

flandy
初级用户

积分 94
发帖 40
注册 2007-4-28
状态离线

『楼主』: 求助,实现检测ie收藏夹中链接的有效性

求助,实现检测ie收藏夹中链接的有效性

2007-5-1 02:19

honghunter
中级用户

积分 321
发帖 135
注册 2007-2-4
状态离线

『第 2 楼』:

这个问题有意思，不过俺也是新手，说说俺考虑的思路。

1，读注册表，找到收藏夹的位置。
2，复制出来，并且重新命名。
copy *.url b:\*.txt
3，得到类似这样的文件
[DEFAULT]
BASEURL=http://www.pconline.com.cn/
[InternetShortcut]
URL=http://www.pconline.com.cn/
Modified=C0F080D875E4C10123
IconFile=http://www.pconline.com.cn/favicon.ico
IconIndex=1
4，把URL提取出来，
5，用wget一类的工具抓取
6，判断抓取情况，
7，抓到的话，就是有效的，否则无效。

此帖被 +6 点积分

点击查看详情

探讨批量下载与智能化的下载

2007-5-1 06:28

honghunter
中级用户

积分 321
发帖 135
注册 2007-2-4
状态离线

『第 3 楼』:

关注ING

探讨批量下载与智能化的下载

2007-5-2 23:22

lxmxn
版主

积分 11386
发帖 4938
注册 2006-7-23
状态离线

『第 4 楼』:

2楼既然把思路说出来了，应该可以写一个出来的哈~

2007-5-5 00:15

honghunter
中级用户

积分 321
发帖 135
注册 2007-2-4
状态离线

『第 5 楼』:

看过别人的批处理里面操作注册表，不过我还不会弄注册表。

探讨批量下载与智能化的下载

2007-5-6 10:41

baomaboy
银牌会员

积分 1513
发帖 554
注册 2005-12-30
状态离线

『第 6 楼』:

Quote:

Originally posted by honghunter at 2007-5-1 06:28:
这个问题有意思，不过俺也是新手，说说俺考虑的思路。

1，读注册表，找到收藏夹的位置。
2，复制出来，并且重新命名。
copy *.url b:\*.txt
3，得 ...

以下只是思路，未严格测试。。。。

1,不读注册表也可以，msgbox WScript.CreateObject("WScript.Shell").SpecialFolders("Favorites")

2，复制出来麻烦，不如OpenTextFile提取URL=http://www.pconline.com.cn/中的地址，

3，不使用第三方工具也有两种方法可选，判断出错值。

   ①set a = WScript.GetObject("http://mail.163.com")

      wscript.sleep 1000

      msgbox a.title

   ②Set ie=WScript.CreateObject("InternetExplorer.Application")

      ie.navigate "http://mail.163.com"

      wscript.sleep 5000

      msgbox ie.Document.title

      ie.quit()

      Set ie=Nothing

4，至于遍历收藏夹、打开url、取地址、应该都简单。