短剧搜索播放wmp，API，Zyjson

yllove88

最近看短剧用手机看老是有广告 就随便写一个了  支持搜索（调用的是API）   自动播放下一集（没有判定最后一集播放完的处理）  反正写着玩的

调用的模块  精益模块   Zyjson模块  wmp静态类模块

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
歌曲播放器_WMP播放器类	WMP播放器类
歌曲播放器_WMP播放器控制类	WMP播放器控制类
单集地址	文本型	0

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

歌曲播放器_WMP播放器类.方法_创建 (外形框1.取窗口句柄 (), 2, 2, 外形框1.宽度, 外形框1.高度, 0)

子程序名	返回值类型	公开	备 注
网页访问	文本型
参数名	类 型	参考	可空	数组	备 注
网页	文本型
协议	整数型

变量名	类 型	静态	数组	备 注
网址	文本型
方式	整数型
协议头	类_POST数据类
提交协议头	文本型
结果	字节集
返回	文本型

网址 ＝ 网页
方式 ＝ 协议
网页_访问S (网址, 方式, , , , 提交协议头, , , , , , , , , , , 结果, , , , )
返回 ＝ 到文本 (编码转换 (结果, #编码_UTF_8, #编码_GB18030, ))
返回 (返回)

子程序名	返回值类型	公开	备 注
_按钮_搜索_被单击

搜索短剧 (编辑框_短剧名称.内容)

子程序名	返回值类型	公开	备 注
搜索短剧	文本型
参数名	类 型	参考	可空	数组	备 注
关键词	文本型

变量名	类 型	静态	数组	备 注
网页	文本型
j	zyJsonDocument
数量	整数型
i	整数型
文本	文本型
索引	整数型

网页 ＝ 网页访问 (“https://www.hhlqilongzhu.cn/api/duanju_fanqie.php?name=” ＋ 编码_URL编码 (关键词, , 真), 0)
如果 (j.解析 (网页))
数量 ＝ j.取成员数 (“data”)
如果 (数量 ＝ 0)
提示框 (“没有搜索到数据哦！”)
返回 (“”)
超级列表框_短剧列表.全部删除 ()
计次循环首 (数量, i)
索引 ＝ 超级列表框_短剧列表.插入表项 (, , , , , )
超级列表框_短剧列表.置标题 (索引, 0, 到文本 (i))
超级列表框_短剧列表.置标题 (索引, 3, 编码_usc2到ansi (j.取文本 (“data[” ＋ 到文本 (i － 1) ＋ “].book_id”, )))
超级列表框_短剧列表.置标题 (索引, 1, j.取文本 (“data[” ＋ 到文本 (i － 1) ＋ “].title”, ))
超级列表框_短剧列表.置标题 (索引, 2, j.取文本 (“data[” ＋ 到文本 (i － 1) ＋ “].type”, ))
计次循环尾 ()
返回 (文本)


提示框 (“返回Json解析失败”)
返回 (“”)

子程序名	返回值类型	公开	备 注
_编辑框_短剧名称_鼠标左键被按下	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

编辑框_短剧名称.内容 ＝ “”

子程序名	返回值类型	公开	备 注
_超级列表框_短剧列表_被双击	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

' 输出调试文本 (超级列表框_短剧列表.取标题 (超级列表框_短剧列表.现行选中项, 2))
如果 (超级列表框_短剧列表.取标题 (超级列表框_短剧列表.现行选中项, 3) ＝ “”)
提示框 (“没有选中任何短剧”)
短剧集数 (超级列表框_短剧列表.取标题 (超级列表框_短剧列表.现行选中项, 3))

子程序名	返回值类型	公开	备 注
短剧集数	文本型
参数名	类 型	参考	可空	数组	备 注
关键词	文本型

变量名	类 型	静态	数组	备 注
网页	文本型
j	zyJsonDocument
数量	整数型
i	整数型
文本	文本型
索引	整数型

网页 ＝ 网页访问 (“https://www.hhlqilongzhu.cn/api/duanju_fanqie.php?book_id=” ＋ 编码_URL编码 (关键词, , 真), 0)
如果 (j.解析 (网页))
数量 ＝ j.取成员数 (“data”)
如果 (数量 ＝ 0)
提示框 (“没有搜索到数据哦！”)
返回 (“”)
超级列表框_短剧集数.全部删除 ()
计次循环首 (数量, i)
索引 ＝ 超级列表框_短剧集数.插入表项 (, , , , , )
超级列表框_短剧集数.置标题 (索引, 0, j.取文本 (“data[” ＋ 到文本 (i － 1) ＋ “].title”, ))
超级列表框_短剧集数.置标题 (索引, 1, j.取文本 (“data[” ＋ 到文本 (i － 1) ＋ “].url_mp4”, ))
计次循环尾 ()
返回 (文本)


提示框 (“返回Json解析失败”)
返回 (“”)

子程序名	返回值类型	公开	备 注
_超级列表框_短剧集数_被双击	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

如果 (超级列表框_短剧集数.取标题 (超级列表框_短剧集数.现行选中项, 1) ＝ “”)
提示框 (“没有选中任何集数”, , , , )
歌曲播放器_WMP播放器类.写_属性_地址 (超级列表框_短剧集数.取标题 (超级列表框_短剧集数.现行选中项, 1))

子程序名	返回值类型	公开	备 注
_超级列表框_短剧集数_当前表项被改变

子程序名	返回值类型	公开	备 注
__启动窗口_将被销毁

歌曲播放器_WMP播放器控制类.方法_停止 ()

子程序名	返回值类型	公开	备 注
_时钟1_周期事件

如果 (歌曲播放器_WMP播放器类.读_属性_状态 () ＝ “已停止”)
超级列表框_短剧集数.现行选中项 ＝ 超级列表框_短剧集数.现行选中项 ＋ 1
歌曲播放器_WMP播放器类.写_属性_地址 (超级列表框_短剧集数.取标题 (超级列表框_短剧集数.现行选中项, 1))

i支持库列表	支持库注释
iconv	编码转换支持库
iext	扩展界面支持库一

.版本 2<br /> .支持库 iconv<br /> .支持库 iext<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 歌曲播放器_WMP播放器类, WMP播放器类<br /> .程序集变量 歌曲播放器_WMP播放器控制类, WMP播放器控制类<br /> .程序集变量 单集地址, 文本型, , "0"<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 歌曲播放器_WMP播放器类.方法_创建 (外形框1.取窗口句柄 (), 2, 2, 外形框1.宽度, 外形框1.高度, 0)<br /> <br /> .子程序 网页访问, 文本型<br /> .参数 网页, 文本型<br /> .参数 协议, 整数型<br /> .局部变量 网址, 文本型<br /> .局部变量 方式, 整数型<br /> .局部变量 协议头, 类_POST数据类<br /> .局部变量 提交协议头, 文本型<br /> .局部变量 结果, 字节集<br /> .局部变量 返回, 文本型<br /> <br /> 网址 ＝ 网页<br /> 方式 ＝ 协议<br /> 网页_访问S (网址, 方式, , , , 提交协议头, , , , , , , , , , , 结果, , , , )<br /> 返回 ＝ 到文本 (编码转换 (结果, #编码_UTF_8, #编码_GB18030, ))<br /> 返回 (返回)<br /> <br /> .子程序 _按钮_搜索_被单击<br /> <br /> 搜索短剧 (编辑框_短剧名称.内容)<br /> <br /> <br /> <br /> .子程序 搜索短剧, 文本型<br /> .参数 关键词, 文本型<br /> .局部变量 网页, 文本型<br /> .局部变量 j, zyJsonDocument<br /> .局部变量 数量, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 文本, 文本型<br /> .局部变量 索引, 整数型<br /> <br /> 网页 ＝ 网页访问 (“https://www.hhlqilongzhu.cn/api/duanju_fanqie.php?name=” ＋ 编码_URL编码 (关键词, , 真), 0)<br /> .如果 (j.解析 (网页))<br />     数量 ＝ j.取成员数 (“data”)<br /> <br />     .如果 (数量 ＝ 0)<br />         提示框 (“没有搜索到数据哦！”)<br />         返回 (“”)<br />     .否则<br />         超级列表框_短剧列表.全部删除 ()<br />         .计次循环首 (数量, i)<br />             索引 ＝ 超级列表框_短剧列表.插入表项 (, , , , , )<br />             超级列表框_短剧列表.置标题 (索引, 0, 到文本 (i))<br />             超级列表框_短剧列表.置标题 (索引, 3, 编码_usc2到ansi (j.取文本 (“data[” ＋ 到文本 (i － 1) ＋ “].book_id”, )))<br />             超级列表框_短剧列表.置标题 (索引, 1, j.取文本 (“data[” ＋ 到文本 (i － 1) ＋ “].title”, ))<br />             超级列表框_短剧列表.置标题 (索引, 2, j.取文本 (“data[” ＋ 到文本 (i － 1) ＋ “].type”, ))<br />         .计次循环尾 ()<br />         返回 (文本)<br />     .如果结束<br /> <br /> <br /> .否则<br />     提示框 (“返回Json解析失败”)<br />     返回 (“”)<br /> .如果结束<br /> <br /> <br /> .子程序 _编辑框_短剧名称_鼠标左键被按下, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> <br /> 编辑框_短剧名称.内容 ＝ “”<br /> <br /> .子程序 _超级列表框_短剧列表_被双击, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> <br /> ' 输出调试文本 (超级列表框_短剧列表.取标题 (超级列表框_短剧列表.现行选中项, 2))<br /> .如果 (超级列表框_短剧列表.取标题 (超级列表框_短剧列表.现行选中项, 3) ＝ “”)<br />     提示框 (“没有选中任何短剧”)<br /> .否则<br />     短剧集数 (超级列表框_短剧列表.取标题 (超级列表框_短剧列表.现行选中项, 3))<br /> <br /> .如果结束<br /> <br /> <br /> <br /> <br /> <br /> .子程序 短剧集数, 文本型<br /> .参数 关键词, 文本型<br /> .局部变量 网页, 文本型<br /> .局部变量 j, zyJsonDocument<br /> .局部变量 数量, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 文本, 文本型<br /> .局部变量 索引, 整数型<br /> <br /> 网页 ＝ 网页访问 (“https://www.hhlqilongzhu.cn/api/duanju_fanqie.php?book_id=” ＋ 编码_URL编码 (关键词, , 真), 0)<br /> .如果 (j.解析 (网页))<br />     数量 ＝ j.取成员数 (“data”)<br /> <br />     .如果 (数量 ＝ 0)<br />         提示框 (“没有搜索到数据哦！”)<br />         返回 (“”)<br />     .否则<br />         超级列表框_短剧集数.全部删除 ()<br />         .计次循环首 (数量, i)<br />             索引 ＝ 超级列表框_短剧集数.插入表项 (, , , , , )<br />             超级列表框_短剧集数.置标题 (索引, 0, j.取文本 (“data[” ＋ 到文本 (i － 1) ＋ “].title”, ))<br />             超级列表框_短剧集数.置标题 (索引, 1, j.取文本 (“data[” ＋ 到文本 (i － 1) ＋ “].url_mp4”, ))<br />         .计次循环尾 ()<br />         返回 (文本)<br />     .如果结束<br /> <br /> <br /> .否则<br />     提示框 (“返回Json解析失败”)<br />     返回 (“”)<br /> .如果结束<br /> <br /> <br /> .子程序 _超级列表框_短剧集数_被双击, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> <br /> .如果 (超级列表框_短剧集数.取标题 (超级列表框_短剧集数.现行选中项, 1) ＝ “”)<br />     提示框 (“没有选中任何集数”, , , , )<br /> .否则<br />     歌曲播放器_WMP播放器类.写_属性_地址 (超级列表框_短剧集数.取标题 (超级列表框_短剧集数.现行选中项, 1))<br /> <br /> .如果结束<br /> <br /> <br /> <br /> <br /> <br /> <br /> .子程序 _超级列表框_短剧集数_当前表项被改变<br /> <br /> <br /> <br /> .子程序 __启动窗口_将被销毁<br /> <br /> 歌曲播放器_WMP播放器控制类.方法_停止 ()<br /> <br /> .子程序 _时钟1_周期事件<br /> <br /> .如果 (歌曲播放器_WMP播放器类.读_属性_状态 () ＝ “已停止”)<br />     超级列表框_短剧集数.现行选中项 ＝ 超级列表框_短剧集数.现行选中项 ＋ 1<br />     歌曲播放器_WMP播放器类.写_属性_地址 (超级列表框_短剧集数.取标题 (超级列表框_短剧集数.现行选中项, 1))<br /> .否则<br /> <br /> .如果结束

dwcq

kuangshen1 发表于 2024-12-1 00:58
我没那些模块能不能给个成品

跟他发一样，纯源码自动播放下一集，给你看吧，论坛下载不了，放网盘下载吧 https://dwcq.lanzouo.com/i209y2grsksh

  

判断 (播放器1.播放状态 ＝ 3)  ' 正在播放
如果真 (全屏 ＝ 1)
播放器1.全屏模式 ＝ 真
总在最前 ＝ 真
总在最前 ＝ 假
全屏 ＝ 0

判断 (键代码 ＝ #左光标键 )
控制.快退 ()
判断 (键代码 ＝ #右光标键 )
控制.快进 ()
判断 (键代码 ＝ #空格键 )
播停 ＝ 取反 (播停)
如果 (播停)
控制.暂停 ()
控制.播放 ()

i支持库列表	支持库注释
wmp9	Windows媒体播放器

.版本 2<br /> .支持库 wmp9<br /> <br /> .判断 (播放器1.播放状态 ＝ 3)  ' 正在播放<br />     .如果真 (全屏 ＝ 1)<br />         播放器1.全屏模式 ＝ 真<br />         总在最前 ＝ 真<br />         总在最前 ＝ 假<br />         全屏 ＝ 0<br />     .如果真结束<br /> <br /> .版本 2<br /> .支持库 wmp9<br /> <br /> .判断开始 (键代码 ＝ #左光标键)<br />     控制.快退 ()<br /> .判断 (键代码 ＝ #右光标键)<br />     控制.快进 ()<br /> .判断 (键代码 ＝ #空格键)<br />     播停 ＝ 取反 (播停)<br />     .如果 (播停)<br />         控制.暂停 ()<br />     .否则<br />         控制.播放 ()<br />     .如果结束<br /> <br /> .默认<br /> <br /> .判断结束

一粒红尘

三针科兴  前来报到  

wuqingg

一粒红尘 发表于 2024-11-30 16:56
三针科兴  前来报到

我北京生物

jysoft2022

谢谢分享

441209945

下载不了

pipicool

学习一下

ldy520

感谢分享 支持下

ipkiller

下载不了

wmv520

谢谢分享

dwcq

支持开源~！感谢分享