479274135 发表于 2016-6-2 22:08:27

猫老师太高深了 N年过来再看

zlzxtfl 发表于 2016-6-4 17:19:10

点赞，赞老猫的精神

xinxirong 发表于 2017-8-17 07:46:48

不安全 密码放到客户机上

war32 发表于 2017-12-28 13:26:54

留个脚印，以后慢慢研究。
重点关注在自动更新，目前的原理是比较两个文件，但前提是文件名没有经过更改，能否判断更改以后的vlx文件名，从而与新的文件进行比较？

war32 发表于 2018-1-30 23:54:43

;更新模块
;当版本文件存在则读取服务器版本号
(setq dver "3.0.0.0") ;当前版本号
(if (setq file (open "\\\\192.168.1.11\\1\\ver.txt" "r"))
(progn (setq xver (read-line file))(close file)
   
    ;将版本号去小数点后连在一起作为数字处理，比较其大小得到是否有新版本
    (while (vl-string-search "." dver)
      (setq dver (vl-string-subst "" "." dver))
    )
    (while (vl-string-search "." xver)
      (setq xver (vl-string-subst "" "." xver))
    )
    (if (< dver xver)
      (progn
      (setq fso (vlax-create-object "Scripting.FileSystemObject"))
      (setq newfile (vlax-invoke-method fso 'getfile "\\\\192.168.1.11\\1\\1.vlx"))
      (vlax-invoke-method newfile 'copy "D:\\cad.vlx" :vlax-true)
      (princ (strcat "\n\t更新完成，新版本号为：V" xver "。请重启CAD以完成更新！"))
      (setq file nil xver nil dver nil fso nil newfile nil)
      )
      (princ (strcat "\n\t 插件V" dver "已加载."))
      
    )
)
(princ (strcat "\n\t 插件V" dver "已加载."))
)

;更新模块结束
猫老师，在采用自动更新模块的时候出现一个问题，当服务器关机而客户机网络连接存在时，会耗费很长的时间来判断服务器不存在，从而导致程序在加载的时候非常耗时，有没有什么办法能解决呢。以下是我判断版本的代码。

LIULISHENG 发表于 2018-2-5 14:33:42

神作哦

cn0yahoo 发表于 2018-4-21 11:55:54

看不懂

cn0yahoo 发表于 2018-4-22 21:29:14

好深奥

chengduld028 发表于 2019-12-22 16:54:36

好好学习

chengduld028 发表于 2019-12-22 17:55:30

看不懂，在学习
页: 1 2 [3] 4
查看完整版本: OpenDCL、打印设定、文件上传、oracle数据库、sql数据库、程序自动更新、MD5加密等