Board logo

标题: 求助,实现检测ie收藏夹中链接的有效性 [打印本页]
作者: flandy     时间: 2007-5-1 02:19    标题: 求助,实现检测ie收藏夹中链接的有效性
求助,实现检测ie收藏夹中链接的有效性
作者: honghunter     时间: 2007-5-1 06:28
这个问题有意思，不过俺也是新手，说说俺考虑的思路。

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，抓到的话，就是有效的，否则无效。
作者: honghunter     时间: 2007-5-2 23:22
关注ING
作者: lxmxn     时间: 2007-5-5 00:15
2楼既然把思路说出来了，应该可以写一个出来的哈~
作者: honghunter     时间: 2007-5-6 10:41
看过别人的批处理里面操作注册表，不过我还不会弄注册表。
作者: baomaboy     时间: 2007-5-6 14:32
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、取地址、应该都简单。
作者: honghunter     时间: 2007-5-6 15:53
6楼的朋友的意思，是使用VBS来创建一个IE，再通过出错值来判断连接是否有效？
作者: zhoushijay     时间: 2007-5-8 13:24
6楼的，能不能只要 1 和 0 这样的反馈
作者: baomaboy     时间: 2007-5-8 14:08
Originally posted by zhoushijay at 2007-5-8 13:24:
6楼的，能不能只要 1 和 0 这样的反馈


那个可变化性很大，只要你愿意可以做到。
作者: vkill     时间: 2007-5-8 18:21
我和honghunter兄想一起了