音乐播放器

吴亚杰

调用了精易皮肤模块
需要  媒体支持库(2022.05.20).zip
或 媒体支持库(2022.04.20).zip

优化了显示页面 不再是列表框
播放按钮没有找到图标  
播放顺序按钮 需要优化和背景不搭
源码加了注释

吴亚杰

鉴于支持库不还找   我已上传！

吴亚杰

吴亚杰 发表于 2025-12-23 14:00
鉴于支持库不还找   我已上传！

优化了一下代码
.版本 2

.DLL命令 选中, 整数型, "user32.dll", "CheckMenuItem"
    .参数 hMenu, 整数型, , 菜单句柄
    .参数 wIDCheckItem, 整数型, , 菜单编号
    .参数 wCheck, 整数型, , MF_CHECKED=8选中  MF_UNCHECKED=0 取消

.DLL命令 取子菜单句柄, 整数型, "user32.dll", "GetSubMenu"
    .参数 hMenu, 整数型
    .参数 nPos, 整数型

.DLL命令 取菜单, 整数型, "user32.dll", "GetMenu"
    .参数 hwnd, 整数型

把这段代码放到 加载皮肤 程序里面

.版本 2

.局部变量 菜单句柄, 整数型
.局部变量 子句柄, 整数型

菜单句柄 ＝ 取菜单 (_启动窗口.取窗口句柄 ())
子句柄 ＝ 取子菜单句柄 (菜单句柄, 0)
.如果真 (是否选择 ≠ 0)
    选中 (子句柄, 是否选择, 0)
.如果真结束

选中 (子句柄, 20000 ＋ 编号, 8)
是否选择 ＝ 20000 ＋ 编号


把 初始化 程序里  子菜单换行删除
.版本 2

.计次循环首 (取数组成员数 (文本), i)
    AppendMenu (格式子菜单, 0, 20000 ＋ i, 文本 )
.计次循环尾 ()
这是删除后的样子

吴亚杰

wh1234567 发表于 2025-12-22 01:13
没有搜索需要听的歌曲和下载功能？

以前抓包酷狗音乐可以下载  现在酷狗音乐需要登陆才能听  所以没有去搞

please

感谢分享，支持开源！！！

杨明煜

学习看看..！....

lassgo

播放按钮没图标？拿个喇叭贴图先顶上啊，哈哈！

吴亚杰

fb2002 发表于 2025-12-23 10:02
媒体支持库(2022.05.20).zip在哪里下载

支持库已置顶

张澈

感谢分享

fb2002

媒体支持库(2022.05.20).zip在哪里下载