易语言快播影音模块源码 [db:版本]

易语言快播影音模块源码

系统结构:置父窗口,取父窗口,初始化,播放,暂停,停止,取播放状态,置控制界面,取控制界面,置访问地址,取访问地址,取播放位置,置播放位置,取总时间,置音量,取量音,置静音,取静音状态,置声道,调整图像,视频框架,取播放文件路径,取播放码率,移动,取下载进度,取缓冲进度,置预冲下一个,全屏,取文件名,取下载速度,访问地址,捕获鼠标,释放鼠标,AtlAxWinInit,AtlAxGetControl,MoveWindow,CopyFileExA,创建窗口_,PathFindFileName,取客户区矩形_,FindWindow,PostMessage,FindWindowEx,寻找顶级窗口,寻找子窗口,

======程序集1
| |
| |------ _启动子程序
| |
| |------ _临时子程序
| |
| |
======快播影音
| |
| |------ _初始化
| |
| |------ _销毁
| |
| |------ 置父窗口
| |
| |------ 取父窗口
| |
| |------ 初始化
| |
| |------ 播放
| |
| |------ 暂停
| |
| |------ 停止
| |
| |------ 取播放状态
| |
| |------ 置控制界面
| |
| |------ 取控制界面
| |
| |------ 置访问地址
| |
| |------ 取访问地址
| |
| |------ 取播放位置
| |
| |------ 置播放位置
| |
| |------ 取总时间
| |
| |------ 置音量
| |
| |------ 取量音
| |
| |------ 置静音
| |
| |------ 取静音状态
| |
| |------ 置声道
| |
| |------ 调整图像
| |
| |------ 视频框架
| |
| |------ 取播放文件路径
| |
| |------ 取播放码率
| |
| |------ 移动
| |
| |------ 取下载进度
| |
| |------ 取缓冲进度
| |
| |------ 置预冲下一个
| |
| |------ 全屏
| |
| |------ 取文件名
| |
| |------ 取下载速度
| |
| |------ 访问地址
| |
| |
======调用的Dll
| |
| |---[dll]------ 捕获鼠标
| |
| |---[dll]------ 释放鼠标
| |
| |---[dll]------ AtlAxWinInit
| |
| |---[dll]------ AtlAxGetControl
| |
| |---[dll]------ MoveWindow
| |
| |---[dll]------ CopyFileExA
| |
| |---[dll]------ 创建窗口_
| |
| |---[dll]------ PathFindFileName
| |
| |---[dll]------ 取客户区矩形_
| |
| |---[dll]------ FindWindow
| |
| |---[dll]------ PostMessage
| |
| |---[dll]------ FindWindowEx
| |
| |---[dll]------ 寻找顶级窗口
| |
| |---[dll]------ 寻找子窗口

调用的DLL命令:

.支持库 eAPI

.DLL命令 捕获鼠标, 整数型, , "SetCapture"
.参数 句柄, 整数型, , 接收所有鼠标输入的窗口的句柄

.DLL命令 释放鼠标, 整数型, , "ReleaseCapture"

.DLL命令 AtlAxWinInit, , "atl.dll", "AtlAxWinInit"

.DLL命令 AtlAxGetControl, 整数型, "atl.dll", "AtlAxGetControl"
.参数 h
.参数 x, 对象

.DLL命令 MoveWindow, 整数型, "user32.dll", "MoveWindow"
.参数 窗口句柄, 整数型, , hwnd，欲移动窗口的句柄
.参数 左侧位置, 整数型, , x，窗口新的左侧位置
.参数 顶部位置, 整数型, , y，窗口新的顶部位置
.参数 新宽度, 整数型, , nWidth，窗口的新宽度
.参数 高宽度, 整数型, , nHeight，窗口的高宽度
.参数 是否重画, 逻辑型, , bRepaint，如窗口此时应重画，则设为TRUE（非零）

.DLL命令 CopyFileExA, 逻辑型
.参数 lpExistingFileName, 文本型
.参数 lpNewFileName, 文本型
.参数 lpProgressRoutine, 子程序指针
.参数 lpData
.参数 pbCancel
.参数 dwCopyFlags

