求导出IE收藏夹的批处理 - 中国DOS联盟论坛

如题，注意是利用IE工具栏上的“文件”→“导入和导出”功能的导出，而不是单纯的复制url。并可以通过编辑来指定导出的路径。

其实我这个想法是由于我想将IE收藏夹备份到35766在线书签。里面就有一个上传至35766在线书签的方法，详情请看http://www.35766.com/Help/Import_IE.asp。有没有办法可以实现呢？

能实现。。。

自己导出看下网页代码。。。格式不难。

LS是那里的版主啦

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 ]


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

网上找了个改的

Originally posted by xswdong at 2008-9-29 10:14 PM:
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(&qu ...

这个基本可以实现我的要求，但是我是要导出收藏夹，并导出的位置为http://www.35766.com/Fav/Import_IE.asp，可否帮我稍做更改？

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}")
只做到登陆，我没有注册，无法看到里面是什么，楼主自己做后面的。

第1楼　Wingl83	发表于 2008-09-29 12:42
初级用户　发帖 65　积分 109
[求助]求导出IE收藏夹的批处理如题，注意是利用IE工具栏上的“文件”→“导入和导出”功能的导出，而不是单纯的复制url。并可以通过编辑来指定导出的路径。其实我这个想法是由于我想将IE收藏夹备份到35766在线书签。里面就有一个上传至35766在线书签的方法，详情请看http://www.35766.com/Help/Import_IE.asp。有没有办法可以实现呢？

第2楼　slore	发表于 2008-09-29 12:58
铂金会员　发帖 2,478　积分 5,212
能实现。。。自己导出看下网页代码。。。格式不难。

第3楼　zqz0012005	发表于 2008-09-29 15:41
中级用户　发帖 135　积分 297
楼主有意思 http://www.bathome.cn/thread-1987-1-1.html

第4楼　radem	发表于 2008-09-29 17:32
高级用户　发帖 383　积分 691
LS是那里的版主啦

第5楼　xswdong	发表于 2008-09-29 22:14
中级用户　发帖 129　积分 216
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 ]

第6楼　everest79	发表于 2008-09-30 10:29
金牌会员　发帖 1,127　积分 2,564
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 网上找了个改的

第7楼　Wingl83	发表于 2008-09-30 11:18
初级用户　发帖 65　积分 109
Originally posted by xswdong at 2008-9-29 10:14 PM: 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(&qu ... 这个基本可以实现我的要求，但是我是要导出收藏夹，并导出的位置为http://www.35766.com/Fav/Import_IE.asp，可否帮我稍做更改？

第8楼　xswdong	发表于 2008-10-01 20:37
中级用户　发帖 129　积分 216
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}") 只做到登陆，我没有注册，无法看到里面是什么，楼主自己做后面的。