明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 4194|回复: 22

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

    [复制链接]
发表于 2008-12-12 15:59 | 显示全部楼层 |阅读模式
从晓东CAD里传过来的,好像明经里还没有!如果有重复,请帮删除吧!

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

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


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


由于在晓东积分不够,无法看到第3、4个函数。
请高手补充一下,第3、4个函数。谢谢

评分

参与人数 1明经币 +1 金钱 +5 收起 理由
chengwangjun + 1 + 5

查看全部评分

发表于 2022-9-22 20:22 | 显示全部楼层
mccad 发表于 2008-12-14 16:54
用MSXML2.XMLHTTP可读取网络的文件,可参照以下帖子:用VisualLISP程序查看明经社区的最新帖子:http://www. ...

明总链接失效可以从新发一下吗
发表于 2021-11-30 09:21 | 显示全部楼层
函数3和4怎看不到??                  
发表于 2017-12-13 17:49 | 显示全部楼层
我积分到了也看不到的?请问版主什么问题?
 楼主| 发表于 2008-12-12 22:54 | 显示全部楼层

看的人很多,没人顶呀?

自己顶一个

发表于 2008-12-12 23:30 | 显示全部楼层
不错,用Scripting.FileSystemObject也可以做到下载。
 楼主| 发表于 2008-12-13 14:44 | 显示全部楼层

回果可以隐藏的下载,那么就可以做到网络验证啦!

有谁可以告诉我隐藏下载的函数呢?

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

发表于 2008-12-14 09:02 | 显示全部楼层
隐藏读取网络文件的函数很多,如果你没有装杀毒软件上网,每天都可以感染病毒的。
 楼主| 发表于 2008-12-14 11:30 | 显示全部楼层

mccad能不能告诉几个隐藏读取网络文件的函数???

杀毒软件我想大家都装了!如果是想用CAD来挂病毒,那何必这么累呢?

只是想多学个技术罢了!

发表于 2008-12-14 16:54 | 显示全部楼层

用MSXML2.XMLHTTP可读取网络的文件,可参照以下帖子:

用VisualLISP程序查看明经社区的最新帖子:
http://www.mjtd.com/bbs/dispbbs.asp?BoardID=3&replyID=41704&id=56789&skin=0

发表于 2013-9-9 16:21 | 显示全部楼层
正在学习
发表于 2013-9-9 16:32 | 显示全部楼层
函数3和4怎看不到??
发表于 2013-10-31 22:51 | 显示全部楼层
学习学习~~~
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-5-5 15:19 , Processed in 0.735913 second(s), 27 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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