短剧搜索播放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 /> .判断结束

yllove88

gongyugang 发表于 2024-12-26 11:47
https://www.hhlqilongzhu.cn/api/duanju_fanqie.php?name=接口好像失效了，大佬能不能更新一个 ...

可以正常使用的


{
    "code": 200,
    "msg": "搜索成功 - 番茄/蛋花/西瓜/悟空/常读/红果 聚合短剧",
    "data": [
        {
            "book_id": "7446637157470440510",
            "title": "重生宠妾进阶录",
            "author": "裴怀瑾,沈琬之",
            "type": "古风权谋·重生·全50集",
            "cover": "https://p3-reading-sign.fqnovelpic.com/novel-pic/909a558ec8f4a7da82f4676f272384af~tplv-snk2bdmkp8-superreso-double-rz:600:0.image?lk3s=ae45642e&x-expires=1740379215&x-signature=5AgSBomQiJsgwFXFvXoANhbZVhQ%3D",
            "intro": "沈府闺房里，因身材极其标致，一脸黑斑的庶女沈琬之被嬷嬷选中，成为了沈家嫡女——世子妃沈舒容的通房丫头。传闻，因幼时约定，赵王府世子裴怀瑾对沈舒容十分宠爱，即便是其无法生育，他也许诺不会再去纳妾。因此，在未来的日子里，沈琬之将代替沈舒容承担起与裴怀瑾繁衍子嗣的任务，而对此，她不由得感到无比兴奋，因为这意味着，她终于获得了向嫡姐沈舒容复仇的机会。"
        },
        {
            "book_id": "7449216769811549208",
            "title": "提款机不当了，校草全家急疯了",
            "author": "江凌云,江心瑶",
            "type": "总裁·现代言情·全67集",
            "cover": "https://p3-reading-sign.fqnovelpic.com/novel-pic/b6a36c6e5f3d4b356d49a542d12f6ca4~tplv-snk2bdmkp8-superreso-double-rz:600:0.image?lk3s=ae45642e&x-expires=1740379215&x-signature=t5RVoKmw8n5Flyb3rCpCNNQLUfE%3D",
            "intro": "恋爱脑江心瑶重生了，再次面对上一世夺她家财害她性命的心上人，江心瑶只冷笑一声“看这一世我怎么玩死你！”大仇得报，江心瑶也收获了真正的爱情，可她怎么也没想到，那个痴心的他，竟是京圈太子爷！"
        },

gongyugang

dwcq 发表于 2024-12-1 06:27
跟他发一样，纯源码自动播放下一集，给你看吧，论坛下载不了，放网盘下载吧 https://dwcq.lanzouo.com/i20 ...

求新接口源码，https://www.hhlqilongzhu.cn/api/duanju_fanqie.php?name=已经失效了

gongyugang

https://www.hhlqilongzhu.cn/api/duanju_fanqie.php?name=接口好像失效了，大佬能不能更新一个

alpc

dwcq 发表于 2024-12-1 06:27
跟他发一样，纯源码自动播放下一集，给你看吧，论坛下载不了，放网盘下载吧 https://dwcq.lanzouo.com/i20 ...

大哥能改成一份PHP源码吗？

alpc

dwcq 发表于 2024-12-1 06:27
跟他发一样，纯源码自动播放下一集，给你看吧，论坛下载不了，放网盘下载吧 https://dwcq.lanzouo.com/i20 ...

牛鼻PULS，支持支持

teachuser

感谢分享，很给力！~

我错了

很好很好，感谢分享

WSW120

谢谢分享

WSW120

谢谢分享

gongyugang

没有模块啊