中国DOS联盟

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

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

能实现。。。

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

楼主有意思
http://www.bathome.cn/thread-1987-1-1.html

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