媒体播放1停止 子程序 _打开_被选择 通用对话框1过滤器 ＝ “媒体文件*wav*mid*avi*mpg*mp3*wmv*rm”如果真 通用对话框1打开 ＝ 真媒体播放1打开 通用对话框1文件名如果 媒体播放1是否视频 ＝ 真_启动窗口标题 ＝ “视频文件”否则。

#39 参数一是MP3的播放进度，进度条的位置将实时同步参数一 #39 子程序 _暂停按钮_被单击 暂停播放MP3 子程序 _继续按钮_被单击 继续播放MP3 子程序 _时钟1_周期事件 如果真 取MP3播放状态 ＝ 0_启动窗口标题 ＝ “等待播放”如果真结束 如果真 取MP3播放状态 ＝。

给你一个思路，如果你的网页不动，用 鼠标_记位 这个函数包含在“精易模块ec”中记录继续播放按钮的坐标，再用 鼠标_归位 还原 鼠标位置，至于点击，用模拟按键即可。

一个超文本浏览框 超文本浏览框地址=”这里键入视频网页的链接”。

建立如图所标组件，3个标签组件，2个编辑框组件，2个按钮组件 插入窗口组件，并且添加如图所标组件，1个图片框组件，1个时钟组件启动窗口程序集写入以下代码 在窗口1程序集写入以下代码 版本 2程序集 窗口程序集_窗口1程序集变量 a1， 文本型， ， quot0quot程序集变量 a2， 整数型程序集变量 a3。

先这样设置右键窗口 插入新窗口单击窗口1超文本浏览框铺满全部如图再进入_启动窗口如图双击按，编写代码输入载入 “窗口1”， ， 真再打开窗口1如图双击淡蓝色部分 输入超文本浏览框1地址 ＝ “。

直接用超文本浏览框显示指定视频地址不给滚动条，大小设置为视频播放的大小，调整网页显示位置或者调整超文本浏览框的位置为负数直到整个窗口只能看到视频播放的位置。

用播放器这组件，在易语言外部组件里找到它假设你有名叫 3avi 的视频放在D盘里视频文件夹那代码就这样写播放器1地址 = “D\视频\3avi”另外你可以在播放器组件的属性里设置你想要的效果。

程序集 窗口程序集1 子程序 _拖放对象1_得到文件 参数 接收到的文件路径， 文本型 局部变量 文件名， 文本型， ， quot0quot文件名 ＝ 分割文本 接收到的文件路径， #换行符， 1媒体播放1打开 到文本 文件名子程序 __启动窗口_创建完毕 拖放对象1注册拖放控件 _启动窗口取窗口句柄。

LONG nLogo#39 参数#39 nLogo #39 输入参数 一个整数类型的变量，指示要设置的图像，取值如下#39 1 隐藏任何 Logo 图片 #39 0 显示 APlayer 引擎的默认图片 #39 intHBITMAP 一个用户自定义的位图句柄，用户可以定制自己的个性化 Logo 位图。

弹出窗口代码 ltSCRIPT LANGUAGE=quotjavascriptquot lt！ windowopen #39pagehtml#39 ltSCRIPT 因为这是一段javascripts代码，所以它们应该放在ltSCRIPT LANGUAGE=quotjavascriptquot标签和之间lt！ 和 是对一些版本低的浏览器起作用，在这些老浏览器中不会将标签中的代码作为文本显示出来要养成。

版本 2 #39 语法#39 HRESULT SetCustomLogoLONG nLogo#39 参数#39 nLogo #39 输入参数 一个整数类型的变量，指示要设置的图像，取值如下#39 1 隐藏任何 Logo 图片 #39 0 显示 APlayer 引擎的默认图片 #39 intHBITMAP 一个用户自定义的位图句柄，用户可以定制自己的个性化 Logo 位图。

给你做了个源码调用的是播放器控件不过你也可以选择有点复杂的flash播放器不过要有flash控件10版支持库如果安装有flash可以直接调用，不过flash播放器我没做过，也没办法讲太多源码网页链接。

看代码版本 2 支持库 wmp9 程序集 窗口程序集1 程序集变量 程序集_播放器媒体， 播放器媒体 子程序 _按钮1_被单击 播放器1地址 ＝ 取运行目录 ＋ “\视频wmv” #39 这里给他一个windows播放器可以播放的文件 子程序 _播放器1_播放状态被改变 参数 新的状态， 整数型。

版本 2 支持库 spec 程序集 窗口程序集1 子程序 __启动窗口_首次激活 图片框1图片 ＝ #图片1 延迟5000 _启动窗口可视 ＝假 载入窗口1， ， 真 追问 我没弄 图片框 回答 弄一个就好了。

首先要确定你播放的视频文件格式是不是被支持，易语言有自带的视频播放器源码，你用她的试试看，如果可以，就是你的代码有错误或用的组件不被支持，可以多试试别的东西。

1播放器1地址=“这里填MP4音乐文件”3版本 2 局部变量 i 计次循环首 列表框1取项目数 ， i列表框1置项目文本 i － 1， 子文本替换 列表框1取项目文本 i － 1， 取文本左边 列表框1取项目文本 i － 1， 取文本长度 列表框1取项目文本 － 倒找。

视频播放器可以创建WMPlayer 对象 然后就可以编译了系统必须有WMPlayer播放器版本 2 程序集变量 wm， 对象 子程序 __启动窗口_创建完毕 wm ＝ CreateWMPlayer 标签1取窗口句柄 ， 0， 0， 标签1宽度， 标签1高度wm写属性 “URL”， “播放文件路径”子程序 CreateWMPlayer。