[原创][手把手教]免服务器做自动更新教程【QQ收藏】

tryhi

想让自己做的程序可以自动更新，但是又没有服务器该怎么做，只要把你的最新程序放到所有人都能访问的地方就可以了，这里讲如何利用QQ收藏来做这个，用很久以前的图种技术，就是把一个VLX文件合并在图片后面伪装成一张图片。
1、准备一张图片，越小越好（记下图片总共多少字节）
2、将你的程序先做好，并打包成vlx
3、将图片跟vlx放到同个目录下，假设图片名字为a.jpg，程序名字为a.vlx并新建一个txt，输入copy /b a.jpg+a.vlx b.jpg 保存后将txt改为bat，如图所示


4、双击bat文件后会得到b.jpg，这张jpg看起来跟a.jpg一摸
一样，但是其尾部其实隐藏了a.vlx的数据
5、打开QQ收藏

6、点击新建笔记、插入图片，选择特殊处理过的图片，然后加上一行文字
vlx-version(20240509)
括号内数字作为最新版本号


用来做版本判断是否要更新

7、右键转发给任意一个联系人


8、从你的联系人里面打开转发的链接，你会得到这个地址，复制下来
https://sharechain.qq.com/0caab955abff65fcd0e5392c483c5275
这个地址将填到你的程序里面



到这里基本工作已经完成了，接下来测试一下代码

1. (setq wy(try-get-url "https://sharechain.qq.com/0caab955abff65fcd0e5392c483c5275"));这里填写你收藏的地址
   
2. (setq 获取版本号(try-StrRegExp wy "vlx-version\\([^)]+"))
   
3. (setq 版本号(substr (car 获取版本号) 13))
   
4. (setq 下载地址(car(try-StrRegExp wy "http://shp.qpic\\.cn/collector[^\")]+")))
   
5. (try-DownLoad 下载地址 "c:\\b.jpg");下载图片
   
6. (setq a(try-file-ReadBinary10 "c:\\b.jpg"));读取图片
   
7. (try-file-WriteBinary10 "c:\\a.vlx" (try-lst-move-head a 16194 ));剥离图片，这里的16194是原始图片的大小（字节数）

(setq wy(try-get-url "https://sharechain.qq.com/0caab955abff65fcd0e5392c483c5275"));这里填写你收藏的地址<br /> (setq 获取版本号(try-StrRegExp wy "vlx-version\\([^)]+"))<br /> (setq 版本号(substr (car 获取版本号) 13))<br /> (setq 下载地址(car(try-StrRegExp wy "http://shp.qpic\\.cn/collector[^\")]+")))<br /> (try-DownLoad 下载地址 "c:\\b.jpg");下载图片<br /> (setq a(try-file-ReadBinary10 "c:\\b.jpg"));读取图片<br /> (try-file-WriteBinary10 "c:\\a.vlx" (try-lst-move-head a 16194 ));剥离图片，这里的16194是原始图片的大小（字节数）

这段代码跑一下，看看C盘有没有出现一个a.vlx文件，有的话表示搭建正常
注：有基础的人看到这里应该知道接下来怎么做了，因为核心就是如何解决下载问题



9、下载“自动更新示例.lsp”，把这两个变量改为你对应的收藏地址跟图片大小


10、编译为VXL，把syz-vlx-path.fas放到最前面，自动更新示例.lsp放到第二进行编译（注：关于syz-vlx-path.fas请看baitang36的帖子[经验] 【原创】精确获取vlx的加载位置）

11、新编译的VLX跟原始图片合并在一起（详见第1步），然后更新图片
完成，你的VLX就可以通过QQ收藏来控制更新了

1. ;;定义当前的版本号，为了节约代码，使用日期作为版本，能力强的同学可以用标准版本号格式
   
2. (setq *banben* 20240508)
   
3. 
   
4. (setq
   
5.   *收藏地址* "https://sharechain.qq.com/0caab955abff65fcd0e5392c483c5275" ;注意，这个地址必须是你自己的收藏地址，本文仅做示例
   
6.   *原始图片大小* 16194 ;这里的16194是原始图片的大小（字节数）
   
7. )
   
8. 
   
