[原创]添加网址到收藏夹中

mccad

以下函数可以将网址加入到收藏夹中

2. (defun AddFavorite(Url Name)
3.   (vlax-invoke-method(vlax-create-object "Shell.UIHelper.1") 'AddFavorite Url Name)
4. )
5. (defun c:mjtd()
6.   (AddFavorite "http://www.mjtd.com" "明经通道")
7. )

(defun AddFavorite(Url Name)   (vlax-invoke-method(vlax-create-object "Shell.UIHelper.1") 'AddFavorite Url Name) ) (defun c:mjtd()   (AddFavorite "http://www.mjtd.com" "明经通道") )

大家试试看，可惜IE本身的保护作用，需要用户再次确认。

wei209

要是能偷着加进去就行了,我觉的写注册表,设为首页也不错! vl-registry-write

ygrzz

哈哈，狗拿耗子了吧，开个玩笑~~~~~~~~
连WINDOW也不放过，够偏门的~

mccad

暗地里加入收藏夹也可以，可能通过建立快捷方式来做，无痕版主在函数频道中已经有增加快捷方式的函数。

mccad

这些东西其实都挺有用户的，当你写个成品软件时，就需要有“关于...”对话框，在对话框中，你可以设置多个这样的按钮。

你也可以把这些东西写到你软件的菜单中。加上我上段时间给大家的：
通过httprequit方式得到网站的更新这个内容，就可以做个查看我的软件是否已经有更新的菜单项，呵呵，选择该菜单项后，程序通过后台连接网站并取得最新的版本号，并与当前软件的版号比较，得出你的软件是否是最新版。而且还可以写到通过菜单下载网站的文件并更新。

可能都是些新的观念了。呵呵。或者还可以连接网站，核对你的软件是否经过授权使用。这些都可以做到。

ygrzz

恩，这玩意太高端了，菜鸟免进~~~~~~~~~

无痕

mccad发表于2007-2-13 10:52:00以下函数可以将网址加入到收藏夹中(defun AddFavorite(Url Name)  (vlax-invoke-method(vlax-create-object \"Shell.UIHelper.1\") 'AddFavorite Url Name))(defun c:mjtd()  (AddFa

做了一个不用确认的，不知道兼容性如何，先发一个编译版本． （新年０时１５分）

1. ;| (xurl 标题 url) = 添加url到系统收藏夹-----by lxx.2007.2
2. 测试:
3. (xurl "xx明经xx" "www.mjtd.com")
4. (xurl "xx明经xx222"  "http://www.mjtd.com")
5. |;

复制代码

wei209

编译版本啊,呵呵!过年了把代码公布下吧老大!

vken7az2p

无痕发表于2007-2-18 1:01:00 32841

無痕版主您好:

何時可講解一下做法呢?
期待您的講解

无痕

vken7az2p发表于2008-1-26 19:11:00無痕版主您好:何時可講解一下做法呢?期待您的講解

2. ;| (xurl 标题 url) = 添加url到系统收藏夹-----by lxx.2007.2
3. 测试:
4. (xurl "xx明经xx" "www.mjtd.com")
5. (xurl "xx明经xx222"  "http://www.mjtd.com")
6. |;
7. (defun xo-addFavorites (title urlstr / F FAVPATH SF WSH)
8.   (if (wcmatch  urlstr "www.*")
9.     (setq urlstr (strcat "http://" urlstr))
10.   )
11.   (setq Wsh     (vlax-create-object "WScript.Shell");(vlax-dump-object sf T)
12.       sf (vlax-get wsh 'SpecialFolders)
13. favpath (vla-item sf 15)
14.   )
15.   (setq f (open (strcat favpath "\" title ".url") "w"))
16.   (write-line  "[InternetShortcut]" f)
17.   (write-line (strcat "URL=" urlstr) f )
18.   (close f)
19.   (vlax-release-object  wsh)
20.   (princ)
21. )
22. (defun xurl (title url)
23.   (princ "(xurl 标题 url) = 添加url到系统收藏夹-----by lxx.2007.2")
24.   (xo-addFavorites title url)
25. )

;| (xurl 标题 url) = 添加url到系统收藏夹-----by lxx.2007.2 测试: (xurl "xx明经xx" "www.mjtd.com") (xurl "xx明经xx222"  "http://www.mjtd.com") |; (defun xo-addFavorites (title urlstr / F FAVPATH SF WSH)   (if (wcmatch  urlstr "www.*")     (setq urlstr (strcat "http://" urlstr))   )   (setq Wsh     (vlax-create-object "WScript.Shell");(vlax-dump-object sf T)       sf (vlax-get wsh 'SpecialFolders) favpath (vla-item sf 15)   )   (setq f (open (strcat favpath "\" title ".url") "w"))   (write-line  "[InternetShortcut]" f)   (write-line (strcat "URL=" urlstr) f )   (close f)   (vlax-release-object  wsh)   (princ) ) (defun xurl (title url)   (princ "(xurl 标题 url) = 添加url到系统收藏夹-----by lxx.2007.2")   (xo-addFavorites title url) )