MP3外链播放器（无聊时写的）

2768038740

无聊时写的简单易语言程序

本人刚学易语言1个星期，刚开始一点基础都没有。这是我闲的没事做的时候写的简单易语言程序，别喷我，我才没学多久。

分享一下源码，可以播放本地文件和网络音乐视频，只不过只支持外链，下载文件的路径直接托一个文件夹进去就ok了

顺便分享一个音乐外链生成网址：http://www.170mv.com/

.版本 2

.支持库 wmp9
.支持库 xplib
.支持库 edroptarget
.支持库 internet
.支持库 shell

.程序集 窗口程序集_启动窗口

.子程序 _按钮1_被单击

.判断开始 (编辑框1.内容 ＝ “”)
    信息框 (“请输入播放地址”, 0, , )
.默认
    载入 (窗口1, , 假)
    窗口1.可视 ＝ 真
.判断结束
窗口1.播放器1.地址 ＝ 编辑框1.内容

.子程序 __启动窗口_位置被改变

位置被改变时 ()

.子程序 __启动窗口_创建完毕

XP风格 (3)
窗口1.可视 ＝ 假
吸附窗口 (_启动窗口, 窗口1)
拖放对象1.注册拖放控件 (取窗口句柄 ())


.子程序 _拖放对象1_得到文件
.参数 接收到的文件路径, 文本型

编辑框2.内容 ＝ 接收到的文件路径 ＋ “\”

.子程序 _按钮2_被单击

写到文件 (编辑框2.内容 ＋ 编辑框3.内容, HTTP读文件 (编辑框1.内容))
信息框 (“下载成功！”, 0, , )

.子程序 _按钮3_被单击

编辑框2.内容 ＝ 浏览文件夹 (“请选择下载路径”, ) ＋ “\”


外链播放器.e (22.07 KB, 下载次数: 10)

2018-2-22 14:38 上传

点击文件名下载附件
播放器
下载积分: 海币 -2

联系我时，请说是在 挂海论坛 上看到的，谢谢！

mmmmmm

模块呢？？？？

曾的叼

感谢楼主分享，顶贴支持～

2768038740

不能静态编译，模块忘发了
窗口吸附模块
xf.ec (1.93 KB, 下载次数: 5)

2018-2-22 18:18 上传

点击文件名下载附件
下载积分: 海币 -2