.DLL命令 创建窗口_, 整数型, "user32.dll", "CreateWindowExA"
.参数 扩展风格, 整数型
.参数 类名, 文本型, , 刚才注册的类名
.参数 窗口标题, 文本型
.参数 风格, 整数型
.参数 屏幕横坐标, 整数型
.参数 屏幕纵坐标, 整数型
.参数 宽度, 整数型
.参数 高度, 整数型
.参数 父窗口句柄, 整数型, , 没有就写0
.参数 菜单句柄, 整数型
.参数 模块句柄, 整数型
.参数 参数, 整数型

.DLL命令 PathFindFileName, 文本型, "shlwapi.dll", "PathFindFileNameA"
.参数 pszPath, 文本型

.DLL命令 取客户区矩形_, 整数型, "user32", "GetClientRect"
.参数 窗口句柄, 整数型
.参数 矩形区域, 矩形数据

.DLL命令 FindWindow, 整数型, , "FindWindowA"
.参数 窗口类名, 文本型
.参数 窗口标题, 文本型

.DLL命令 PostMessage, , , "PostMessageA", , 向指定窗口句柄发送消息
.参数 h, 整数型
.参数 m, 整数型
.参数 p, 整数型
.参数 p, 整数型

.DLL命令 FindWindowEx, 整数型, , "FindWindowExA", , user32.dll寻找子窗口_
.参数 窗口句柄1, 整数型, , 在其中查找子的父窗口。如设为零，表示使用桌面窗口（通常说的顶级窗口都被认为是桌面的子窗口，所以也会对它们进行查找）
.参数 窗口句柄2, 整数型, , 从这个窗口后开始查找。这样便可利用对FindWindowEx的多次调用找到符合条件的所有子窗口。如设为零，表示从第一个子窗口开始搜索
.参数 欲搜索的类名1, 文本型, , 欲搜索的类名。“”表示忽略
.参数 欲搜索的类名2, 文本型, , 欲搜索的类名。“”表示忽略;

.DLL命令 寻找顶级窗口, 整数型, "user32", "FindWindowA", , 寻找窗口列表中第一个符合指定条件的顶级窗口（在vb里使用：FindWindow最常见的一个用途是获得ThunderRTMain类的隐藏窗口的句柄；该类是所有运行中vb执行程序的一部分。获得句柄后，可用api函数GetWindowText取得这个窗口的名称；该名也是应用程序的标题）　找到窗口的句柄。如未找到相符窗口，则返回零。会设置GetLastError
.参数 窗口类名, 文本型, , 指向包含了窗口类名的空中止（C语言）字串的指针；或设为零，表示接收任何类
.参数 窗口文本, 文本型, , 指向包含了窗口文本（或标签）的空中止（C语言）字串的指针；或设为零，表示接收任何窗口标题 示例Dim hw&, cnt&Dim rttitle As * 256hw& = FindWindow("ThunderRT5Main", vbNullString) ' ThunderRTMain under VB4cnt = GetWindowText(hw&, rttitle, 255)MsgBox Left, 0, "RTMain title";

.DLL命令 寻找子窗口, 整数型, "user32", "FindWindowExA", , 在窗口列表中寻找与指定条件相符的第一个子窗口　找到的窗口的句柄。如未找到相符窗口，则返回零。会设置GetLastError
.参数 窗口句柄1, 整数型, , 在其中查找子的父窗口。如设为零，表示使用桌面窗口（通常说的顶级窗口都被认为是桌面的子窗口，所以也会对它们进行查找）
.参数 窗口句柄2, 整数型, , 从这个窗口后开始查找。这样便可利用对FindWindowEx的多次调用找到符合条件的所有子窗口。如设为零，表示从第一个子窗口开始搜索
.参数 欲搜索的类名1, 文本型, , 欲搜索的类名。零表示忽略
.参数 欲搜索的类名2, 文本型, , 欲搜索的类名。零表示忽略;