[LISP函数]：通过Vlisp下载网络资源的4个函数

fools · 发表于 2007-2-28 11:28:02

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

函数1~2下载时会弹出下载对话框.
函数3~4下载是不弹出下载对话框.在下认为这种无声无息的下载方式存在一定的危险,因为这可能会给病毒传播提供一种不知不觉的途径,所以本贴设置了一定的访问权限.

函数1-ShellDownload
[php]
;;Usage: (ShellDownload "http://carnet-de-cablage.chez-alice.fr/Lisp/Rbloc.zip")
(DEFUN ShellDownload (url / shell)
  (SETQ shell (VLAX-CREATE-OBJECT "Shell.Application"))
  (VLAX-INVOKE shell 'OPEN url)
  (VLAX-RELEASE-OBJECT shell)
)
[/php]

函数2-IeDownload
[php]
;;Usage: (ShellDownload "http://carnet-de-cablage.chez-alice.fr/Lisp/Rbloc.zip")
(DEFUN IeDownload (url / ie)
  (SETQ ie (VLAX-CREATE-OBJECT "InternetExplorer.Application"))
  (VLAX-INVOKE ie 'navigate url)
  (VLAX-RELEASE-OBJECT ie)
)
[/php]

游客，如果您要查看本帖隐藏内容请回复

jx2008 · 发表于 2007-4-10 00:58:52

怎么还限制阿？

Archli · 发表于 2008-7-20 01:41:59

用法很意思

syqy · 发表于 2008-8-18 13:03:20

谢谢啊，收下了

winabcd · 发表于 2008-8-19 07:58:23

不想给人看,就别拿出来.

zml84 · 发表于 2008-9-2 10:01:52

理解楼主的苦心，支持！

zfd2701 · 发表于 2008-12-12 15:27:20

理解楼主的苦心，支持

albbzdc156 · 发表于 2008-12-13 18:17:25

楼主辛苦了

JG973 · 发表于 2009-6-9 10:52:47

楼主的条件太苛刻了

tboy2080 · 发表于 2009-7-2 11:36:02

这个东西还蛮使用，谢谢楼主

liuyun242 · 发表于 2013-5-20 21:14:27

学习学习，谢谢楼主分享

yoyoho · 发表于 2013-5-21 07:19:50

感谢楼主分享程序!

HLCAD · 发表于 2013-6-4 08:05:40

回复，看大侠的代码

清风明月10 · 发表于 2013-6-7 19:06:48

谢谢分享，学习一下

wangdaobin · 发表于 2013-7-5 02:08:35

看看合我用么！

账号		自动登录	找回密码
密码			立即注册

[LISP函数]：通过Vlisp下载网络资源的4个函数

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

评分

相关帖子