9. (if SYZ-VLX-PATH ;这里使用baitang36的获取vlx路径的fas
   
10.   (progn
    
11.     (setq *vlx路径*  (vl-catch-all-apply 'SYZ-VLX-PATH nil))
    
12.     (if (vl-catch-all-error-p *vlx路径* )
    
13.       (setq *vlx路径*  nil)
    
14.     )
    
15.   )
    
16. )
    
17. 
    
18. 
    
19. (defun 获取远程下载链接及版本号 (/ wy 版本号 获取版本号 获取下载地址 下载地址)
    
20.   (setq wy(try-get-url *收藏地址*);这里填写你收藏的地址
    
21.     获取版本号(try-StrRegExp wy "vlx-version\\([^)]+")
    
22.     版本号(substr (car 获取版本号) 13)
    
23.     获取下载地址(try-StrRegExp wy "vlx-download\\([^)]+");注意，这里必须按照格式来，粘贴的地址必须是纯文本
    
24.     下载地址(substr (car 获取下载地址) 14))
    
25.   (list (atoi 版本号)下载地址)
    
26. )
    
27. 
    
28. 
    
29. 
    
30. (setq 版本-地址(vl-catch-all-apply '获取远程下载链接及版本号));拦截错误，避免无网络等原因导致阻塞
    
31. 
    
32. (if (vl-catch-all-error-p 版本-地址 )
    
33.   (princ"\n获取远程版本失败")
    
34.   (if (< *banben* (car 版本-地址));当前版本小于远程版本，需要更新
    
35.     (progn
    
36.       (setq 临时文件(vl-filename-mktemp "b.jpg") )
    
37.       (try-DownLoad (cadr 版本-地址) 临时文件);下载图片
    
38.       (setq a(try-file-ReadBinary10 临时文件));读取图片
    
39.       (vl-file-delete 临时文件)
    
40.       (setq 临时文件vlx(vl-filename-mktemp "a.vlx") )
    
41.       (try-file-WriteBinary10 临时文件vlx (try-lst-move-head a *原始图片大小* ));剥离图片，这里的16194是原始图片的大小（字节数）
    
42.       (if *vlx路径*
    
43.         (progn
    
44.           (vl-file-delete *vlx路径*);删除自身
    
45.           (vl-file-rename 临时文件vlx *vlx路径*);移动并重命名至指定目录
    
46.           (princ "\n自动更新完成")
    
47.         )
    
48.         (alert"当前版本过旧，无法获取自身路径，请手动更新")
    
49.       )
    
50.     )
    
51.     (princ "\n当前版本为最新版")
    
52.   )
    
53. )
    
54. 
    
55. ;主程序开始……
    

;;定义当前的版本号，为了节约代码，使用日期作为版本，能力强的同学可以用标准版本号格式<br /> (setq *banben* 20240508)<br /> <br /> (setq <br />   *收藏地址* "https://sharechain.qq.com/0caab955abff65fcd0e5392c483c5275" ;注意，这个地址必须是你自己的收藏地址，本文仅做示例<br />   *原始图片大小* 16194 ;这里的16194是原始图片的大小（字节数）<br /> )<br /> <br /> (if SYZ-VLX-PATH ;这里使用baitang36的获取vlx路径的fas<br />   (progn <br />     (setq *vlx路径*  (vl-catch-all-apply 'SYZ-VLX-PATH nil))<br />     (if (vl-catch-all-error-p *vlx路径* )<br />       (setq *vlx路径*  nil)<br />     )<br />   )<br /> )<br /> <br /> <br /> (defun 获取远程下载链接及版本号 (/ wy 版本号 获取版本号 获取下载地址 下载地址)<br />   (setq wy(try-get-url *收藏地址*);这里填写你收藏的地址<br />     获取版本号(try-StrRegExp wy "vlx-version\\([^)]+")<br />     版本号(substr (car 获取版本号) 13)<br />     获取下载地址(try-StrRegExp wy "vlx-download\\([^)]+");注意，这里必须按照格式来，粘贴的地址必须是纯文本<br />     下载地址(substr (car 获取下载地址) 14))<br />   (list (atoi 版本号)下载地址)<br /> )<br /> <br /> <br /> <br /> (setq 版本-地址(vl-catch-all-apply '获取远程下载链接及版本号));拦截错误，避免无网络等原因导致阻塞<br /> <br /> (if (vl-catch-all-error-p 版本-地址 )<br />   (princ"\n获取远程版本失败")<br />   (if (< *banben* (car 版本-地址));当前版本小于远程版本，需要更新<br />     (progn <br />       (setq 临时文件(vl-filename-mktemp "b.jpg") )<br />       (try-DownLoad (cadr 版本-地址) 临时文件);下载图片<br />       (setq a(try-file-ReadBinary10 临时文件));读取图片<br />       (vl-file-delete 临时文件)<br />       (setq 临时文件vlx(vl-filename-mktemp "a.vlx") )<br />       (try-file-WriteBinary10 临时文件vlx (try-lst-move-head a *原始图片大小* ));剥离图片，这里的16194是原始图片的大小（字节数）<br />       (if *vlx路径* <br />         (progn <br />           (vl-file-delete *vlx路径*);删除自身<br />           (vl-file-rename 临时文件vlx *vlx路径*);移动并重命名至指定目录<br />           (princ "\n自动更新完成")<br />         )<br />         (alert"当前版本过旧，无法获取自身路径，请手动更新")<br />       )<br />     )<br />     (princ "\n当前版本为最新版")<br />   )<br /> )<br /> <br /> ;主程序开始……<br />

引用一下5楼的总结 总结一下就是： 1.准备原始图片a 2.将vlx文件打包进图片，附在图片数据后部，生成图片b 3.找图床，并标记版本 4.网络访问，判断版本，下载b 5.剔除图片a的数据，得到vlx 6.判断版本，如果当前版本没有远程版本新，则删除自身，把新版本覆盖过来

你有种再说一遍

图片容易被重渲染,所以复制到尾巴其实很容易被抓出来.
最好的方法是藏到霍夫曼树里面...嘻嘻
https://www.zhihu.com/question/607058738

Klein

总结一下就是：
1.准备原始图片a
2.将vlx文件打包进图片，附在图片数据后部，生成图片b
3.找图床，并标记版本
4.网络访问，判断版本，下载b
5.剔除图片a的数据，得到vlx

思路确实赞！

south

1. 
   

复制代码

1. (setq wy (try-get-url "https://sharechain.qq.com/0caab955abff65fcd0e5392c483c5275"));这里填写你收藏的地址
   
2. (setq 获取版本号 (try-StrRegExp wy "vlx-version\\([^)]+"))
   
3. (setq 版本号 (substr (car 获取版本号) 13))
   
4. (setq 下载地址 (car (try-StrRegExp wy "http://shp.qpic\\.cn/collector[^\")]+")))
   
5. (try-DownLoad 下载地址 "c:\\b.jpg");下载图片
   
6. (setq a (try-file-ReadBinary10 "c:\\b.jpg"));读取图片
   
7. (try-file-WriteBinary10 "c:\\a.vlx" (try-lst-move-head a 16194));剥离图片，这里的16194是原始图片的大小（字节数）

(setq wy (try-get-url "https://sharechain.qq.com/0caab955abff65fcd0e5392c483c5275"));这里填写你收藏的地址<br /> (setq 获取版本号 (try-StrRegExp wy "vlx-version\\([^)]+"))<br /> (setq 版本号 (substr (car 获取版本号) 13))<br /> (setq 下载地址 (car (try-StrRegExp wy "http://shp.qpic\\.cn/collector[^\")]+")))<br /> (try-DownLoad 下载地址 "c:\\b.jpg");下载图片<br /> (setq a (try-file-ReadBinary10 "c:\\b.jpg"));读取图片<br /> (try-file-WriteBinary10 "c:\\a.vlx" (try-lst-move-head a 16194));剥离图片，这里的16194是原始图片的大小（字节数）

这个代码测试会出现这个了，是咋回事呢，是不是收藏夹实现不了下载了
换成自己打包的文件也是不行，请大佬指教
; 错误: ActiveX 服务器返回错误:
非选择性的参数。

伊江痕

学到了啊，大海哥

htlaser

每天来学习一点!

言戲無軍

弄个exe文件会不会被杀毒软件杀掉

tryhi

言戲無軍 发表于 2024-5-9 17:03
弄个exe文件会不会被杀毒软件杀掉

首先，关exe什么事？
其次，杀不杀看exe，不看你加的数据

cds15980954301

厉害！拜服学习到了，谢谢大神分享这么优秀的程序

unclearriver

牛啊

guosheyang

感谢大佬分享教程！

jia_jg

学习到了，太厉害了，大佬