开启辅助访问 切换到宽版

精易论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

用微信号发送消息登录论坛

新人指南 邀请好友注册 - 我关注人的新帖 教你赚取精币 - 每日签到


求职/招聘- 论坛接单- 开发者大厅

论坛版规 总版规 - 建议/投诉 - 应聘版主 - 精华帖总集 积分说明 - 禁言标准 - 有奖举报

查看: 16319|回复: 136
收起左侧

[易语言纯源码] PL_自用模块v1.0.181203 百度、蓝奏云、音乐解析、影片采集、多模块整合。

[复制链接]
结帖率:67% (2/3)
发表于 2018-12-3 22:45:14 | 显示全部楼层 |阅读模式   广东省深圳市
分享源码
界面截图:
是否带模块: 纯源码
备注说明: -
本帖最后由 宇智波·佐助 于 2018-12-4 09:50 编辑

这个模块是花了我很长一段时间整理出来的,基本上95%的方法都是我自己原创摸索出来的、分享源码的目的也是希望初学编程的易友共同进步、


模块主要功能有QQ群认证、URL压缩T、0cr识别(搜狗/百度/阿里云)、百度云解析、壁纸采集、二维码生成与识别、发起QQ聊天、发起QQ群聊、检测版本更新(后台更新)、蓝奏云解析、屏幕截图、取QQ空间数据、取QQ头像、取随机段子、取唯一标识、上传图片(图床)、
搜索EXE安装包(参考Ordinary_下载器)、线程HTTP下载、一键多线程、音乐解析、
语音合成、语音识别、蓝奏云协yi、影片采集、




具体功能演示可以参考“Ordinary小助手.exe


    (出处: 精易论坛)




下载地址:https://share.weiyun.com/5ShTkjC



微信截图_20181203222401.png
微信截图_20181203222432.png

评分

参与人数 3好评 +3 精币 +4 收起 理由
hanyxiang + 1 + 2 精彩文章希望继续努力
天空飞翔 + 1 + 2 支持开源~!感谢分享
110风行天下 + 1 感谢分享,很给力!~

查看全部评分


本帖被以下淘专辑推荐:

结帖率:67% (2/3)
 楼主| 发表于 2018-12-11 12:13:54 | 显示全部楼层   广东省深圳市
