对“网页添加到收藏夹”几个方式的分析
因工作的需要，在给门店维护系统时。得给他们添加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 _
& '' & @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。 唉，水平不够，很多还看不懂，楼主厉害，呵呵 谢谢分享！看来还是要多上英文网站才能有更多收获！ 收藏了先，以后一定用得到 谢谢楼主分享！
页:
[1]