对“网页添加到收藏夹”几个方式的分析

wxyyabc

因工作的需要，在给门店维护系统时。得给他们添加OA网址和POS系统的网址到收藏夹及桌面。所以对这个这个把网页添加到收藏夹好好的研究学习了一下。
下面这个是我的一个示例AU3，参考VBS写出来的。

; Add a Web Site to the Favorites Menu
Const $ADMINISTRATIVE_TOOLS = 6
$objShell = ObjCreate("Shell.Application")
$objFolder = $objShell.Namespace($ADMINISTRATIVE_TOOLS) 
$objFolderItem = $objFolder.Self     
$objShell = ObjCreate("WScript.Shell")
$strDesktopFld = $objFolderItem.Path
$objURLShortcut = $objShell.CreateShortcut($strDesktopFld & "\商店系统.url")
$objURLShortcut.TargetPath = "http://bspos.xxx.com/ "
$objURLShortcut.Save
$objURLShortcut1 = $objShell.CreateShortcut($strDesktopFld & "\OA.url")
$objURLShortcut1.TargetPath = "http://oa.xxx.com/"
$objURLShortcut1.Save

采用这个方式可以达到我们的目的，要是想在桌面上也加上这个网址，就只需加上桌面的路径就OK。
然后下面有两个例子是从英文官网上学习看到的。

示例1
;Creating URLs
_qtUrlCreator(@FavoritesDir&"\Free Online Games.url", "http://arcadengine.com/")
_qtUrlCreator(@FavoritesDir&"\LeoMoon Studios.url", "http://leomoon.com/")
_qtUrlCreator(@FavoritesDir&"\Love is Comix.url", "http://loveiscomix.com/")
;URL Creator Function
Func _qtUrlCreator($urlName, $urlPath)
    Local $iniGenFile
    $iniGenFile = '[{000214A0-0000-0000-C000-000000000046}]' & @CRLF _
        & 'Prop3=19,2' & @CRLF _
        & '[InternetShortcut]' & @CRLF _
        & 'URL='&$urlPath & @CRLF _
        & 'IDList='
    FileWrite($urlName, $iniGenFile)
EndFunc

这个例子是创建了一个函数来添加网页到收藏夹。这给我另外一个视觉。

示例2
;Creating URLs
IniWrite($sURLFile,"InternetShortcut","url",$sURL)

;这是本论坛有的一个完整示例。 IniWrite(@FavoritesDir&'\OA.url',"InternetShortcut",'URL','http://oa.xxx.com')

这个方法是最简单的方式，一行代码就OK。

小菜kks

唉，水平不够，很多还看不懂，楼主厉害，呵呵

syhw222

谢谢分享！看来还是要多上英文网站才能有更多收获！

hello_xiaopeng

收藏了先，以后一定用得到

syhw2222

谢谢楼主分享！