软件免费网络验证 微云笔记验证

malin158

        支持开源~！感谢分享

wuqingg

就怕刚做好发给客户，TX更新了

cqcc

一会儿我看看

帝释天2017

回复看看吧

Suky

我不知道哪里没搞明白，我这里一直是json解析错误
有空再研究，玩去了

Suky

子程序      取微云笔记_EX

  

判断 (是否为空 (pwd))
default_pwd ＝ “null”
default_pwd ＝ “\” ＋ #引号 ＋ “abcdef” ＋ “\” ＋ #引号

.版本 2<br /> <br /> .判断开始 (是否为空 (pwd))<br />     default_pwd ＝ “null”<br /> .默认<br />     default_pwd ＝ “\” ＋ #引号 ＋ “abcdef” ＋ “\” ＋ #引号

判断流程底下那条分支的代码没对
“abcdef”应该是参数2才对吧？

徐达

.版本 2
.支持库 iext
.支持库 HtmlView
.支持库 spec
.支持库 OPenGL

.程序集 窗口程序集_启动窗口
.程序集变量 是否开启, 文本型
.程序集变量 版本, 文本型
.程序集变量 最新版本, 文本型
.程序集变量 更新链接, 文本型
.程序集变量 激活码, 文本型
.程序集变量 激活码字数, 整数型
.程序集变量 n, 整数型
.程序集变量 硬盘特征, 整数型
.程序集变量 日期, 文本型
.程序集变量 读取日期, 文本型
.程序集变量 日期转换, 整数型
.程序集变量 日期转换1, 整数型

.子程序 __启动窗口_创建完毕

' 取微云笔记_EX (“ThayrBPl”, “abcdef”)  ' ThayrBPl 请替换为自己的微云笔记id
透明标签1.标题 ＝ 到文本 (取硬盘特征字 ())
版本 ＝ “1.0”
是否开启 ＝ 取微云笔记_EX (“iTJ24Tc4”, “abcdef”)  ' 读取是否开放，iTJ24Tc4 请替换为自己的微云笔记id
.如果 (是否开启 ＝ “开启”)  ' 验证软件是否对外开放
    最新版本 ＝ 取微云笔记_EX (“85YisTFd”, “abcdef”)  ' 读取是否最新版本，85YisTFd 请替换为自己的微云笔记id
    .如果 (版本 ＝ 最新版本)  ' 验证是否最新版本
        编辑框1.内容 ＝ 取微云笔记_EX (“ThayrBPl”, “abcdef”)  ' 读取注册会员和到期信息，ThayrBPl 请替换为自己的微云笔记id

    .否则
        信息框 (“有新版本发布请先更新！”, 0, , )
        更新链接 ＝ 取微云笔记_EX (“kEbYYRNv”, “abcdef”)  ' 读取更新版本下载链接，kEbYYRNv 请替换为自己的微云笔记id
        超文本浏览框1.地址 ＝ 更新链接  ' 跳转新版本下载链接
    .如果结束

.否则
    信息框 (“软件暂未开放！”, 0, , )
    结束 ()
.如果结束


.子程序 取微云笔记_EX, 文本型
.参数 key, 文本型, , 分享链接末尾的id。例如链接”https://share.weiyun.com/BVnPXaO4“id则为”BVnPXaO4“。
.参数 pwd, 文本型, 可空
.局部变量 url, 文本型
.局部变量 default_pwd, 文本型
.局部变量 body, 文本型
.局部变量 data, 文本型
.局部变量 json, 类_json
.局部变量 html_content, 文本型

url ＝ “https://share.weiyun.com/webapp/json/weiyunShareNoLogin/WeiyunShareView?g_tk=0&_” ＋ 时间_取现行时间戳 ()
.判断开始 (是否为空 (pwd))
    default_pwd ＝ “null”
.默认
    default_pwd ＝ “\” ＋ #引号 ＋ “abcdef” ＋ “\” ＋ #引号
.判断结束
body ＝ 文本_替换 (#body, , , 真, “#SEQ#”, 时间_取现行时间戳 (假) ＋ 文本_取随机数字 (4, ), “#SHARE_KEY#”, key, “#SHARE_PWD#”, default_pwd, , , , )
data ＝ 到文本 (编码_编码转换对象 (网页_访问_对象 (url, 1, body, “wyctoken=0”, , “content-type: application/json;charset=UTF-8”, , , , , , , , , , , , , ), , , ))
.如果真 (取反 (json.解析 (data, , )))
    返回 (“json 解析失败”)
.如果真结束
返回 (网页_取文本_dom (json.取通用属性 (“data['rsp_body']['RspMsg_body']['note_list'][0]['html_content']”, )))

.子程序 _按钮1_被单击
.局部变量 找到位置, 整数型


找到位置 ＝ 寻找文本 (编辑框1.内容, 透明标签1.标题, n ＋ 1, 假)
.如果 (找到位置 ＝ -1)
    信息框 (“激活码错误！”, 0, , )
    n ＝ 0  ' 加上这个可以循环找
.否则

    调试输出 (找到位置)
    编辑框1.起始选择位置 ＝ 文本_取长度ex (取文本左边 (编辑框1.内容, 找到位置)) － 1
    编辑框1.被选择字符数 ＝ 文本_取长度ex (透明标签1.标题)
    编辑框1.获取焦点 ()
    n ＝ 找到位置
    ' 激活成功！
    n ＝ 0
    日期 ＝ 时间_格式化 (取现行时间 (), “yyyyMMdd”, , , )  ' 为保证严谨性可取网络时间
    读取日期 ＝ 文本_取出中间文本 (编辑框1.内容, 透明标签1.标题 ＋ “-”, “-”, , )
    日期转换 ＝ 到整数 (读取日期)
    日期转换1 ＝ 到整数 (日期)
    日期转换1 ＝ 日期转换1 － 日期转换

    .如果 (日期转换1 ＞ 99)  ' 读取笔记到期时间减去本地时间大于30天就过期
        信息框 (到文本 (日期转换1) ＋ “ - 该机器已过期请续费！”, 0, , )

    .否则
        信息框 (到文本 (日期转换1) ＋ “ - 用户：” ＋ 透明标签1.标题 ＋ “正常！”, 0, , )
    .如果结束




    .如果 (是否为双字节字符 (编辑框1.内容, 找到位置))
        n ＝ n ＋ 1

    .否则

    .如果结束

.如果结束