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

xiaocainiao

kozmosovia 发表于 2024-5-13 19:54
(vlax-invoke
               (vlax-create-object "wscript.shell")
               "run"

大神！还得请教您一下、wscript.shell 这个东西的使用是不是有什么限制或要求啊、我换台电脑发现下载不了插件了

kozmosovia

xiaocainiao 发表于 2024-5-16 15:16
大神！还得请教您一下、wscript.shell 这个东西的使用是不是有什么限制或要求啊、我换台电脑发现下载不了 ...

大概率UAC权限问题，最好是下载到确实可以所有Windows用户都可以写入的目录。如果登录用户权限不高，有些系统位置是不让写文件的。

xiaocainiao

kozmosovia 发表于 2024-5-16 15:50
大概率UAC权限问题，最好是下载到确实可以所有Windows用户都可以写入的目录。如果登录用户权限不高，有些 ...

我是直接下载到windows的临时文件夹里面、但有时候也下载不了、或者就下载个几k

kozmosovia

xiaocainiao 发表于 2024-5-16 16:07
我是直接下载到windows的临时文件夹里面、但有时候也下载不了、或者就下载个几k

手动在dos窗口里执行一下看能否下载下来

xiaocainiao

kozmosovia 发表于 2024-5-16 16:24
手动在dos窗口里执行一下看能否下载下来

不太会手动操作、 不行我就直接手动下载吧、谢谢大神

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 服务器返回错误:
非选择性的参数。

tryhi

south 发表于 2024-6-4 20:37
这个代码测试会出现这个了，是咋回事呢，是不是收藏夹实现不了下载了
换成自己打包的文件也是不行， ...

调试一下看看那句代码出错，有可能你的电脑正则有问题

south

tryhi 发表于 2024-6-5 15:24
调试一下看看那句代码出错，有可能你的电脑正则有问题

应该是这个问题，在其它电脑可以正常使用。应该怎么解决呢，网上找了些方法没成功

tryhi

south 发表于 2024-6-8 08:17
应该是这个问题，在其它电脑可以正常使用。应该怎么解决呢，网上找了些方法没成功

能定位到出错的那一句代码吗？

south

tryhi 发表于 2024-6-11 16:20
能定位到出错的那一句代码吗？

2. (if (vlax-invoke-method reg 'test str1)
   
3. (progn (setq matchcollect (vlax-invoke-method reg 'Execute str1))

(if (vlax-invoke-method reg 'test str1)<br /> (progn (setq matchcollect (vlax-invoke-method reg 'Execute str1))

看看不是这样，错误提示是     原因：ActiveX 服务器返回错误: 非选择性的参数。