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

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

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

函数1-ShellDownload

;;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)
)


函数2-IeDownload

;;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)
)


**** Hidden Message *****

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

看看合我用么！

页: [1] 2 3 4 5 6 7 8 9
查看完整版本: [LISP函数]：通过Vlisp下载网络资源的4个函数