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、取地址、应该都简单。