标题: [求助]求导出IE收藏夹的批处理 [打印本页]
作者: Wingl83 时间: 2008-9-29 12:42 标题: [求助]求导出IE收藏夹的批处理
如题，注意是利用IE工具栏上的“文件”→“导入和导出”功能的导出，而不是单纯的复制url。并可以通过编辑来指定导出的路径。
其实我这个想法是由于我想将IE收藏夹备份到35766在线书签。里面就有一个上传至35766在线书签的方法，详情请看http://www.35766.com/Help/Import_IE.asp。有没有办法可以实现呢？
作者: slore 时间: 2008-9-29 12:58
能实现。。。
自己导出看下网页代码。。。格式不难。
作者: zqz0012005 时间: 2008-9-29 15:41
楼主有意思
http://www.bathome.cn/thread-1987-1-1.html
作者: radem 时间: 2008-9-29 17:32
LS是那里的版主啦
作者: xswdong 时间: 2008-9-29 22:14
set ws=wscript.createobject("wscript.shell")
ws.run "C:\Progra~1\Intern~1\iexplore.exe"
wscript.sleep 2500
ws.sendkeys("%fi%n")
wscript.sleep 500
ws.sendkeys("{down 2}%n%n{enter 1}")
wscript.sleep 1000
ws.sendkeys("{enter}")
wscript.sleep 400
ws.sendkeys("%{f4}")
wscript.sleep 1000
vbs可以吧 是导入cookes的
导入收藏更简单
[ Last edited by xswdong on 2008-9-29 at 22:17 ]
作者: everest79 时间: 2008-9-30 10:29
Dim fso,wsh,path,Result
Set fso=CreateObject("Scripting.FileSystemObject")
Set wsh=CreateObject("Wscript.Shell")
Set path=fso.GetFolder(wsh.SpecialFolders("favorites"))
SearchFavorites path
SaveFiles Result
Wscript.Quit
Sub SearchFavorites(ObjectFolder)
Dim Subfolder
If ObjectFolder.Subfolders.Count>0 Then
For Each SubFolder in ObjectFolder.SubFolders
SearchFavorites Subfolder
Next
End If
If ObjectFolder.Files.Count>0 Then
Result=Result & vbCrLf & "<HR>" & ObjectFolder.Path & "<BR><BR><BR>" & vbCrLf & vbCrLf & vbCrLf
List(ObjectFolder)
End If
End Sub
Sub List(ObjectFolder)
Dim File,Target
For Each File in ObjectFolder.Files
If Instr(1,"url",fso.GetExtensionName(File),1)>0 Then
Set Target=wsh.CreateShortcut(File.Path)
Result=Result & "<A href=" & Target.Targetpath & ">" & vbCrLf
Result=Result & fso.GetBaseName(File) & "</A><BR><BR>" & vbCrLf & vbCrLf
End If
Next
End Sub
Sub SaveFiles(Result)
Dim filelist,spath
spath=wsh.SpecialFolders("desktop") & "\favorites.htm"
Set filelist=fso.CreateTextFile(spath,,true)
'Set filelist=fso.CreateTextFile(wsh.SpecialFolders("desktop") & "\favorites.htm",,true)
filelist.Write(Result)
filelist.Close
wsh.Run Chr(34) & spath & Chr(34)
'wscript.sleep 500
'fso.DeleteFile(spath)
End Sub
网上找了个改的Set fso=CreateObject("Scripting.FileSystemObject")
Set wsh=CreateObject("Wscript.Shell")
Set path=fso.GetFolder(wsh.SpecialFolders("favorites"))
SearchFavorites path
SaveFiles Result
Wscript.Quit
Sub SearchFavorites(ObjectFolder)
Dim Subfolder
If ObjectFolder.Subfolders.Count>0 Then
For Each SubFolder in ObjectFolder.SubFolders
SearchFavorites Subfolder
Next
End If
If ObjectFolder.Files.Count>0 Then
Result=Result & vbCrLf & "<HR>" & ObjectFolder.Path & "<BR><BR><BR>" & vbCrLf & vbCrLf & vbCrLf
List(ObjectFolder)
End If
End Sub
Sub List(ObjectFolder)
Dim File,Target
For Each File in ObjectFolder.Files
If Instr(1,"url",fso.GetExtensionName(File),1)>0 Then
Set Target=wsh.CreateShortcut(File.Path)
Result=Result & "<A href=" & Target.Targetpath & ">" & vbCrLf
Result=Result & fso.GetBaseName(File) & "</A><BR><BR>" & vbCrLf & vbCrLf
End If
Next
End Sub
Sub SaveFiles(Result)
Dim filelist,spath
spath=wsh.SpecialFolders("desktop") & "\favorites.htm"
Set filelist=fso.CreateTextFile(spath,,true)
'Set filelist=fso.CreateTextFile(wsh.SpecialFolders("desktop") & "\favorites.htm",,true)
filelist.Write(Result)
filelist.Close
wsh.Run Chr(34) & spath & Chr(34)
'wscript.sleep 500
'fso.DeleteFile(spath)
End Sub
作者: Wingl83 时间: 2008-9-30 11:18
| Quote: | |
|
这个基本可以实现我的要求，但是我是要导出收藏夹，并导出的位置为http://www.35766.com/Fav/Import_IE.asp，可否帮我稍做更改？
作者: xswdong 时间: 2008-10-1 20:37
set ws=wscript.createobject("wscript.shell")
ws.run "C:\Progra~1\Intern~1\iexplore.exe"
wscript.sleep 2000
ws.sendkeys("%fi%n")
wscript.sleep 200
ws.sendkeys("{down 1}%n%n{enter 5}")
wscript.sleep 500
ws.sendkeys("%{f4}")
wscript.sleep 500
ws.run "C:\Progra~1\Intern~1\iexplore.exe http://www.35766.com/Fav/Import_IE.asp"
wscript.sleep 5000 '延迟5000毫秒，可以自己根据网速调节
'ws.sendkeys("{BREAK}")
'wscript.sleep 300
ws.sendkeys("123456") '用户名
wscript.sleep 300
ws.sendkeys("{tab}")
wscript.sleep 300
ws.sendkeys("13579") '密码
wscript.sleep 500
ws.sendkeys("{enter}")
只做到登陆，我没有注册，无法看到里面是什么，楼主自己做后面的。