有没有办法用vlisp对程序加入网络验证

fan_zh

目前自己的程序已能在公司服务器上进行验证，通过读取服务器上某个文件内容进行判断后执行相关内容
希望能够读取外网上的内容，可以对该内容进行登陆编辑并自由访问，当然，网址应该要固定的才有意义，对网络不懂，求高手相助
下方为获取网络文件内容函数
(defun get (url / xml)
  (setq xml (vlax-create-object "Microsoft.XMLHTTP"))
  (vlax-invoke xml 'open "GET" url 0)
  (vlax-invoke xml 'setrequestheader "If-Modified-Since" 0) ;_ 禁用缓存
  (vlax-invoke xml 'send)
  (setq outtext (vlax-get xml "responseText"))
  ;;(setq outtext (vlax-get xml "respon**ML"))
  (vlax-release-object xml)
;  (princ outtext)
  (princ)
)

Lisphk

去开源函数库论坛，最近几天更新了几个关于INTERNET的函数。

marting

• （XD::Internet:Download）Internet下载文件（二进制、文本文件）
  7 个回复 - 22 次查看
  **** 本内容被作者隐藏 ****
  2018-3-16 17:04 - marting - 开源函数库
• （XD::Internet-p）判断是否连接到INTERNET
  6 个回复 - 21 次查看
  **** 本内容被作者隐藏 ****
  2018-3-16 16:19 - marting - 开源函数库
• （XD::Internet:Ping）判断一个URL是否可PING
  1 个回复 - 3 次查看
  
  
  2018-3-16 16:27 - marting - 开源函数库
• （XD::InterNet:GetFileSize）获取网页文件的大小
  0 个回复 - 0 次查看
  命令: (XD::INTERNET:GETFILESIZE "http://bbs.xdcad.net/forum.php") 2513
  2018-3-16 12:49 - marting - 开源函数库
• （XD::InterNet:GetUrlHeader）获取网址文件头内容
  0 个回复 - 0 次查看
  获取INTERNET时间： 命令: (xd::internet:geturlheader "http://baidu.com" "date") "Fri, 16 Mar 2018 04:37:07 GMT"
  2018-3-16 12:38 - marting - 开源函数库
• （XD::InterNet:GetUrl）读取网页内容
  0 个回复 - 0 次查看
  命令: (xd::internet:geturl "http://baidu.com") "\n\n\n"
  2018-3-16 11:34 - marting - 开源函数库
  
  

fan_zh

感谢楼上大神回复
试了下，如果访问自己的网盘 文件，如百度，360等，url又该怎么查呢

marting

fan_zh 发表于 2018-3-22 12:38

这个和访问HTTP的代码无关，而是你要得到真实的访问地址，你得解析出网盘的真实地址，其实网上不少百度网盘下载器，都是自己分析百度的真实地址，百度也随时在改，防止被解析直接下。
所以，你去找找相关解析百度网盘地址的文章，其实这和破解挺像了，你要是得到真实地址了，就可以直接下载了，百度能让你随便下吗，怎么卖会员？

fan_zh

那除了破解百度云真实地址外，还有其它路吗？我想到的有以下
1. 建立私有文件服务器，这个不确定地址是否会固定
2. 找免费ftp，但好像都无法上传

还请大神再指条明路

fan_zh

marting 发表于 2018-3-22 12:54
这个和访问HTTP的代码无关，而是你要得到真实的访问地址，你得解析出网盘的真实地址，其实网上不少百度网 ...

    大师在吗？

marting

fan_zh 发表于 2018-3-24 11:46
大师在吗？

你要找网上商业的私有云，先问问他们，给外链不，如果给，你就能用。

top198

这么强大啊，我需要