在新的模块中,没有增加命令;但我增加了提示,一些演示例子。希望各位新手们可以看得懂、因为子程序比较多所以也没时间一个个标记提示、

  
' 需要运行演示子程序,请解除指定代码的屏蔽!!!!
蓝奏云_直链 = PL_蓝奏云解析 (“https://lanzoux.com/i2ilqpc”)
调试输出 (“蓝奏云_直链地址:” + 蓝奏云_直链)
调试输出 (“URL短链接:”PL_URL压缩T (蓝奏云_直链), PL_URL压缩 (“https://lanzoux.com/i2ilqpc”))
是否通过 = PL_QQ群认证 (“861203848”)  ' 演示范例
调试输出 (“是否通过:”, 是否通过)
PL_发起QQ群聊 (“861203848”)  ' 演示范例
PL_音乐解析_演示范例 ()
PL_酷狗_模块类_演示范例 ()
PL_蓝奏云_模块类_演示范例 ()
PL_阿里_Ocr高精版_演示范例 ()
PL_ico采集_演示范例 ()
百度模块类之语音合成与识别_演示范例 ()
PL_影片采集_模块类_演示范例 ()
' 后台更新演示,后台地址:http://2018k.cn
PL_检测版本更新 (“18dac500969544558c90db9ee2cbf730”, “1.0”)  ' 当版本号小于后台版本号时触发更新、



i支持库列表   支持库注释   
spec特殊功能支持库

  
窗口程序集名保 留  保 留备 注
模块测试及演示   
子程序名返回值类型公开备 注
PL_音乐解析_演示范例 演示范例 ——
变量名类 型静态数组备 注
匹配数量整数型 
音乐解析PL_音乐解析_数据类0
i整数型 
匹配数量 = PL_音乐解析 (“我已经”, , 音乐解析)
计次循环首 (匹配数量, i)
调试输出 (i, 音乐解析 [i].ID, 音乐解析 [i].作者, 音乐解析 [i].歌曲名)
调试输出 (“— ” + 音乐解析 [i].直链)
计次循环尾 ()
子程序名返回值类型公开备 注
PL_酷狗_模块类_演示范例 演示范例 ——
变量名类 型静态数组备 注
酷狗PL_酷狗_模块类 
歌曲列表PL_酷狗_搜索_数据类0
解析PL_酷狗_解析_数据类 
解析_数组PL_酷狗_解析_数据类0
匹配数量整数型 
i整数型 
' 方法一:搜索歌曲,取列表、
匹配数量 = 酷狗.搜索 (“答案”, 歌曲列表, , )
计次循环首 (匹配数量, i)
调试输出 (i, 歌曲列表 [i].ID, 歌曲列表 [i].歌名, 歌曲列表 [i].地址)
' 可继续取歌曲详细、
酷狗.音乐解析 (歌曲列表 [i].ID, 歌曲列表 [i].专辑ID, 解析)
调试输出 (“— ” + 酷狗.取_时长 (解析.时长, , ), 解析.直链)
计次循环尾 ()
' 方法二:获取榜单详细、
计次循环首 (酷狗.获取榜单 (“酷狗TOP500”, 解析_数组, “1”), i)
调试输出 (i, 解析_数组 [i].ID, 解析_数组 [i].歌名, 解析_数组 [i].直链)
计次循环尾 ()
子程序名返回值类型公开备 注
PL_蓝奏云_模块类_演示范例  
变量名类 型静态数组备 注
蓝奏云PL_蓝奏云_模块类 
文件采集PL_蓝奏云_文件采集_数据类0
i整数型 
url文本型 
文件PL_蓝奏云_文件加载_数据类0
计次循环首 (蓝奏云.文件采集 (“https://lanzoux.com/b356974”, 文件采集), i)
调试输出 (i, 文件采集 [i].文件名, 文件采集 [i].大小, 文件采集 [i].时间, 文件采集 [i].地址)
计次循环尾 ()
' ‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘
' 蓝奏云.登录 (“Ordinary”, “密码”, )
' url = 蓝奏云.获取首页地址 ()
. ' 计次循环首 (蓝奏云.加载_目录 (url, 文件), i)
' 调试输出 (i, 文件 [i].id, 文件 [i].名, 文件 [i].类型)
. ' 计次循环尾 ()
子程序名返回值类型公开备 注
PL_阿里_Ocr高精版_演示范例  
变量名类 型静态数组备 注
路径文本型 
url文本型 
匹配数量整数型 
OcrPL_Ocr_数据类0
i整数型 
路径 = “C:\Users\Administrator\Downloads\666.jpg”  ' 路径为图片类型、
url = PL_上传图片 (读入文件 (路径))  ' 将图片上传到图床、
调试输出 (“图床地址:” + url)
匹配数量 = PL_阿里_Ocr高精版 (url, “7edc5be3895842e09573ac616244cba7”, Ocr)  ' 我的次数用完啦,需要在阿里云购买0元500次、阿里OCR高精版 输入key
计次循环首 (匹配数量, i)
调试输出 (i, Ocr [i].识别结果, Ocr [i].置信度 + “%”)
计次循环尾 ()
子程序名返回值类型公开备 注
PL_ico采集_演示范例 可能凉了~
变量名类 型静态数组备 注
匹配数量整数型 
i整数型 
地址文本型0
匹配数量 = PL_ico采集 (“微信”, 到文本 (i), 地址)
目录_创建 (目录_取特定目录 ()“ico采集”)
计次循环首 (匹配数量, i)
调试输出 (“正在写入:桌面\”“ico采集”“\svg_”到文本 (i)“_”时间_取现行时间戳 ()“.png”)
写到文件 (目录_取特定目录 ()“ico采集”“\svg_”到文本 (i)“_”时间_取现行时间戳 ()“.png”, PL_svg转PNG (地址 [i]))
计次循环尾 ()
子程序名返回值类型公开备 注
百度模块类之语音合成与识别_演示范例 可以用、百度AI:http://ai.baidu.com/
变量名类 型静态数组备 注
百度PL_百度_模块类 
Access_Token文本型 
合成音频字节集 
路径文本型 
识别结果文本型 
Access_Token = 百度.获取Access_Token (“s2UQntTZ0K4T1Q72eY5ASt4R”, “8pSrtf7hjNREDulyyOoaIspRXAff1Gsr”)
合成音频 = 百度.语音合成 (“面向开发者及企业开放110多项全球领先的AI能力和软硬一体组件,并提供 EasyDL定制化图像识别、对话系统开发平台UNIT、自定义模板OCR等AI定制化平台,为上下游合作伙伴搭建了展示与交易平台-AI市场。百度AI开放平台全力帮助各行业快速、高效地实现AI升级。”, 4, 6, Access_Token)
路径 = 目录_取特定目录 ()“demo.wav”
写到文件 (路径, 合成音频)
调试输出 (“语音已生成:” + 路径)
执行 ( #打开文件, 路径, , , )
识别结果 = 百度.语音识别 (读入文件 (路径), , Access_Token)  ' 中英文1536
调试输出 (“识别结果:” + 识别结果)
子程序名返回值类型公开备 注
PL_影片采集_模块类_演示范例  
变量名类 型静态数组备 注
zuidazyPL_影片采集_模块类 
匹配数量整数型 
资源列表PL_影片采集_搜索_数据类0
i整数型 
解析PL_影片采集_解析_数据类 
j整数型 
匹配数量 = zuidazy.搜索 (“战狼”, 资源列表)
计次循环首 (匹配数量, i)
调试输出 (资源列表 [i].首页URL)
zuidazy.解析 (资源列表 [i].首页URL, 解析)
调试输出 (解析.影片名, 解析.版本, 解析.封面url)
计次循环首 (解析.影片_数量, j)
如果真 (寻找文本 (解析.影片 [j].url, “.mp4”, , ) ≠ -1)
调试输出 (i, 解析.影片 [j].名, 解析.影片 [j].url)

计次循环尾 ()
计次循环尾 ()


i支持库列表   支持库注释   
spec特殊功能支持库
shell操作系统界面功能支持库

PL_自用模块v1.0.181210.e

988.59 KB, 下载次数: 36, 下载积分: 精币 -2 枚

模块源码

回复 支持 反对

使用道具 举报

结帖率:100% (1/1)
发表于 2021-11-1 22:57:49 高大上手机用户 | 显示全部楼层   浙江省台州市
感谢分享!精益有你更精彩!
回复 支持 反对

使用道具 举报

发表于 2021-8-18 22:57:37 | 显示全部楼层   河北省石家庄市
支持一下,感谢分享
回复 支持 反对

使用道具 举报

发表于 2021-8-16 11:21:16 | 显示全部楼层   广东省湛江市
能听解析VIP音乐吗?
回复 支持 反对

使用道具 举报

发表于 2021-8-5 22:39:52 | 显示全部楼层   陕西省安康市
WWWWWWWWWWWWWWWWWWWWWWW
回复 支持 反对

使用道具 举报

结帖率:0% (0/2)
发表于 2019-9-8 21:23:21 | 显示全部楼层   四川省成都市
11111111111111111111
回复 支持 反对

使用道具 举报

结帖率:61% (14/23)
发表于 2019-8-26 13:31:36 | 显示全部楼层   江苏省常州市
蓝奏云解析的不能用
回复 支持 反对

使用道具 举报

结帖率:100% (1/1)
发表于 2019-1-16 01:55:51 高大上手机用户 | 显示全部楼层   四川省达州市
{:3_43:}{:3_43:}{:3_51:}{:3_51:}
回复 支持 反对

使用道具 举报

结帖率:93% (14/15)

签到天数: 3 天

发表于 2018-12-17 10:39:44 | 显示全部楼层   芬兰
666感谢分享,
回复 支持 反对

使用道具 举报

结帖率:0% (0/1)
发表于 2018-12-15 21:25:41 | 显示全部楼层   浙江省宁波市
666666666666666666666
回复 支持 反对

使用道具 举报

结帖率:67% (2/3)
 楼主| 发表于 2018-12-11 12:17:26 | 显示全部楼层   广东省深圳市
本帖最后由 sj13144844970 于 2018-12-11 12:22 编辑

  • 在新的模块中,没有增加命令;但我增加了提示,一些演示例子。
  • 希望各位新手们可以看得懂、因为子程序比较多所以也没时间一个个标记提示、


  
窗口程序集名保 留  保 留备 注
模块测试及演示   
子程序名返回值类型公开备 注
PL_音乐解析_演示范例 演示范例 ——
变量名类 型静态数组备 注
匹配数量整数型 
音乐解析PL_音乐解析_数据类0
i整数型 
匹配数量 = PL_音乐解析 (“我已经”, , 音乐解析)
计次循环首 (匹配数量, i)
调试输出 (i, 音乐解析 [i].ID, 音乐解析 [i].作者, 音乐解析 [i].歌曲名)
调试输出 (“— ” + 音乐解析 [i].直链)
计次循环尾 ()
子程序名返回值类型公开备 注
PL_酷狗_模块类_演示范例 演示范例 ——
变量名类 型静态数组备 注
酷狗PL_酷狗_模块类 
歌曲列表PL_酷狗_搜索_数据类0
解析PL_酷狗_解析_数据类 
解析_数组PL_酷狗_解析_数据类0
匹配数量整数型 
i整数型 
' 方法一:搜索歌曲,取列表、
匹配数量 = 酷狗.搜索 (“答案”, 歌曲列表, , )
计次循环首 (匹配数量, i)
调试输出 (i, 歌曲列表 [i].ID, 歌曲列表 [i].歌名, 歌曲列表 [i].地址)
' 可继续取歌曲详细、
酷狗.音乐解析 (歌曲列表 [i].ID, 歌曲列表 [i].专辑ID, 解析)
调试输出 (“— ” + 酷狗.取_时长 (解析.时长, , ), 解析.直链)
计次循环尾 ()
' 方法二:获取榜单详细、
计次循环首 (酷狗.获取榜单 (“酷狗TOP500”, 解析_数组, “1”), i)
调试输出 (i, 解析_数组 [i].ID, 解析_数组 [i].歌名, 解析_数组 [i].直链)
计次循环尾 ()
子程序名返回值类型公开备 注
PL_蓝奏云_模块类_演示范例  
变量名类 型静态数组备 注
蓝奏云PL_蓝奏云_模块类 
文件采集PL_蓝奏云_文件采集_数据类0
i整数型 
url文本型 
文件PL_蓝奏云_文件加载_数据类0
计次循环首 (蓝奏云.文件采集 (“https://lanzoux.com/b356974”, 文件采集), i)
调试输出 (i, 文件采集 [i].文件名, 文件采集 [i].大小, 文件采集 [i].时间, 文件采集 [i].地址)
计次循环尾 ()
' ‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘
' 蓝奏云.登录 (“Ordinary”, “密码”, )
' url = 蓝奏云.获取首页地址 ()
. ' 计次循环首 (蓝奏云.加载_目录 (url, 文件), i)
' 调试输出 (i, 文件 [i].id, 文件 [i].名, 文件 [i].类型)
. ' 计次循环尾 ()
子程序名返回值类型公开备 注
PL_阿里_Ocr高精版_演示范例  
变量名类 型静态数组备 注
路径文本型 
url文本型 
匹配数量整数型 
OcrPL_Ocr_数据类0
i整数型 
路径 = “C:\Users\Administrator\Downloads\666.jpg”  ' 路径为图片类型、
url = PL_上传图片 (读入文件 (路径))  ' 将图片上传到图床、
调试输出 (“图床地址:” + url)
匹配数量 = PL_阿里_Ocr高精版 (url, “7edc5be3895842e09573ac616244cba7”, Ocr)  ' 我的次数用完啦,需要在阿里云购买0元500次、阿里OCR高精版 输入key
计次循环首 (匹配数量, i)
调试输出 (i, Ocr [i].识别结果, Ocr [i].置信度 + “%”)
计次循环尾 ()
子程序名返回值类型公开备 注
PL_ico采集_演示范例 可能凉了~
变量名类 型静态数组备 注
匹配数量整数型 
i整数型 
地址文本型0
匹配数量 = PL_ico采集 (“微信”, 到文本 (i), 地址)
目录_创建 (目录_取特定目录 ()“ico采集”)
计次循环首 (匹配数量, i)
调试输出 (“正在写入:桌面\”“ico采集”“\svg_”到文本 (i)“_”时间_取现行时间戳 ()“.png”)
写到文件 (目录_取特定目录 ()“ico采集”“\svg_”到文本 (i)“_”时间_取现行时间戳 ()“.png”, PL_svg转PNG (地址 [i]))
计次循环尾 ()
子程序名返回值类型公开备 注
百度模块类之语音合成与识别_演示范例 可以用、百度AI:http://ai.baidu.com/
变量名类 型静态数组备 注
百度PL_百度_模块类 
Access_Token文本型 
合成音频字节集 
路径文本型 
识别结果文本型 
Access_Token = 百度.获取Access_Token (“s2UQntTZ0K4T1Q72eY5ASt4R”, “8pSrtf7hjNREDulyyOoaIspRXAff1Gsr”)
合成音频 = 百度.语音合成 (“面向开发者及企业开放110多项全球领先的AI能力和软硬一体组件,并提供 EasyDL定制化图像识别、对话系统开发平台UNIT、自定义模板OCR等AI定制化平台,为上下游合作伙伴搭建了展示与交易平台-AI市场。百度AI开放平台全力帮助各行业快速、高效地实现AI升级。”, 4, 6, Access_Token)
路径 = 目录_取特定目录 ()“demo.wav”
写到文件 (路径, 合成音频)
调试输出 (“语音已生成:” + 路径)
执行 ( #打开文件, 路径, , , )
识别结果 = 百度.语音识别 (读入文件 (路径), , Access_Token)  ' 中英文1536
调试输出 (“识别结果:” + 识别结果)
子程序名返回值类型公开备 注
PL_影片采集_模块类_演示范例  
变量名类 型静态数组备 注
zuidazyPL_影片采集_模块类 
匹配数量整数型 
资源列表PL_影片采集_搜索_数据类0
i整数型 
解析PL_影片采集_解析_数据类 
j整数型 
匹配数量 = zuidazy.搜索 (“战狼”, 资源列表)
计次循环首 (匹配数量, i)
调试输出 (资源列表 [i].首页URL)
zuidazy.解析 (资源列表 [i].首页URL, 解析)
调试输出 (解析.影片名, 解析.版本, 解析.封面url)
计次循环首 (解析.影片_数量, j)
如果真 (寻找文本 (解析.影片 [j].url, “.mp4”, , ) ≠ -1)
调试输出 (i, 解析.影片 [j].名, 解析.影片 [j].url)

计次循环尾 ()
计次循环尾 ()


i支持库列表   支持库注释   
spec特殊功能支持库
shell操作系统界面功能支持库

QQ图片20181211121529.png
QQ图片20181211121547.png
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则 致发广告者

发布主题 收藏帖子 返回列表

sitemap| 易语言源码| 易语言教程| 易语言论坛| 易语言模块| 手机版| 广告投放| 精易论坛
拒绝任何人以任何形式在本论坛发表与中华人民共和国法律相抵触的言论,本站内容均为会员发表,并不代表精易立场!
论坛帖子内容仅用于技术交流学习和研究的目的,严禁用于非法目的,否则造成一切后果自负!如帖子内容侵害到你的权益,请联系我们!
防范网络诈骗,远离网络犯罪 违法和不良信息举报电话0663-3422125,QQ: 793400750,邮箱:wp@125.la
Powered by Discuz! X3.4 揭阳市揭东区精易科技有限公司 ( 粤ICP备12094385号-1) 粤公网安备 44522102000125 增值电信业务经营许可证 粤B2-20192173

快速回复 返回顶部 返回列表