易语言朗读源码

❶ 易语言视频播放器源码

易语言的支持库例程里面有，具体打开易语言
如下：
.版本 2
.支持库 eMMedia
.支持库 iext2

.程序集 窗口程序集1

.子程序 _播放按钮_被单击

媒体播放1.播放 (-1)
媒体播放1.取长度 ()

.子程序 _暂停按钮_被单击

.如果 (媒体播放1.取状态 () ＝ 1)
媒体播放1.暂停 ()
.否则
媒体播放1.播放 (媒体播放1.取位置 ())
.如果结束

.子程序 _停止按钮_被单击

媒体播放1.停止 ()

.子程序 _打开_被选择

通用对话框1.过滤器 ＝ “媒体文件|*.wav;*.mid;*.avi;*.mpg;*.mp3;*.wmv;*.rm”
.如果真 (通用对话框1.打开 () ＝ 真)
媒体播放1.打开 (通用对话框1.文件名)
.如果 (媒体播放1.是否视频 () ＝ 真)
_启动窗口.标题 ＝ “视频文件”
.否则
_启动窗口.标题 ＝ “声音文件”
.如果结束

.如果真结束

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

播放按钮.图片 ＝ 取图片组图片 (#图片组, 0, 取默认底色 ())
暂停按钮.图片 ＝ 取图片组图片 (#图片组, 1, 取默认底色 ())
停止按钮.图片 ＝ 取图片组图片 (#图片组, 2, 取默认底色 ())

.子程序 _选择框1_被单击

.如果 (选择框1.选中 ＝ 真)
媒体播放1.置句柄 (分组框1.取窗口句柄 ())
.否则
媒体播放1.置句柄 (0)
.如果结束

.子程序 _媒体信息_被选择
.局部变量 信息文本, 文本型

信息文本 ＝ “比率:” ＋ 到文本 (媒体播放1.取比率 ()) ＋ #换行符 ＋ “总时间:” ＋ 到文本 (媒体播放1.取总时间 ()) ＋ #换行符 ＋ “长度:” ＋ 到文本 (媒体播放1.取长度 ()) ＋ #换行符 ＋ “播放位置:” ＋ 到文本 (媒体播放1.取位置 ()) ＋ #换行符 ＋ “MCI别名:” ＋ 媒体播放1.取别名 ()
信息框 (信息文本, 0, )

❷ 求教如何用易语言制作 读取网页源代码的工具并把某一行 显示到编辑框

首先引入“精易模块”，灶高没有到网上自己下载下。

• 读源代码：文本型变量 = 到文本(网页_访问("这里写网址"))

• 提取代码：结果 = 文本_取出中间文本虚羡(文本型变量,"隐誉尺_gamepath = "+#引号,#引号+",")

• 最后：消息框(结果)

❸ 谁给我个易语言MP3播放器源码啊 要进度条和显示歌词和列表

.版本 2
.支持库 edroptarget
.支持库 eMMedia
.程序集 窗口程序集_启动窗口
.程序集变量 文件, 文本型
.程序集变量 类型, 整数型
.子程序 _播放按钮_被单击
播放MP3 (-1, 列表框1.取项目文本 (列表框1.现行选中项))
同步播放MP3 (列表框1.取项目文本 (列表框1.现行选中项), 0, 标签1, )
文件 ＝ 列表框1.取项目文本 (列表框1.现行选中项)
类型 ＝ _专辑图片_文件名取专辑图片类型 (文件)
_专辑图片_文件名取专辑图片_到图片框 (文件, 图片框1, 类型)
.子程序 _按钮1_被单击
通用对话框1.打开 ()
列表框1.加入项目 (通用对话框1.文件名, )
' ------------------------------------------------------------------------------------
' 打开对话框，然后在列表框中加入对话框中选择的文件
.子程序 _标签1_反馈事件, 整数型
.参数 参数一, 整数型
.参数 参数二, 整数型
进度条1.位置 ＝ 参数一
' ------------------------------------------------------------------------------------------------------
' 参数一是MP3的播放进度，进度条的位置将实时同步参数一
' ：)
.子程序 _暂停按钮_被单击
暂停播放MP3 ()
.子程序 _继续按钮_被单击
继续播放MP3 ()
.子程序 _时钟1_周期事件
.如果真 (取MP3播放状态 () ＝ 0)
_启动窗口.标题 ＝ “等待播放”
.如果真结束
.如果真 (取MP3播放状态 () ＝ -1)
_启动窗口.标题 ＝ “暂停” ＋ “ ” ＋ 到文本 (进度条1.位置) ＋ “%”
.如果真结束
.如果真 (取MP3播放状态 () ＝ 1)
_启动窗口.标题 ＝ 到文本 (“播放中” ＋ “ ” ＋ 到文本 (进度条1.位置) ＋ “%”)
.如果真结束
' ------------------------------------------------------------------------------------------------------------------------
' 每1毫秒都会检测上面“如果真”的代码，真的真将会执行代码
.子程序 __启动窗口_位置被改变
.如果真 (_启动窗口.位置 ＝ 2)
_启动窗口.可视 ＝ 假
置托盘图标 (#托盘, _启动窗口.标题)
.如果真结束
' -------------------------------------------------------------------------------------------------------------------------
' 如果窗口被最小化，将会看不到窗口，程序将会放到托盘里
.子程序 __启动窗口_托盘事件
.参数 操作类型, 整数型
.如果真 (操作类型 ＝ #单击左键)
_启动窗口.位置 ＝ 1
_启动窗口.可视 ＝ 真
.如果真结束
.如果真 (操作类型 ＝ #单击右键)
弹出托盘菜单 (托盘菜单)
.如果真结束
' -----------------------------------------------------------------------------------------------------------------
' 如果单击了左键，将会把窗口回复，可以看到窗口
' 如果单击了右键，将会弹出“托盘菜单”这个菜单
.子程序 _播放_被选择
播放MP3 (-1, 列表框1.取项目文本 (列表框1.现行选中项))
.子程序 _暂停_被选择
暂停播放MP3 ()
.子程序 _继续_被选择
继续播放MP3 ()
.子程序 _关闭_被选择
销毁 ()
.子程序 _恢复_被选择
_启动窗口.位置 ＝ 2
_启动窗口.可视 ＝ 真
.子程序 __启动窗口_创建完毕
.局部变量 左声道, 整数型
.局部变量 右声道, 整数型
拖放对象1.注册拖放控件 (取窗口句柄 ())
系统音量1.打开 (4)
滑块条1.最小位置 ＝ 系统音量1.取最小音量 ()
滑块条1.最大位置 ＝ 系统音量1.取最大音量 () ÷ 5
系统音量1.取音量 (左声道, 右声道)
滑块条1.位置 ＝ 左声道 ÷ 5
' -------------------------------------------------------------------------------------------------------------------------
' 来自这里 https://jingyan..com/article/0320e2c1db0a181b86507b61.html
' 注册那个命令是让窗口可以把文件拖放进来
.子程序 _拖放对象1_得到文件
.参数 接收到的文件路径, 文本型
列表框1.加入项目 (接收到的文件路径, )
' -----------------------------------------------------------------------------------------------------------------------------
' 把拖进来的文件加入到列表框里
.子程序 _图片框1_被双击, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
载入 (窗口1, _启动窗口, 真)
.子程序 _滑块条1_位置被改变
系统音量1.置音量 (滑块条1.位置 × 5, 滑块条1.位置 × 5)
' -------------------------------------------------------------------------------------------------------------
' 来自这里 https://jingyan..com/article/0320e2c1db0a181b86507b61.html

❹ 求高手给个易语言汉字转全拼，全拼转汉字的源码，谢谢

1 拼音首字母 ：取声母 取拼音
2 用时钟记时间：即
秒：第一全局变量秒（miao_temp），每过一秒就 miao_temp=miao_temp+1，。。一个+miao_temp，另外一个-miao_temp，60秒时重新开始
分：第一全局变量分（fen_temp），每过一秒就 fen_temp=fen_temp+1，。。一个+fen_temp，另外一个-fen_temp，60分时重新开始

大概思路兄弟理解？自己写，相信兄弟一定能写出来。。。