|
本帖最后由 JY小菜鸟 于 2023-12-2 01:43 编辑
无成本白嫖有道云,我写了源码小白学习。所以我每行代码都有注释,讲解原理!
当然这是抛砖引玉,你也可以利用蓝奏云、腾讯微云、百度网盘、360云盘等等,都能实现这个功能!
话不多说开始。
很简单就三步。
第一步:创建有道云笔记,并且开启分享,获得分享链接。
第二步:写一个主体软件,软件里获取有道云笔记里的版本号、公告等等。
第三步:写一个更新软件,软件里获取有道云笔记里的下载链接、更新日志等等。
注意:就调用了一个精易模块!模块下载地址:https://ec.125.la/
好,上代码!
↓↓↓↓这是主体软件代码↓↓↓↓
窗口程序集名 | 保 留 | 保 留 | 备 注 | 窗口程序集_启动窗口 | | | |
标签1.标题 = “当前版本:” + #当前版本 检测更新 () 变量名 | 类 型 | 静态 | 数组 | 备 注 | node | 文本型 | | | 最新版本 | 文本型 | | | 下载地址 | 文本型 | | | 公告内容 | 文本型 | | |
node = 到文本 (编码_编码转换对象 (网页_访问 (“https://note.youdao.com/yws/public/note/d49108c0eb5a3723cdab9ac972a3b4d1?sev=j1”, 0, , , , “User-Agent:Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/47.0.2526.80 Safari/537.36 Core/1.47.277.400 QQBrowser/9.4.7658.400”, , , , , , , , )) ) 最新版本 = 文本_取出中间文本 (node, “版本【”, “】版本”, )调试输出 (“最新版本”, 最新版本 )强制更新 = 到逻辑型 (文本_取出中间文本 (node, “强制更新【”, “】强制更新”, )) 公告内容 = 文本_取出中间文本 (node, “这是公告【”, “】这是公告”, ) 公告内容 = 子文本替换 (公告内容, “/n”, #换行符, , , 真)公告内容 = 子文本替换 (公告内容, “ ”, “ ”, , , 真)编辑框1.内容 = 公告内容 如果真 (最新版本 ≠ #当前版本 )如果 (强制更新 ) 时钟1.时钟周期 = 0 标签2.标题 = “最新版本:” + 最新版本 如果真 (信息框 (“检测到软件有强制更新,未避免影响使用请立刻更新。” + #换行符 + “点击确定将会开始下载!”, 68, “系统提示”, ) = #是钮 )执行 (4, “更新.exe”, , , )Sleep (1000 ) 结束 () 标签2.标题 = “最新版本:” + 最新版本 信息框 (“检测到软件有更新!”, 64, “系统提示”, ) 返回 ()标签2.标题 = “最新版本:” + 最新版本返回 ()检测更新 ()时钟1.时钟周期 = 60000 检测更新 ()
↓↓↓↓这是更新软件代码↓↓↓↓
窗口程序集名 | 保 留 | 保 留 | 备 注 | 窗口程序集_启动窗口 | | | |
变量名 | 类 型 | 静态 | 数组 | 备 注 | node | 文本型 | | | 日志 | 文本型 | | |
node = 到文本 (编码_编码转换对象 (网页_访问 (“https://note.youdao.com/yws/public/note/d49108c0eb5a3723cdab9ac972a3b4d1?sev=j1”, 0, , , , “User-Agent:Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/47.0.2526.80 Safari/537.36 Core/1.47.277.400 QQBrowser/9.4.7658.400”, , , , , , , , )) ) 下载链接 = 文本_取出中间文本 (node, “下载地址【”, “】下载地址”, , ) 下载链接 = 子文本替换 (下载链接, “&”, “&”, , , 真)日志 = 文本_取出中间文本 (node, “这是日志【”, “】这是日志”, , ) 日志 = 子文本替换 (日志, “/n”, #换行符, , , 真)日志 = 子文本替换 (日志, “nbsp;”, #换行符, , , 真)编辑框1.内容 = 日志 调试输出 (下载链接 )标签1.标题 = “下载中···” 写到文件 (取运行目录 () + “\主体软件2.0.exe”, HTTP读文件 (下载链接 )) 如果真 (信息框 (“更新结束,是否打开?”, 36, “系统提示”, ) = #是钮 )执行 (4, “主体软件2.0.exe”, , , )结束 ()
源码 成品例子.zip
(1.3 MB, 下载次数: 208)
|
评分
-
查看全部评分
|