酷狗直链计算的代码
此功能需要加载精易模块5.6
.版本 2 .支持库 RegEx .支持库 iext3 .支持库 dp1 .程序集 窗口程序集_启动窗口 .子程序 JSON转义字符解码, 文本型 .参数 解密文本, 文本型 .局部变量 正则表达, 正则表达式 .局部变量 搜索结果, 搜索结果, , "0" .局部变量 转换结果, 文本型 .局部变量 文本, 文本型 .局部变量 i, 整数型 文本 = 解密文本 .如果真 (文本 ≠ “”) 正则表达.创建 (“\\u([0-9a-z]{4})”, ) 搜索结果 = 正则表达.搜索全部 (解密文本) .计次循环首 (取数组成员数 (搜索结果), i) 转换结果 = 编码_usc2到ansi (搜索结果 [i].取子匹配文本 (解密文本, 1, )) 文本 = 子文本替换 (文本, “\u” + 搜索结果 [i].取子匹配文本 (解密文本, 1, ), 转换结果, , , 真) .计次循环尾 () .如果真结束 返回 (文本) .子程序 __启动窗口_创建完毕 .局部变量 分组框X, 分组框, , "0" .局部变量 i, 整数型 _启动窗口.宽度 = 800 _启动窗口.高度 = 460 高级选择夹1.左边 = 0 高级选择夹1.顶边 = 0 高级选择夹1.宽度 = _启动窗口.宽度 - 6 - 高级选择夹1.左边 高级选择夹1.高度 = _启动窗口.高度 - 32 - 高级选择夹1.顶边 加入成员 (分组框X, 分组框A) 加入成员 (分组框X, 分组框B) .计次循环首 (取数组成员数 (分组框X), i) 分组框X [i].左边 = 2 分组框X [i].顶边 = 24 分组框X [i].宽度 = 高级选择夹1.宽度 - 2 - 分组框X [i].左边 分组框X [i].高度 = 高级选择夹1.高度 - 2 - 分组框X [i].顶边 .计次循环尾 () .子程序 _按钮A1_被单击 编辑框A4.内容 = 取数据摘要 (到字节集 (编辑框A1.内容 + 编辑框A2.内容)) .子程序 _按钮A2_被单击 编辑框A4.内容 = JSON转义字符解码 (编码_URL解码 (网页_访问S (“http://www.kugou.com/fm/app/i/?cmd=1&uid=” + 编辑框A1.内容 + “&key=” + 编辑框A4.内容, 1, “fmtype0=3&fmcount=1&fmid0=” + 编码_URL编码 (编辑框A3.内容, , 真), , , “Referer:http://web.kugou.com/flash/webKugou.swf?d=1500000000999”), 真)) .子程序 _按钮B1_被单击 .如果 (选择框B1.选中) 编辑框B6.内容 = 取数据摘要 (到字节集 (编辑框B1.内容 + 编辑框B2.内容 + 编辑框B3.内容 + 编辑框B4.内容 + 编辑框B5.内容)) .否则 编辑框B6.内容 = 取数据摘要 (到字节集 (编辑框B1.内容 + 编辑框B2.内容)) .如果结束 .子程序 _按钮B2_被单击 编辑框B6.内容 = JSON转义字符解码 (编码_URL解码 (网页_访问S (“http://trackercdn.kugou.com/i/v2/?cmd=23&pid=6&appid=” + 编辑框B3.内容 + “&hash=” + 到大写 (编辑框B1.内容) + “&module=&cdnBackup=1&behavior=play&key=” + 编辑框B6.内容, 1, , “”, , “Referer:http://web.kugou.com/flash/webKugou.swf?d=1500000000999”), 真)) .子程序 _编辑框B1_失去焦点 编辑框B1.内容 = 到大写 (编辑框B1.内容)
运行结果:
总结
以上就是这篇文章的全部内容了,希望本文的内容对大家的学习或者工作具有一定的参考学习价值,谢谢大家对亿速云的支持。如果你想了解更多相关内容请查看下面相关链接
免责声明:本站发布的内容(图片、视频和文字)以原创、转载和分享为主,文章观点不代表本网站立场,如果涉及侵权请联系站长邮箱:is@yisu.com进行举报,并提供相关证据,一经查实,将立刻删除涉嫌侵权内容。