找回密码
 加入
搜索
查看: 4104|回复: 5

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

  [复制链接]
发表于 2010-8-8 21:45:44 | 显示全部楼层 |阅读模式
因工作的需要,在给门店维护系统时。得给他们添加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。

评分

参与人数 1金钱 +35 贡献 +9 收起 理由
lynfr8 + 35 + 9 原创内容,感谢你对论坛的支持;希望继续发 ...

查看全部评分

发表于 2010-8-12 10:23:32 | 显示全部楼层
唉,水平不够,很多还看不懂,楼主厉害,呵呵
发表于 2011-1-2 09:59:58 | 显示全部楼层
谢谢分享!看来还是要多上英文网站才能有更多收获!
发表于 2011-7-24 08:01:37 | 显示全部楼层
收藏了先,以后一定用得到
发表于 2012-1-24 00:29:30 | 显示全部楼层
谢谢楼主分享!
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-12-23 08:21 , Processed in 0.311820 second(s), 20 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表