易语言思奔音乐播放器源码

系统结构:取网页元素,导入,导出,加入歌曲,填写信息,播放状态,开启加载,取IES对象,取IES句柄,彗星取光标处句柄,彗星取窗口类名,ObjectFromLresult,RegisterWindowMessageA,SendMessageTimeoutA,FindWindowExA,SetCapture,ReleaseCapture,GetCursorPos,WindowFromPoint,GetClassName,GetWindowRect,

======窗口程序集1
           |  |
           |  |------ _图片框2_鼠标左键被按下
           |  |
           |  |------ _图片框2_鼠标左键被放开
           |  |
           |  |------ _图片框2_鼠标位置被移动
           |  |
           |  |------ 取网页元素
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ 导入
           |  |
           |  |------ 导出
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ 加入歌曲
           |  |
           |  |------ 填写信息
           |  |
           |  |------ _地址编辑框_获得焦点
           |  |
           |  |------ _按钮2_被单击
           |  |
           |  |------ _按钮3_被单击
           |  |
           |  |------ _按钮4_被单击
           |  |
           |  |------ _列表框1_列表项被选择
           |  |
           |  |------ _列表框1_双击选择
           |  |
           |  |------ _按钮5_被单击
           |  |
           |  |------ _播放器1_状态被改变
           |  |
           |  |------ 播放状态
           |  |
           |  |------ _时钟2_周期事件
           |  |
           |  |------ _单选框1_被单击
           |  |
           |  |------ _单选框2_被单击
           |  |
           |  |------ 开启加载
           |  |
           |  |------ _时钟1_周期事件
           |  |
           |  |------ __启动窗口_托盘事件
           |  |
           |  |------ __启动窗口_位置被改变
           |  |
           |  |------ _上一首_被选择
           |  |
           |  |------ _下一首_被选择
           |  |
           |  |------ _播放_被选择
           |  |
           |  |------ _暂停_被选择
           |  |
           |  |------ _静音_被选择
           |  |
           |  |------ _退出_被选择
           |  |
           |  |
======取句柄程序集
           |  |
           |  |------ 取IES对象
           |  |
           |  |------ 取IES句柄
           |  |
           |  |------ 彗星取光标处句柄
           |  |
           |  |------ 彗星取窗口类名
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   ObjectFromLresult
           |  |
           |  |---[dll]------   RegisterWindowMessageA
           |  |
           |  |---[dll]------   SendMessageTimeoutA
           |  |
           |  |---[dll]------   FindWindowExA
           |  |
           |  |---[dll]------   SetCapture
           |  |
           |  |---[dll]------   ReleaseCapture
           |  |
           |  |---[dll]------   GetCursorPos
           |  |
           |  |---[dll]------   WindowFromPoint
           |  |
           |  |---[dll]------   GetClassName
           |  |
           |  |---[dll]------   GetWindowRect

调用的DLL命令:

.DLL命令 ObjectFromLresult, 整数型, "OLEACC.DLL", , , 　
    .参数 lResult, 整数型
    .参数 riid, 字节集
    .参数 wParam, 整数型
    .参数 ppvObject, 对象

.DLL命令 RegisterWindowMessageA, 整数型, , , , 获取分配给一个字串标识符的消息编号　&C000 到 &FFFF之间的一个消息编号。零意味着出错
    .参数 lpString, 文本型, , 注册消息的名字;  

.DLL命令 SendMessageTimeoutA, 整数型
    .参数 MSG, 整数型
    .参数 hwnd, 整数型
    .参数 wParam, 整数型
    .参数 lParam, 整数型
    .参数 fuFlags, 整数型
    .参数 uTimeout, 整数型
    .参数 lpdwResult, 整数型, 传址

.DLL命令 FindWindowExA, 整数型
    .参数 hWnd1, 整数型
    .参数 hWnd2, 整数型
    .参数 lpsz1, 文本型
    .参数 lpsz2, 文本型

.DLL命令 SetCapture, 整数型, , , , 将鼠标捕获设置到指定的窗口。在鼠标按钮按下的时候，这个窗口会为当前应用程序或整个系统接收所有鼠标输入
    .参数 hwnd, 整数型, , 要接收所有鼠标输入的窗口的句柄

.DLL命令 ReleaseCapture, 整数型, , , , 为当前的应用程序释放鼠标捕获

.DLL命令 GetCursorPos, 整数型, , , , 获取鼠标指针的当前位置
    .参数 lpPoint, Point

.DLL命令 WindowFromPoint, 整数型, , "WindowFromPoint"
    .参数 x, 整数型
    .参数 y, 整数型

.DLL命令 GetClassName, 整数型, , "GetClassNameA"
    .参数 hwnd
    .参数 lpClassName, 文本型
    .参数 nMaxCount

.DLL命令 GetWindowRect, 整数型, , "GetWindowRect", 公开
    .参数 hwnd, 整数型
    .参数 lpRect, RECT