蓝奏云有密码-更新程序-自动解压替换旧程序

小马大大 · 发表于昨天 15:09

蓝奏云有密码-更新程序-自动解压替换旧程序

下面附程序代码求大神完善下本人小白正在学习中
最好能能把需要替换的链接地址备注下方便后期我这个小白替换

大神如有程序最好直接上传我直接下载用

蓝奏云有密码-更新程序-自动解压替换旧程序.rar (1.05 MB, 下载次数: 5)

小马大大 · 发表于昨天 15:14

在线等！

kingtt · 发表于昨天 15:38

https://bbs.125.la/forum.php?mod ... =%E8%93%9D%E5%A5%8F

小马大大 · 发表于昨天 15:41

kingtt 发表于 2025-2-15 15:38
https://bbs.125.la/forum.php?mod=viewthread&tid=14838667&highlight=%E8%93%9D%E5%A5%8F

我就是这个版本为原型！没搞懂要改哪里链接才可实现

联系方式看签名 · 发表于昨天 16:03

私聊吧

小马大大 · 发表于昨天 21:24

.版本 2 .支持库 spec .程序集窗口程序集_启动窗口 .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码调试输出 (蓝奏云直链 (“https://wwx.lanzout.com/i1QNp2nuaswb”, “daz6”)) 返回 (0) ' 可以根据您的需要返回任意数值 .子程序蓝奏云直链, 文本型, 公开 .参数下载连接, 文本型 .参数下载密码, 文本型, 可空 .局部变量 A, 文本型 .局部变量 B, 文本型 .局部变量局_一次协议头, 文本型 .局部变量局_一次返回文本, 文本型 .局部变量局_sign, 文本型 .局部变量局_url, 文本型 .局部变量局_二次访问地址, 文本型 .局部变量局_被替换文本, 文本型 .局部变量局_二次提交信息, 文本型 .局部变量局_二次协议头, 文本型 .局部变量局_二次返回文本, 文本型 .局部变量局_Json, 类_json .局部变量局_POST, 类_POST数据类 .局部变量局_正则文本, 正则表达式类 .局部变量局_直链地址, 文本型 .局部变量局部_返回值, 逻辑型 .如果真 (下载密码 ≠ “”) 局_一次协议头＝ “user-agent:Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/130.0.0.0 Safari/537.36 Edg/130.0.0.0” 局_一次返回文本＝到文本 (网页_访问 (下载连接, 0, , , , 局_一次协议头, , , , , , , , )) 局_sign ＝文本_取出中间文本 (局_一次返回文本, “var skdklds = '”, “';”, , 假) 局_url ＝文本_取出中间文本 (局_一次返回文本, “url : '/”, “',”, , 假) 局_二次访问地址＝下载连接局_被替换文本＝文本_取右边 (局_二次访问地址, “/”, , ) 局_二次访问地址＝文本_替换 (局_二次访问地址, , , , 局_被替换文本, 局_url, , , , , , , , ) 局_二次协议头＝ “referer:” ＋下载连接＋ #换行符＋局_一次协议头局_二次提交信息＝ “action=downprocess&sign=” ＋局_sign ＋ “&p=” ＋下载密码＋ “&kd=1” 局_二次返回文本＝到文本 (网页_访问 (局_二次访问地址, 1, 局_二次提交信息, , , 局_二次协议头, , , , , , , , )) 局_Json.解析 (局_二次返回文本, , ) 局_直链地址＝局_Json.取通用属性 (“dom”, ) ＋ “/file/” ＋局_Json.取通用属性 (“url”, ) 返回 (局_直链地址) .如果真结束 .如果真 (下载密码＝ “”) 局_被替换文本＝文本_取出中间文本 (下载连接, “https://”, “com”, , ) 局_POST.添加 (“user-agent”, “Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/100.0.4896.75 Safari/537.36”, ) 局_一次协议头＝局_POST.获取协议头数据 () 局_一次返回文本＝到文本 (网页_访问 (下载连接, 0, , , , 局_一次协议头, , , , , , 真, , )) 局_正则文本.创建 (“src=” ＋ #引号＋ “/(.*?)” ＋ #引号＋ “ frameborder”, 局_一次返回文本, , , , ) 局_正则文本.取匹配文本 (1, ) A ＝ “/” ＋局_正则文本.取子匹配文本 (1, 1, ) 局_一次返回文本＝到文本 (网页_访问 (“https://” ＋局_被替换文本＋ “com” ＋ A, 0, , , , 局_一次协议头, , , , , , 真, , )) 局_正则文本.创建 (“sign':'(.*?)'”, 局_一次返回文本, , , , ) B ＝局_正则文本.取子匹配文本 (1, 1, ) 局_POST.添加 (“Referer”, “https://” ＋局_被替换文本＋ “com/” ＋ A, ) 局_一次协议头＝局_POST.获取协议头数据 () 局_一次返回文本＝到文本 (网页_访问 (“https://” ＋局_被替换文本＋ “com/ajaxm.php”, 1, “action=downprocess&signs=%3Fctdf&sign=” ＋ B ＋ “&ves=1&websign=&websignkey=”, , , 局_一次协议头, , , , , , 真, , )) 局_url ＝文本_取出中间文本 (局_一次返回文本, #引号＋ “dom” ＋ #引号＋ “:” ＋ #引号, #引号＋ “,” ＋ #引号＋ “url” ＋ #引号, , ) 局_sign ＝子文本替换 (局_url, “\/”, “/”, , , 真) 局_url ＝文本_取出中间文本 (局_一次返回文本, #引号＋ “url” ＋ #引号＋ “:” ＋ #引号, #引号＋ “,” ＋ #引号＋ “inf” ＋ #引号, , ) 局_二次返回文本＝子文本替换 (局_url, “\/”, “/”, , , 真) 局_直链地址＝局_sign ＋ “/file/” ＋局_二次返回文本返回 (局_直链地址) .如果真结束返回 (“”)

小马大大 · 发表于昨天 21:25

.版本 2 .支持库 spec .程序集窗口程序集_启动窗口 .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码调试输出 (蓝奏云直链 (“https://wwx.lanzout.com/i1QNp2nuaswb”, “daz6”)) 返回 (0) ' 可以根据您的需要返回任意数值 .子程序蓝奏云直链, 文本型, 公开 .参数下载连接, 文本型 .参数下载密码, 文本型, 可空 .局部变量 A, 文本型 .局部变量 B, 文本型 .局部变量局_一次协议头, 文本型 .局部变量局_一次返回文本, 文本型 .局部变量局_sign, 文本型 .局部变量局_url, 文本型 .局部变量局_二次访问地址, 文本型 .局部变量局_被替换文本, 文本型 .局部变量局_二次提交信息, 文本型 .局部变量局_二次协议头, 文本型 .局部变量局_二次返回文本, 文本型 .局部变量局_Json, 类_json .局部变量局_POST, 类_POST数据类 .局部变量局_正则文本, 正则表达式类 .局部变量局_直链地址, 文本型 .局部变量局部_返回值, 逻辑型 .如果真 (下载密码 ≠ “”) 局_一次协议头＝ “user-agent:Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/130.0.0.0 Safari/537.36 Edg/130.0.0.0” 局_一次返回文本＝到文本 (网页_访问 (下载连接, 0, , , , 局_一次协议头, , , , , , , , )) 局_sign ＝文本_取出中间文本 (局_一次返回文本, “var skdklds = '”, “';”, , 假) 局_url ＝文本_取出中间文本 (局_一次返回文本, “url : '/”, “',”, , 假) 局_二次访问地址＝下载连接局_被替换文本＝文本_取右边 (局_二次访问地址, “/”, , ) 局_二次访问地址＝文本_替换 (局_二次访问地址, , , , 局_被替换文本, 局_url, , , , , , , , ) 局_二次协议头＝ “referer:” ＋下载连接＋ #换行符＋局_一次协议头局_二次提交信息＝ “action=downprocess&sign=” ＋局_sign ＋ “&p=” ＋下载密码＋ “&kd=1” 局_二次返回文本＝到文本 (网页_访问 (局_二次访问地址, 1, 局_二次提交信息, , , 局_二次协议头, , , , , , , , )) 局_Json.解析 (局_二次返回文本, , ) 局_直链地址＝局_Json.取通用属性 (“dom”, ) ＋ “/file/” ＋局_Json.取通用属性 (“url”, ) 返回 (局_直链地址) .如果真结束 .如果真 (下载密码＝ “”) 局_被替换文本＝文本_取出中间文本 (下载连接, “https://”, “com”, , ) 局_POST.添加 (“user-agent”, “Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/100.0.4896.75 Safari/537.36”, ) 局_一次协议头＝局_POST.获取协议头数据 () 局_一次返回文本＝到文本 (网页_访问 (下载连接, 0, , , , 局_一次协议头, , , , , , 真, , )) 局_正则文本.创建 (“src=” ＋ #引号＋ “/(.*?)” ＋ #引号＋ “ frameborder”, 局_一次返回文本, , , , ) 局_正则文本.取匹配文本 (1, ) A ＝ “/” ＋局_正则文本.取子匹配文本 (1, 1, ) 局_一次返回文本＝到文本 (网页_访问 (“https://” ＋局_被替换文本＋ “com” ＋ A, 0, , , , 局_一次协议头, , , , , , 真, , )) 局_正则文本.创建 (“sign':'(.*?)'”, 局_一次返回文本, , , , ) B ＝局_正则文本.取子匹配文本 (1, 1, ) 局_POST.添加 (“Referer”, “https://” ＋局_被替换文本＋ “com/” ＋ A, ) 局_一次协议头＝局_POST.获取协议头数据 () 局_一次返回文本＝到文本 (网页_访问 (“https://” ＋局_被替换文本＋ “com/ajaxm.php”, 1, “action=downprocess&signs=%3Fctdf&sign=” ＋ B ＋ “&ves=1&websign=&websignkey=”, , , 局_一次协议头, , , , , , 真, , )) 局_url ＝文本_取出中间文本 (局_一次返回文本, #引号＋ “dom” ＋ #引号＋ “:” ＋ #引号, #引号＋ “,” ＋ #引号＋ “url” ＋ #引号, , ) 局_sign ＝子文本替换 (局_url, “\/”, “/”, , , 真) 局_url ＝文本_取出中间文本 (局_一次返回文本, #引号＋ “url” ＋ #引号＋ “:” ＋ #引号, #引号＋ “,” ＋ #引号＋ “inf” ＋ #引号, , ) 局_二次返回文本＝子文本替换 (局_url, “\/”, “/”, , , 真) 局_直链地址＝局_sign ＋ “/file/” ＋局_二次返回文本返回 (局_直链地址) .如果真结束返回 (“”)

小马大大 · 发表于昨天 21:42

.版本 2
.支持库 spec

.程序集窗口程序集_启动窗口

.子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码

调试输出 (蓝奏云直链 (“https://wwx.lanzout.com/i1QNp2nuaswb”, “daz6”))
返回 (0) ' 可以根据您的需要返回任意数值

.子程序蓝奏云直链, 文本型, 公开
.参数下载连接, 文本型
.参数下载密码, 文本型, 可空
.局部变量 A, 文本型
.局部变量 B, 文本型
.局部变量局_一次协议头, 文本型
.局部变量局_一次返回文本, 文本型
.局部变量局_sign, 文本型
.局部变量局_url, 文本型
.局部变量局_二次访问地址, 文本型
.局部变量局_被替换文本, 文本型
.局部变量局_二次提交信息, 文本型
.局部变量局_二次协议头, 文本型
.局部变量局_二次返回文本, 文本型
.局部变量局_Json, 类_json
.局部变量局_POST, 类_POST数据类
.局部变量局_正则文本, 正则表达式类
.局部变量局_直链地址, 文本型
.局部变量局部_返回值, 逻辑型

.如果真 (下载密码 ≠ “”)
局_一次协议头＝ “user-agent:Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/130.0.0.0 Safari/537.36 Edg/130.0.0.0”
局_一次返回文本＝到文本 (网页_访问 (下载连接, 0, , , , 局_一次协议头, , , , , , , , ))
局_sign ＝文本_取出中间文本 (局_一次返回文本, “var skdklds = '”, “';”, , 假)
局_url ＝文本_取出中间文本 (局_一次返回文本, “url : '/”, “',”, , 假)
局_二次访问地址＝下载连接
局_被替换文本＝文本_取右边 (局_二次访问地址, “/”, , )
局_二次访问地址＝文本_替换 (局_二次访问地址, , , , 局_被替换文本, 局_url, , , , , , , , )
局_二次协议头＝ “referer:” ＋下载连接＋ #换行符＋局_一次协议头
局_二次提交信息＝ “action=downprocess&sign=” ＋局_sign ＋ “&p=” ＋下载密码＋ “&kd=1”
局_二次返回文本＝到文本 (网页_访问 (局_二次访问地址, 1, 局_二次提交信息, , , 局_二次协议头, , , , , , , , ))
局_Json.解析 (局_二次返回文本, , )
局_直链地址＝局_Json.取通用属性 (“dom”, ) ＋ “/file/” ＋局_Json.取通用属性 (“url”, )
返回 (局_直链地址)
.如果真结束
.如果真 (下载密码＝ “”)
局_被替换文本＝文本_取出中间文本 (下载连接, “https://”, “com”, , )
局_POST.添加 (“user-agent”, “Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/100.0.4896.75 Safari/537.36”, )
局_一次协议头＝局_POST.获取协议头数据 ()
局_一次返回文本＝到文本 (网页_访问 (下载连接, 0, , , , 局_一次协议头, , , , , , 真, , ))
局_正则文本.创建 (“src=” ＋ #引号＋ “/(.*?)” ＋ #引号＋ “ frameborder”, 局_一次返回文本, , , , )
局_正则文本.取匹配文本 (1, )
A ＝ “/” ＋局_正则文本.取子匹配文本 (1, 1, )
局_一次返回文本＝到文本 (网页_访问 (“https://” ＋局_被替换文本＋ “com” ＋ A, 0, , , , 局_一次协议头, , , , , , 真, , ))
局_正则文本.创建 (“sign':'(.*?)'”, 局_一次返回文本, , , , )
B ＝局_正则文本.取子匹配文本 (1, 1, )
局_POST.添加 (“Referer”, “https://” ＋局_被替换文本＋ “com/” ＋ A, )
局_一次协议头＝局_POST.获取协议头数据 ()
局_一次返回文本＝到文本 (网页_访问 (“https://” ＋局_被替换文本＋ “com/ajaxm.php”, 1, “action=downprocess&signs=%3Fctdf&sign=” ＋ B ＋ “&ves=1&websign=&websignkey=”, , , 局_一次协议头, , , , , , 真, , ))
局_url ＝文本_取出中间文本 (局_一次返回文本, #引号＋ “dom” ＋ #引号＋ “:” ＋ #引号, #引号＋ “,” ＋ #引号＋ “url” ＋ #引号, , )
局_sign ＝子文本替换 (局_url, “\/”, “/”, , , 真)
局_url ＝文本_取出中间文本 (局_一次返回文本, #引号＋ “url” ＋ #引号＋ “:” ＋ #引号, #引号＋ “,” ＋ #引号＋ “inf” ＋ #引号, , )
局_二次返回文本＝子文本替换 (局_url, “\/”, “/”, , , 真)
局_直链地址＝局_sign ＋ “/file/” ＋局_二次返回文本
返回 (局_直链地址)
.如果真结束
返回 (“”)

360截图20250215212451937.jpg

能正常解析下载链接了

加个窗口就没反应了
360截图20250215213535753.jpg

程序.rar (817.95 KB, 下载次数: 2)

gys497 · 发表于 4 小时前

这样吗？

demo.e (958.33 KB, 下载次数: 1)

cloud99 · 发表于 3 小时前

看看里面的图就明白了https://xyds.lanzouo.com/inHT82nwux8j

补充内容 (2025-2-16 02:09):
你去看看讲的都是这个https://bbs.125.la/forum.php?mod=viewthread&tid=14798360
https://bbs.125.la/thread-14763389-1-1.html

		自动登录	找回密码
密码			注册

[易语言] 蓝奏云有密码-更新程序-自动解压替换旧程序