吾爱分享资源网

 找回密码
 立即注册
快捷导航
搜索
查看: 206|回复: 0

办公室自动播放系统易语言源码下载

[复制链接]

1668

主题

1790

帖子

1万

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
18390
金币
8276
发表于 2020-11-29 23:51:36 | 显示全部楼层 |阅读模式
请点击此处下载

查看状态:需购买或无权限

您的用户组是:游客

提取密码:5ifx88 
下载次数:1  文件大小:0 Bytes 
下载权限: 不限 以上或 VIP会员   [加入VIP]   [获取金币]  [免费赚金币]



部分代码如下
  
窗口程序集名保 留  保 留备 注
窗口程序集1   
子程序名返回值类型公开备 注
__启动窗口_可否被关闭逻辑型 
_启动窗口.可视 = 假
置托盘图标 ( #程序图标, “单击左键后弹出程序!”)
返回 ()
子程序名返回值类型公开备 注
__启动窗口_创建完毕  
变量名类 型静态数组备 注
窗口句柄文本型  
开机标识文本型  
' 乐DUI_界面.创建 (_启动窗口, 600, 480, 真, 假, 真, 真, 真, 真, , )  ' 大家看着设,背景图和背景色可空
状态条_底部.加入栏目 (“ 作者:肖小洋”, 100, , , )
状态条_底部.加入栏目 (“ 制作时间:2011年10月28日 ”, 160, , , )
状态条_底部.加入栏目 (“  ”, 1600, , , )
_读音乐 ()
置托盘图标 ( #程序图标, “单击左键后弹出程序,右击弹出菜单!”)
如果真 (文件是否存在 (“D:\办公音乐系统\办公音乐系统V1.2.exe”))
创建目录 (“D:\办公音乐系统”)
写到文件 (“D:\办公音乐系统\办公音乐系统V1.2.exe”, #主程序 )
' 易语言学习资源、源码下载站:[url]www.5ifx88.com[/url]
子程序名返回值类型公开备 注
_超级列表框_上午选项_右键单击表项  
弹出菜单 (歌曲编辑, , )
子程序名返回值类型公开备 注
_按钮_上午上班_添加音乐_被单击  
变量名类 型静态数组备 注
文件名文本型  
文本位置整数型  
文件名称文本型  
通用对话框_上午上班.打开 ()
文件名 = 通用对话框_上午上班.文件名
如果 (超级列表框_上午上班.现行选中项 = 0)
文本位置 = 倒找文本 (文件名, “\”, , )
文件名称 = 取文本右边 (文件名, 取文本长度 (文件名) - 文本位置)
' 输出调试文本 (“文本位置:” + 取文本右边 (文件名, 取文本长度 (文件名) - 文本位置))
超级列表框_上午上班.置标题 (超级列表框_上午上班.现行选中项, , 文件名称)
写配置项 (取运行目录 ()“\information.ini”, “上班音乐”, “上班音乐一”, 文件名)
如果 (超级列表框_上午上班.现行选中项 = 1)
文本位置 = 倒找文本 (文件名, “\”, , )
文件名称 = 取文本右边 (文件名, 取文本长度 (文件名) - 文本位置)
' 输出调试文本 (“文本位置:” + 取文本右边 (文件名, 取文本长度 (文件名) - 文本位置))
超级列表框_上午上班.置标题 (超级列表框_上午上班.现行选中项, , 文件名称)
' 超级列表框_上午上班.置标题 (超级列表框_上午上班.现行选中项, , 文件名)
写配置项 (取运行目录 ()“\information.ini”, “上班音乐”, “上班音乐二”, 文件名)
如果 (超级列表框_上午上班.现行选中项 = 2)
文本位置 = 倒找文本 (文件名, “\”, , )
文件名称 = 取文本右边 (文件名, 取文本长度 (文件名) - 文本位置)
' 输出调试文本 (“文本位置:” + 取文本右边 (文件名, 取文本长度 (文件名) - 文本位置))
超级列表框_上午上班.置标题 (超级列表框_上午上班.现行选中项, , 文件名称)
' 超级列表框_上午上班.置标题 (超级列表框_上午上班.现行选中项, , 文件名)
写配置项 (取运行目录 ()“\information.ini”, “上班音乐”, “上班音乐三”, 文件名)
如果 (超级列表框_上午上班.现行选中项 = 3)
文本位置 = 倒找文本 (文件名, “\”, , )
文件名称 = 取文本右边 (文件名, 取文本长度 (文件名) - 文本位置)
' 输出调试文本 (“文本位置:” + 取文本右边 (文件名, 取文本长度 (文件名) - 文本位置))
超级列表框_上午上班.置标题 (超级列表框_上午上班.现行选中项, , 文件名称)
' 超级列表框_上午上班.置标题 (超级列表框_上午上班.现行选中项, , 文件名)
写配置项 (取运行目录 ()“\information.ini”, “上班音乐”, “上班音乐四”, 文件名)
如果 (超级列表框_上午上班.现行选中项 = 4)
文本位置 = 倒找文本 (文件名, “\”, , )
文件名称 = 取文本右边 (文件名, 取文本长度 (文件名) - 文本位置)
' 输出调试文本 (“文本位置:” + 取文本右边 (文件名, 取文本长度 (文件名) - 文本位置))
超级列表框_上午上班.置标题 (超级列表框_上午上班.现行选中项, , 文件名称)
' 超级列表框_上午上班.置标题 (超级列表框_上午上班.现行选中项, , 文件名)
写配置项 (取运行目录 ()“\information.ini”, “上班音乐”, “上班音乐五”, 文件名)
如果 (超级列表框_上午上班.现行选中项 = 5)
文本位置 = 倒找文本 (文件名, “\”, , )
文件名称 = 取文本右边 (文件名, 取文本长度 (文件名) - 文本位置)
' 输出调试文本 (“文本位置:” + 取文本右边 (文件名, 取文本长度 (文件名) - 文本位置))
超级列表框_上午上班.置标题 (超级列表框_上午上班.现行选中项, , 文件名称)
' 超级列表框_上午上班.置标题 (超级列表框_上午上班.现行选中项, , 文件名)
写配置项 (取运行目录 ()“\information.ini”, “上班音乐”, “上班音乐六”, 文件名)
' 易语言学习资源、源码下载站:[url]www.5ifx88.com[/url]






子程序名返回值类型公开备 注
_超级列表框_上午上班_被双击逻辑型 
参数名类 型参考可空数组备 注
横向位置整数型   
纵向位置整数型   
功能键状态整数型   
变量名类 型静态数组备 注
文件名文本型  
文件名 = 超级列表框_上午上班.取晏 (超级列表框_上午上班.现行选中项, )
如果 (文件名 = “请双击添加音乐”)
_按钮_上午上班_添加音乐_被单击 ()
_按钮_上午上班_被单击 ()

子程序名返回值类型公开备 注
_按钮_上午上班_被单击  
上班音乐一 = 读配置项 (取运行目录 ()“\information.ini”, “上班音乐”, “上班音乐一”, )
上班音乐二 = 读配置项 (取运行目录 ()“\information.ini”, “上班音乐”, “上班音乐二”, )
上班音乐三 = 读配置项 (取运行目录 ()“\information.ini”, “上班音乐”, “上班音乐三”, )
上班音乐四 = 读配置项 (取运行目录 ()“\information.ini”, “上班音乐”, “上班音乐四”, )
上班音乐五 = 读配置项 (取运行目录 ()“\information.ini”, “上班音乐”, “上班音乐五”, )
上班音乐六 = 读配置项 (取运行目录 ()“\information.ini”, “上班音乐”, “上班音乐六”, )
' 易语言学习资源、源码下载站:[url]www.5ifx88.com[/url]
播放MP3 (1, 上班音乐一, 上班音乐二, 上班音乐三, 上班音乐四, 上班音乐五, 上班音乐六)
子程序名返回值类型公开备 注
_读音乐  
如果 (读配置项 (取运行目录 ()“\information.ini”, “上班音乐”, “上班音乐一”, )“”)
上班音乐一 = 读配置项 (取运行目录 ()“\information.ini”, “上班音乐”, “上班音乐一”, )
文本位置 = 倒找文本 (上班音乐一, “\”, , )
文件程序名 = 取文本右边 (上班音乐一, 取文本长度 (上班音乐一) - 文本位置)
超级列表框_上午上班.置标题 (0, , 文件程序名)


如果 (读配置项 (取运行目录 ()“\information.ini”, “上班音乐”, “上班音乐二”, )“”)
上班音乐二 = 读配置项 (取运行目录 ()“\information.ini”, “上班音乐”, “上班音乐二”, )
文本位置 = 倒找文本 (上班音乐二, “\”, , )
文件程序名 = 取文本右边 (上班音乐二, 取文本长度 (上班音乐二) - 文本位置)
超级列表框_上午上班.置标题 (1, , 文件程序名)

如果 (读配置项 (取运行目录 ()“\information.ini”, “上班音乐”, “上班音乐三”, )“”)
上班音乐三 = 读配置项 (取运行目录 ()“\information.ini”, “上班音乐”, “上班音乐三”, )
文本位置 = 倒找文本 (上班音乐三, “\”, , )
文件程序名 = 取文本右边 (上班音乐三, 取文本长度 (上班音乐三) - 文本位置)
超级列表框_上午上班.置标题 (2, , 文件程序名)
' 易语言学习资源、源码下载站:[url]www.5ifx88.com[/url]
如果 (读配置项 (取运行目录 ()“\information.ini”, “上班音乐”, “上班音乐四”, )“”)
上班音乐四 = 读配置项 (取运行目录 ()“\information.ini”, “上班音乐”, “上班音乐四”, )
文本位置 = 倒找文本 (上班音乐四, “\”, , )
文件程序名 = 取文本右边 (上班音乐四, 取文本长度 (上班音乐四) - 文本位置)
超级列表框_上午上班.置标题 (3, , 文件程序名)

如果 (读配置项 (取运行目录 ()“\information.ini”, “上班音乐”, “上班音乐五”, )“”)
上班音乐五 = 读配置项 (取运行目录 ()“\information.ini”, “上班音乐”, “上班音乐五”, )
文本位置 = 倒找文本 (上班音乐五, “\”, , )
文件程序名 = 取文本右边 (上班音乐五, 取文本长度 (上班音乐五) - 文本位置)
超级列表框_上午上班.置标题 (4, , 文件程序名)

如果 (读配置项 (取运行目录 ()“\information.ini”, “上班音乐”, “上班音乐六”, )“”)
上班音乐六 = 读配置项 (取运行目录 ()“\information.ini”, “上班音乐”, “上班音乐六”, )
文本位置 = 倒找文本 (上班音乐六, “\”, , )
文件程序名 = 取文本右边 (上班音乐五, 取文本长度 (上班音乐六) - 文本位置)
超级列表框_上午上班.置标题 (5, , 文件程序名)



如果 (读配置项 (取运行目录 ()“\information.ini”, “中休音乐”, “中休音乐一”, )“”)
中休音乐一 = 读配置项 (取运行目录 ()“\information.ini”, “中休音乐”, “中休音乐一”, )
文本位置 = 倒找文本 (中休音乐一, “\”, , )
文件程序名 = 取文本右边 (中休音乐一, 取文本长度 (中休音乐一) - 文本位置)
超级列表框_上午中休.置标题 (0, , 文件程序名)

如果 (读配置项 (取运行目录 ()“\information.ini”, “中休音乐”, “中休音乐二”, )“”)
中休音乐二 = 读配置项 (取运行目录 ()“\information.ini”, “中休音乐”, “中休音乐二”, )
文本位置 = 倒找文本 (中休音乐二, “\”, , )
文件程序名 = 取文本右边 (中休音乐二, 取文本长度 (中休音乐二) - 文本位置)
超级列表框_上午中休.置标题 (1, , 文件程序名)

如果 (读配置项 (取运行目录 ()“\information.ini”, “中休音乐”, “中休音乐三”, )“”)
中休音乐三 = 读配置项 (取运行目录 ()“\information.ini”, “中休音乐”, “中休音乐三”, )
文本位置 = 倒找文本 (中休音乐三, “\”, , )
文件程序名 = 取文本右边 (中休音乐三, 取文本长度 (中休音乐三) - 文本位置)
超级列表框_上午中休.置标题 (2, , 文件程序名)

如果 (读配置项 (取运行目录 ()“\information.ini”, “中休音乐”, “中休音乐四”, )“”)
中休音乐四 = 读配置项 (取运行目录 ()“\information.ini”, “中休音乐”, “中休音乐四”, )
文本位置 = 倒找文本 (中休音乐四, “\”, , )
文件程序名 = 取文本右边 (中休音乐四, 取文本长度 (中休音乐四) - 文本位置)
超级列表框_上午中休.置标题 (3, , 文件程序名)

如果 (读配置项 (取运行目录 ()“\information.ini”, “中休音乐”, “中休音乐五”, )“”)
中休音乐五 = 读配置项 (取运行目录 ()“\information.ini”, “中休音乐”, “中休音乐五”, )
文本位置 = 倒找文本 (中休音乐五, “\”, , )
文件程序名 = 取文本右边 (中休音乐五, 取文本长度 (中休音乐五) - 文本位置)
超级列表框_上午中休.置标题 (4, , 文件程序名)

如果 (读配置项 (取运行目录 ()“\information.ini”, “中休音乐”, “中休音乐六”, )“”)
中休音乐六 = 读配置项 (取运行目录 ()“\information.ini”, “中休音乐”, “中休音乐六”, )
文本位置 = 倒找文本 (中休音乐六, “\”, , )
文件程序名 = 取文本右边 (中休音乐六, 取文本长度 (中休音乐六) - 文本位置)
超级列表框_上午中休.置标题 (5, , 文件程序名)

如果 (读配置项 (取运行目录 ()“\information.ini”, “下班音乐”, “下班音乐一”, )“”)
下班音乐一 = 读配置项 (取运行目录 ()“\information.ini”, “下班音乐”, “下班音乐一”, )
_上午下班读音乐_获取文件名 (下班音乐一, 0)

如果 (读配置项 (取运行目录 ()“\information.ini”, “下班音乐”, “下班音乐二”, )“”)
下班音乐二 = 读配置项 (取运行目录 ()“\information.ini”, “下班音乐”, “下班音乐二”, )
_上午下班读音乐_获取文件名 (下班音乐二, 1)

如果 (读配置项 (取运行目录 ()“\information.ini”, “下班音乐”, “下班音乐三”, )“”)
下班音乐三 = 读配置项 (取运行目录 ()“\information.ini”, “下班音乐”, “下班音乐三”, )
_上午下班读音乐_获取文件名 (下班音乐三, 2)

如果 (读配置项 (取运行目录 ()“\information.ini”, “下班音乐”, “下班音乐四”, )“”)
下班音乐四 = 读配置项 (取运行目录 ()“\information.ini”, “下班音乐”, “下班音乐四”, )
_上午下班读音乐_获取文件名 (下班音乐四, 3)

如果 (读配置项 (取运行目录 ()“\information.ini”, “下班音乐”, “下班音乐五”, )“”)
下班音乐五 = 读配置项 (取运行目录 ()“\information.ini”, “下班音乐”, “下班音乐五”, )
_上午下班读音乐_获取文件名 (下班音乐五, 4)

如果 (读配置项 (取运行目录 ()“\information.ini”, “下班音乐”, “下班音乐六”, )“”)
下班音乐六 = 读配置项 (取运行目录 ()“\information.ini”, “下班音乐”, “下班音乐六”, )
_上午下班读音乐_获取文件名 (下班音乐六, 5)

如果 (读配置项 (取运行目录 ()“\information.ini”, “上班音乐”, “上班音乐7”, )“”)
上班音乐7 = 读配置项 (取运行目录 ()“\information.ini”, “上班音乐”, “上班音乐7”, )
_下午上班读音乐_获取文件名 (上班音乐7, 0)

如果 (读配置项 (取运行目录 ()“\information.ini”, “上班音乐”, “上班音乐8”, )“”)
上班音乐8 = 读配置项 (取运行目录 ()“\information.ini”, “上班音乐”, “上班音乐8”, )
_下午上班读音乐_获取文件名 (上班音乐8, 1)

如果 (读配置项 (取运行目录 ()“\information.ini”, “上班音乐”, “上班音乐9”, )“”)
上班音乐9 = 读配置项 (取运行目录 ()“\information.ini”, “上班音乐”, “上班音乐9”, )
_下午上班读音乐_获取文件名 (上班音乐9, 2)

如果 (读配置项 (取运行目录 ()“\information.ini”, “上班音乐”, “上班音乐10”, )“”)
上班音乐10 = 读配置项 (取运行目录 ()“\information.ini”, “上班音乐”, “上班音乐10”, )
_下午上班读音乐_获取文件名 (上班音乐10, 3)

如果 (读配置项 (取运行目录 ()“\information.ini”, “上班音乐”, “上班音乐11”, )“”)
上班音乐11 = 读配置项 (取运行目录 ()“\information.ini”, “上班音乐”, “上班音乐11”, )
_下午上班读音乐_获取文件名 (上班音乐11, 4)

如果 (读配置项 (取运行目录 ()“\information.ini”, “上班音乐”, “上班音乐12”, )“”)
上班音乐12 = 读配置项 (取运行目录 ()“\information.ini”, “上班音乐”, “上班音乐12”, )
_下午上班读音乐_获取文件名 (上班音乐12, 5)

如果 (读配置项 (取运行目录 ()“\information.ini”, “中休音乐”, “中休音乐7”, )“”)
中休音乐7 = 读配置项 (取运行目录 ()“\information.ini”, “中休音乐”, “中休音乐7”, )
_下午中休读音乐_获取文件名 (中休音乐7, 0)

如果 (读配置项 (取运行目录 ()“\information.ini”, “中休音乐”, “中休音乐8”, )“”)
中休音乐8 = 读配置项 (取运行目录 ()“\information.ini”, “中休音乐”, “中休音乐8”, )
_下午中休读音乐_获取文件名 (中休音乐8, 1)

如果 (读配置项 (取运行目录 ()“\information.ini”, “中休音乐”, “中休音乐9”, )“”)
中休音乐9 = 读配置项 (取运行目录 ()“\information.ini”, “中休音乐”, “中休音乐9”, )
_下午中休读音乐_获取文件名 (中休音乐9, 2)

如果 (读配置项 (取运行目录 ()“\information.ini”, “中休音乐”, “中休音乐10”, )“”)
中休音乐10 = 读配置项 (取运行目录 ()“\information.ini”, “中休音乐”, “中休音乐10”, )
_下午中休读音乐_获取文件名 (中休音乐10, 3)

如果 (读配置项 (取运行目录 ()“\information.ini”, “中休音乐”, “中休音乐11”, )“”)
中休音乐11 = 读配置项 (取运行目录 ()“\information.ini”, “中休音乐”, “中休音乐11”, )
_下午中休读音乐_获取文件名 (中休音乐11, 4)

如果 (读配置项 (取运行目录 ()“\information.ini”, “中休音乐”, “中休音乐12”, )“”)
中休音乐12 = 读配置项 (取运行目录 ()“\information.ini”, “中休音乐”, “中休音乐12”, )
_下午中休读音乐_获取文件名 (中休音乐12, 5)

如果 (读配置项 (取运行目录 ()“\information.ini”, “下班音乐”, “下班音乐7”, )“”)
下班音乐7 = 读配置项 (取运行目录 ()“\information.ini”, “下班音乐”, “下班音乐7”, )
_下午下班读音乐_获取文件名 (下班音乐7, 0)

如果 (读配置项 (取运行目录 ()“\information.ini”, “下班音乐”, “下班音乐8”, )“”)
下班音乐8 = 读配置项 (取运行目录 ()“\information.ini”, “下班音乐”, “下班音乐8”, )
_下午下班读音乐_获取文件名 (下班音乐8, 1)

如果 (读配置项 (取运行目录 ()“\information.ini”, “下班音乐”, “下班音乐9”, )“”)
下班音乐9 = 读配置项 (取运行目录 ()“\information.ini”, “下班音乐”, “下班音乐9”, )
_下午下班读音乐_获取文件名 (下班音乐9, 2)

如果 (读配置项 (取运行目录 ()“\information.ini”, “下班音乐”, “下班音乐10”, )“”)
下班音乐10 = 读配置项 (取运行目录 ()“\information.ini”, “下班音乐”, “下班音乐10”, )
_下午下班读音乐_获取文件名 (下班音乐10, 3)

如果 (读配置项 (取运行目录 ()“\information.ini”, “下班音乐”, “下班音乐11”, )“”)
下班音乐11 = 读配置项 (取运行目录 ()“\information.ini”, “下班音乐”, “下班音乐11”, )
_下午下班读音乐_获取文件名 (下班音乐11, 4)

如果 (读配置项 (取运行目录 ()“\information.ini”, “下班音乐”, “下班音乐12”, )“”)
下班音乐12 = 读配置项 (取运行目录 ()“\information.ini”, “下班音乐”, “下班音乐12”, )
_下午下班读音乐_获取文件名 (下班音乐12, 5)


子程序名返回值类型公开备 注
_超级列表框_上午中休_被双击逻辑型 
参数名类 型参考可空数组备 注
横向位置整数型   
纵向位置整数型   
功能键状态整数型   
变量名类 型静态数组备 注
文件名文本型  
文件名 = 超级列表框_上午中休.取晏 (超级列表框_上午中休.现行选中项, )
如果 (文件名 = “请双击添加音乐”)
_按钮_上午中休_添加音乐_被单击 ()
_按钮_上午中休_播放_被单击 ()

子程序名返回值类型公开备 注
_按钮_上午中休_添加音乐_被单击  
变量名类 型静态数组备 注
文件名文本型  
通用对话框_上午中休.打开 ()
文件名 = 通用对话框_上午中休.文件名
如果 (超级列表框_上午中休.现行选中项 = 0)
_上午中休音乐添加 (文件名, 0)
' 超级列表框_上午中休.置标题 (超级列表框_上午中休.现行选中项, , 文件名)
写配置项 (取运行目录 ()“\information.ini”, “中休音乐”, “中休音乐一”, 文件名)
如果 (超级列表框_上午中休.现行选中项 = 1)
_上午中休音乐添加 (文件名, 1)
' 超级列表框_上午中休.置标题 (超级列表框_上午中休.现行选中项, , 文件名)
写配置项 (取运行目录 ()“\information.ini”, “中休音乐”, “中休音乐二”, 文件名)
如果 (超级列表框_上午中休.现行选中项 = 2)
_上午中休音乐添加 (文件名, 2)
' 超级列表框_上午中休.置标题 (超级列表框_上午中休.现行选中项, , 文件名)
写配置项 (取运行目录 ()“\information.ini”, “中休音乐”, “中休音乐三”, 文件名)
如果 (超级列表框_上午中休.现行选中项 = 3)
_上午中休音乐添加 (文件名, 3)
' 超级列表框_上午中休.置标题 (超级列表框_上午中休.现行选中项, , 文件名)
写配置项 (取运行目录 ()“\information.ini”, “中休音乐”, “中休音乐四”, 文件名)
如果 (超级列表框_上午中休.现行选中项 = 4)
_上午中休音乐添加 (文件名, 4)
' 超级列表框_上午中休.置标题 (超级列表框_上午中休.现行选中项, , 文件名)
写配置项 (取运行目录 ()“\information.ini”, “中休音乐”, “中休音乐五”, 文件名)
如果 (超级列表框_上午中休.现行选中项 = 5)
_上午中休音乐添加 (文件名, 5)
' 超级列表框_上午中休.置标题 (超级列表框_上午中休.现行选中项, , 文件名)
写配置项 (取运行目录 ()“\information.ini”, “中休音乐”, “中休音乐六”, 文件名)








子程序名返回值类型公开备 注
_上午中休音乐添加  
参数名类 型参考可空数组备 注
得到文件名文本型   
超级列表索引整数型   
变量名类 型静态数组备 注
得到文件文本型  
索引整数型  
得到文件 = 得到文件名
索引 = 超级列表索引
文本位置 = 倒找文本 (得到文件, “\”, , )
文件程序名 = 取文本右边 (得到文件, 取文本长度 (得到文件) - 文本位置)
超级列表框_上午中休.置标题 (索引, , 文件程序名)
子程序名返回值类型公开备 注
_按钮_上午中休_播放_被单击  
中休音乐一 = 读配置项 (取运行目录 ()“\information.ini”, “中休音乐”, “中休音乐一”, )
中休音乐二 = 读配置项 (取运行目录 ()“\information.ini”, “中休音乐”, “中休音乐二”, )
中休音乐三 = 读配置项 (取运行目录 ()“\information.ini”, “中休音乐”, “中休音乐三”, )
中休音乐四 = 读配置项 (取运行目录 ()“\information.ini”, “中休音乐”, “中休音乐四”, )
中休音乐五 = 读配置项 (取运行目录 ()“\information.ini”, “中休音乐”, “中休音乐五”, )
中休音乐六 = 读配置项 (取运行目录 ()“\information.ini”, “中休音乐”, “中休音乐六”, )
播放MP3 (1, 中休音乐一, 中休音乐二, 中休音乐三, 中休音乐四, 中休音乐五, 中休音乐六)
子程序名返回值类型公开备 注
_超级列表框_上午下班_被双击逻辑型 
参数名类 型参考可空数组备 注
横向位置整数型   
纵向位置整数型   
功能键状态整数型   
变量名类 型静态数组备 注
文件名文本型  
文件名 = 超级列表框_上午下班.取晏 (超级列表框_上午下班.现行选中项, )
如果 (文件名 = “请双击添加音乐”)
_按钮_上午下班_添加音乐_被单击 ()
_按钮_上午下班_播放_被单击 ()

子程序名返回值类型公开备 注
_按钮_上午下班_添加音乐_被单击  
变量名类 型静态数组备 注
文件名文本型  
通用对话框_上午下班.打开 ()
文件名 = 通用对话框_上午下班.文件名
如果 (超级列表框_上午下班.现行选中项 = 0)
_上午下班音乐添加 (文件名, 0)
写配置项 (取运行目录 ()“\information.ini”, “下班音乐”, “下班音乐一”, 文件名)
如果 (超级列表框_上午下班.现行选中项 = 1)
_上午下班音乐添加 (文件名, 1)
写配置项 (取运行目录 ()“\information.ini”, “下班音乐”, “下班音乐二”, 文件名)
如果 (超级列表框_上午下班.现行选中项 = 2)
_上午下班音乐添加 (文件名, 2)
写配置项 (取运行目录 ()“\information.ini”, “下班音乐”, “下班音乐三”, 文件名)
如果 (超级列表框_上午下班.现行选中项 = 3)
_上午下班音乐添加 (文件名, 3)
写配置项 (取运行目录 ()“\information.ini”, “下班音乐”, “下班音乐四”, 文件名)
如果 (超级列表框_上午下班.现行选中项 = 4)
_上午下班音乐添加 (文件名, 4)
写配置项 (取运行目录 ()“\information.ini”, “下班音乐”, “下班音乐五”, 文件名)
如果 (超级列表框_上午下班.现行选中项 = 5)
_上午下班音乐添加 (文件名, 5)
写配置项 (取运行目录 ()“\information.ini”, “下班音乐”, “下班音乐六”, 文件名)








子程序名返回值类型公开备 注
_上午下班读音乐_获取文件名  
参数名类 型参考可空数组备 注
得到文件文本型   
索引整数型   
变量名类 型静态数组备 注
得到文件名文本型  
添加位置整数型  
得到文件名 = 得到文件
添加位置 = 索引
文本位置 = 倒找文本 (得到文件名, “\”, , )
文件程序名 = 取文本右边 (得到文件名, 取文本长度 (得到文件名) - 文本位置)
超级列表框_上午下班.置标题 (添加位置, , 文件程序名)
子程序名返回值类型公开备 注
_上午下班音乐添加  
参数名类 型参考可空数组备 注
得到文件名文本型   
超级列表索引整数型   
变量名类 型静态数组备 注
得到文件文本型  
索引整数型  
得到文件 = 得到文件名
索引 = 超级列表索引
文本位置 = 倒找文本 (得到文件, “\”, , )
文件程序名 = 取文本右边 (得到文件, 取文本长度 (得到文件) - 文本位置)
超级列表框_上午下班.置标题 (索引, , 文件程序名)
子程序名返回值类型公开备 注
_按钮_上午下班_播放_被单击  
下班音乐一 = 读配置项 (取运行目录 ()“\information.ini”, “下班音乐”, “下班音乐一”, )
下班音乐二 = 读配置项 (取运行目录 ()“\information.ini”, “下班音乐”, “下班音乐二”, )
下班音乐三 = 读配置项 (取运行目录 ()“\information.ini”, “下班音乐”, “下班音乐三”, )
下班音乐四 = 读配置项 (取运行目录 ()“\information.ini”, “下班音乐”, “下班音乐四”, )
下班音乐五 = 读配置项 (取运行目录 ()“\information.ini”, “下班音乐”, “下班音乐五”, )
下班音乐六 = 读配置项 (取运行目录 ()“\information.ini”, “下班音乐”, “下班音乐六”, )
播放MP3 (1, 下班音乐一, 下班音乐二, 下班音乐三, 下班音乐四, 下班音乐五, 下班音乐六)
子程序名返回值类型公开备 注
_超级列表框_下午上班_被双击逻辑型 
参数名类 型参考可空数组备 注
横向位置整数型   
纵向位置整数型   
功能键状态整数型   
变量名类 型静态数组备 注
文件名文本型  
文件名 = 超级列表框_下午上班.取晏 (超级列表框_下午上班.现行选中项, )
如果 (文件名 = “请双击添加音乐”)
_按钮_下午上班_添加音乐_被单击 ()
_按钮_下午上班_被单击 ()

子程序名返回值类型公开备 注
_下午上班音乐添加  
参数名类 型参考可空数组备 注
得到文件名文本型   
超级列表索引整数型   
变量名类 型静态数组备 注
得到文件文本型  
索引整数型  
得到文件 = 得到文件名
索引 = 超级列表索引
文本位置 = 倒找文本 (得到文件, “\”, , )
文件程序名 = 取文本右边 (得到文件, 取文本长度 (得到文件) - 文本位置)
超级列表框_下午上班.置标题 (索引, , 文件程序名)
子程序名返回值类型公开备 注
_下午上班读音乐_获取文件名  
参数名类 型参考可空数组备 注
得到文件文本型   
索引整数型   
变量名类 型静态数组备 注
得到文件名文本型  
添加位置整数型  
得到文件名 = 得到文件
添加位置 = 索引
文本位置 = 倒找文本 (得到文件名, “\”, , )
文件程序名 = 取文本右边 (得到文件名, 取文本长度 (得到文件名) - 文本位置)
超级列表框_下午上班.置标题 (添加位置, , 文件程序名)
子程序名返回值类型公开备 注
_按钮_下午上班_被单击  
上班音乐7 = 读配置项 (取运行目录 ()“\information.ini”, “上班音乐”, “上班音乐7”, )
上班音乐8 = 读配置项 (取运行目录 ()“\information.ini”, “上班音乐”, “上班音乐8”, )
上班音乐9 = 读配置项 (取运行目录 ()“\information.ini”, “上班音乐”, “上班音乐9”, )
上班音乐10 = 读配置项 (取运行目录 ()“\information.ini”, “上班音乐”, “上班音乐10”, )
上班音乐11 = 读配置项 (取运行目录 ()“\information.ini”, “上班音乐”, “上班音乐11”, )
上班音乐12 = 读配置项 (取运行目录 ()“\information.ini”, “上班音乐”, “上班音乐12”, )
播放MP3 (1, 上班音乐7, 上班音乐8, 上班音乐9, 上班音乐10, 上班音乐11, 上班音乐12)
子程序名返回值类型公开备 注
_按钮_下午上班_添加音乐_被单击  
变量名类 型静态数组备 注
文件名文本型  
音乐名文本型  
通用对话框_下午上班.打开 ()
文件名 = 通用对话框_下午上班.文件名
如果 (超级列表框_下午上班.现行选中项 = 0)
' 音乐名 = 到文本 (倒找文本 (文件名, “\”, , ))
_下午上班音乐添加 (文件名, 0)
' 超级列表框_下午上班.置标题 (超级列表框_下午上班.现行选中项, , 文件名)
写配置项 (取运行目录 ()“\information.ini”, “上班音乐”, “上班音乐7”, 文件名)
如果 (超级列表框_下午上班.现行选中项 = 1)
_下午上班音乐添加 (文件名, 1)
写配置项 (取运行目录 ()“\information.ini”, “上班音乐”, “上班音乐8”, 文件名)
如果 (超级列表框_下午上班.现行选中项 = 2)
_下午上班音乐添加 (文件名, 2)
写配置项 (取运行目录 ()“\information.ini”, “上班音乐”, “上班音乐9”, 文件名)
如果 (超级列表框_下午上班.现行选中项 = 3)
_下午上班音乐添加 (文件名, 3)
写配置项 (取运行目录 ()“\information.ini”, “上班音乐”, “上班音乐10”, 文件名)
如果 (超级列表框_下午上班.现行选中项 = 4)
_下午上班音乐添加 (文件名, 4)
写配置项 (取运行目录 ()“\information.ini”, “上班音乐”, “上班音乐11”, 文件名)
如果 (超级列表框_下午上班.现行选中项 = 5)
_下午上班音乐添加 (文件名, 5)
写配置项 (取运行目录 ()“\information.ini”, “上班音乐”, “上班音乐12”, 文件名)








子程序名返回值类型公开备 注
_超级列表框_下午中休_被双击逻辑型 
参数名类 型参考可空数组备 注
横向位置整数型   
纵向位置整数型   
功能键状态整数型   
变量名类 型静态数组备 注
文件名文本型  
文件名 = 超级列表框_下午中休.取晏 (超级列表框_下午中休.现行选中项, )
如果 (文件名 = “请双击添加音乐”)
_按钮_下午中休_添加音乐_被单击 ()
_按钮_下午中休_播放_被单击 ()

子程序名返回值类型公开备 注
_按钮_下午中休_添加音乐_被单击  
变量名类 型静态数组备 注
文件名文本型  
音乐名文本型  
通用对话框_下午中休.打开 ()
文件名 = 通用对话框_下午中休.文件名
如果 (超级列表框_下午中休.现行选中项 = 0)
' 音乐名 = 到文本 (倒找文本 (文件名, “\”, , ))
_下午中休音乐添加 (文件名, 0)
写配置项 (取运行目录 ()“\information.ini”, “中休音乐”, “中休音乐7”, 文件名)
如果 (超级列表框_下午中休.现行选中项 = 1)
_下午中休音乐添加 (文件名, 1)
写配置项 (取运行目录 ()“\information.ini”, “中休音乐”, “中休音乐8”, 文件名)
如果 (超级列表框_下午中休.现行选中项 = 2)
_下午中休音乐添加 (文件名, 2)
写配置项 (取运行目录 ()“\information.ini”, “中休音乐”, “中休音乐9”, 文件名)
如果 (超级列表框_下午中休.现行选中项 = 3)
_下午中休音乐添加 (文件名, 3)
写配置项 (取运行目录 ()“\information.ini”, “中休音乐”, “中休音乐10”, 文件名)
如果 (超级列表框_下午中休.现行选中项 = 4)
_下午中休音乐添加 (文件名, 4)
写配置项 (取运行目录 ()“\information.ini”, “中休音乐”, “中休音乐11”, 文件名)
如果 (超级列表框_下午中休.现行选中项 = 5)
_下午中休音乐添加 (文件名, 5)
写配置项 (取运行目录 ()“\information.ini”, “中休音乐”, “中休音乐12”, 文件名)








子程序名返回值类型公开备 注
_下午中休音乐添加  
参数名类 型参考可空数组备 注
得到文件名文本型   
超级列表索引整数型   
变量名类 型静态数组备 注
得到文件文本型  
索引整数型  
得到文件 = 得到文件名
索引 = 超级列表索引
文本位置 = 倒找文本 (得到文件, “\”, , )
文件程序名 = 取文本右边 (得到文件, 取文本长度 (得到文件) - 文本位置)
超级列表框_下午中休.置标题 (索引, , 文件程序名)
子程序名返回值类型公开备 注
_下午中休读音乐_获取文件名  
参数名类 型参考可空数组备 注
得到文件文本型   
索引整数型   
变量名类 型静态数组备 注
得到文件名文本型  
添加位置整数型  
得到文件名 = 得到文件
添加位置 = 索引
文本位置 = 倒找文本 (得到文件名, “\”, , )
文件程序名 = 取文本右边 (得到文件名, 取文本长度 (得到文件名) - 文本位置)
超级列表框_下午中休.置标题 (添加位置, , 文件程序名)
子程序名返回值类型公开备 注
_按钮_下午中休_播放_被单击  
中休音乐7 = 读配置项 (取运行目录 ()“\information.ini”, “中休音乐”, “中休音乐7”, )
中休音乐8 = 读配置项 (取运行目录 ()“\information.ini”, “中休音乐”, “中休音乐8”, )
中休音乐9 = 读配置项 (取运行目录 ()“\information.ini”, “中休音乐”, “中休音乐9”, )
中休音乐10 = 读配置项 (取运行目录 ()“\information.ini”, “中休音乐”, “中休音乐10”, )
中休音乐11 = 读配置项 (取运行目录 ()“\information.ini”, “中休音乐”, “中休音乐11”, )
中休音乐12 = 读配置项 (取运行目录 ()“\information.ini”, “中休音乐”, “中休音乐12”, )
播放MP3 (1, 中休音乐7, 中休音乐8, 中休音乐9, 中休音乐10, 中休音乐11, 中休音乐12)
子程序名返回值类型公开备 注
_超级列表框_下午下班_被双击逻辑型 
参数名类 型参考可空数组备 注
横向位置整数型   
纵向位置整数型   
功能键状态整数型   
变量名类 型静态数组备 注
文件名文本型  
文件名 = 超级列表框_下午下班.取晏 (超级列表框_下午下班.现行选中项, )
如果 (文件名 = “请双击添加音乐”)
_按钮_下午下班_添加音乐_被单击 ()
_按钮_下午下班_播放_被单击 ()

子程序名返回值类型公开备 注
_按钮_下午下班_播放_被单击  
下班音乐7 = 读配置项 (取运行目录 ()“\information.ini”, “下班音乐”, “下班音乐7”, )
下班音乐8 = 读配置项 (取运行目录 ()“\information.ini”, “下班音乐”, “下班音乐8”, )
下班音乐9 = 读配置项 (取运行目录 ()“\information.ini”, “下班音乐”, “下班音乐9”, )
下班音乐10 = 读配置项 (取运行目录 ()“\information.ini”, “下班音乐”, “下班音乐10”, )
下班音乐11 = 读配置项 (取运行目录 ()“\information.ini”, “下班音乐”, “下班音乐11”, )
下班音乐12 = 读配置项 (取运行目录 ()“\information.ini”, “下班音乐”, “下班音乐12”, )
播放MP3 (1, 下班音乐7, 下班音乐8, 下班音乐9, 下班音乐10, 下班音乐11, 下班音乐12)
子程序名返回值类型公开备 注
_按钮_下午下班_添加音乐_被单击  
变量名类 型静态数组备 注
文件名文本型  
音乐名文本型  
通用对话框_下午下班.打开 ()
文件名 = 通用对话框_下午下班.文件名
如果 (超级列表框_下午下班.现行选中项 = 0)
' 音乐名 = 到文本 (倒找文本 (文件名, “\”, , ))
_下午下班音乐添加 (文件名, 0)
写配置项 (取运行目录 ()“\information.ini”, “下班音乐”, “下班音乐7”, 文件名)
如果 (超级列表框_下午下班.现行选中项 = 1)
_下午下班音乐添加 (文件名, 1)
写配置项 (取运行目录 ()“\information.ini”, “下班音乐”, “下班音乐8”, 文件名)
如果 (超级列表框_下午下班.现行选中项 = 2)
_下午下班音乐添加 (文件名, 2)
写配置项 (取运行目录 ()“\information.ini”, “下班音乐”, “下班音乐9”, 文件名)
如果 (超级列表框_下午下班.现行选中项 = 3)
_下午下班音乐添加 (文件名, 3)
写配置项 (取运行目录 ()“\information.ini”, “下班音乐”, “下班音乐10”, 文件名)
如果 (超级列表框_下午下班.现行选中项 = 4)
_下午下班音乐添加 (文件名, 4)
写配置项 (取运行目录 ()“\information.ini”, “下班音乐”, “下班音乐11”, 文件名)
如果 (超级列表框_下午下班.现行选中项 = 5)
_下午下班音乐添加 (文件名, 5)
写配置项 (取运行目录 ()“\information.ini”, “下班音乐”, “下班音乐12”, 文件名)








子程序名返回值类型公开备 注
_下午下班音乐添加  
参数名类 型参考可空数组备 注
得到文件名文本型   
超级列表索引整数型   
变量名类 型静态数组备 注
得到文件文本型  
索引整数型  
得到文件 = 得到文件名
索引 = 超级列表索引
文本位置 = 倒找文本 (得到文件, “\”, , )
文件程序名 = 取文本右边 (得到文件, 取文本长度 (得到文件) - 文本位置)
超级列表框_下午下班.置标题 (索引, , 文件程序名)
子程序名返回值类型公开备 注
_下午下班读音乐_获取文件名  
参数名类 型参考可空数组备 注
得到文件文本型   
索引整数型   
变量名类 型静态数组备 注
得到文件名文本型  
添加位置整数型  
得到文件名 = 得到文件
添加位置 = 索引
文本位置 = 倒找文本 (得到文件名, “\”, , )
文件程序名 = 取文本右边 (得到文件名, 取文本长度 (得到文件名) - 文本位置)
超级列表框_下午下班.置标题 (添加位置, , 文件程序名)
子程序名返回值类型公开备 注
_时钟_综合_周期事件  
变量名类 型静态数组备 注
小时整数型  
分钟整数型  
小时 = 取小时 (取现行时间 ())
分钟 = 取分钟 (取现行时间 ())
如果 (小时 = 8)
如果 (分钟 > 20 分钟 < 40)
超文本浏览框_加班.执行命令 (5)
_按钮_上午上班_被单击 ()
时钟_上午.时钟周期 = 1000
透明标签_上午上班.标题 = “正在播放...”
时钟_综合.时钟周期 = 0





如果 (小时 = 10)
如果 (分钟 > 30 分钟 < 40)
时钟_上午.时钟周期 = 1000
_按钮_上午中休_播放_被单击 ()
透明标签_上午休息.标题 = “正在播放...”
时钟_综合.时钟周期 = 0




如果 (小时 = 12)
如果 (分钟 > 0 分钟 < 20)
时钟_上午.时钟周期 = 1000
_按钮_上午下班_播放_被单击 ()
透明标签_上午下班.标题 = “正在播放...”
时钟_综合.时钟周期 = 0




如果 (小时 = 13)
如果 (分钟 > 25 分钟 < 40)
_按钮_下午上班_被单击 ()
时钟_下午.时钟周期 = 1000
透明标签_下午上班.标题 = “正在播放...”
时钟_综合.时钟周期 = 0




如果 (小时 = 15)
如果 (分钟 > 30 分钟 < 40)
时钟_下午.时钟周期 = 1000
_按钮_下午中休_播放_被单击 ()
透明标签_下午休息.标题 = “正在播放...”
时钟_综合.时钟周期 = 0




如果 (小时 = 17)
如果 (分钟 > 30 分钟 < 50)
时钟_下午.时钟周期 = 1000
_按钮_下午下班_播放_被单击 ()
透明标签_下午下班.标题 = “正在播放...”
时钟_综合.时钟周期 = 0




如果真 (小时 > 17 小时 < 21)
如果 (选择框_开启加班.选中 = )
停止播放 ()
_按钮_开启加班_被单击 ()
时钟_加班.时钟周期 = 1000
时钟_综合.时钟周期 = 0
如果真 (选择框_自动关机.选中 = )
关闭系统 (1, )


. ' 如果 (小时 > 21)
. ' 如果真 (选择框_自动关机.选中 = )
' 关闭系统 (1, )




输出调试文本 (小时)
子程序名返回值类型公开备 注
_按钮_开启加班_被单击  
超文本浏览框_加班.地址 = http://box.zhangmen.baidu.com/m? ... %B2TOP500&s_o=0
子程序名返回值类型公开备 注
_时钟_下午_周期事件  
变量名类 型静态数组备 注
小时整数型  
分钟整数型  
小时 = 取小时 (取现行时间 ())
分钟 = 取分钟 (取现行时间 ())
如果 (小时 = 13)
如果 (分钟 < 20 分钟 > 40)
透明标签_下午上班.标题 = “暂停中...”
_按钮_停止播放_被单击 ()
时钟_综合.时钟周期 = 1000
时钟_下午.时钟周期 = 0





如果 (小时 = 15)
如果 (分钟 < 30 分钟 > 40)
透明标签_下午休息.标题 = “暂停中...”
_按钮_停止播放_被单击 ()
时钟_综合.时钟周期 = 1000
时钟_下午.时钟周期 = 0




如果 (小时 = 17)
如果 (分钟 > 50)
透明标签_下午下班.标题 = “暂停中...”
_按钮_停止播放_被单击 ()
时钟_综合.时钟周期 = 1000
时钟_下午.时钟周期 = 0





子程序名返回值类型公开备 注
_时钟_上午_周期事件  
变量名类 型静态数组备 注
小时整数型  
分钟整数型  
小时 = 取小时 (取现行时间 ())
分钟 = 取分钟 (取现行时间 ())
如果 (小时 = 8)
如果 (分钟 < 20 分钟 > 40)
透明标签_上午上班.标题 = “暂停中...”
_按钮_停止播放_被单击 ()
时钟_综合.时钟周期 = 1000
时钟_上午.时钟周期 = 0





如果 (小时 = 10)
如果 (分钟 < 30 分钟 > 40)
透明标签_上午休息.标题 = “暂停中...”
_按钮_停止播放_被单击 ()
时钟_综合.时钟周期 = 1000
时钟_上午.时钟周期 = 0




如果 (小时 = 12)
如果 (分钟 > 20)
透明标签_上午下班.标题 = “暂停中...”
_按钮_停止播放_被单击 ()
时钟_综合.时钟周期 = 1000
时钟_上午.时钟周期 = 0





子程序名返回值类型公开备 注
_按钮_停止播放_被单击  
停止播放 ()
子程序名返回值类型公开备 注
_按钮_朗读_被单击  
变量名类 型静态数组备 注
代码文本型  
' 代码 = 子文本替换 (#代码, “朗读内容”, 编码 (编辑框1.内容), , , )
' 写到文件 (取运行目录 () + “\asd.htm”, 到字节集 (代码))
' 超文本浏览框_生日祝福.跳转 (“file://” + 取运行目录 () + “\asd.htm”, , )
删除文件 (取当前目录 ()“\生成音频测试文件夹”“\1.mp3”)
删除文件 (取当前目录 ()“\生成音频测试文件夹”“\2.mp3”)
删除文件 (取当前目录 ()“\生成音频测试文件夹”“\朗读文本.mp3”)
_按钮_生产_被单击 ()
如果 (编辑框7.内容 = “ ”)
延迟 (2000)
_按钮_播放_被单击 ()

子程序名返回值类型公开备 注
编码文本型 
参数名类 型参考可空数组备 注
原文本文本型   
变量名类 型静态数组备 注
局部_数据字节集  
i整数型  
ii文本型  
' 局部_数据 = 到字节集 (原文本)
' 局部_数据 = 编码转换 (局部_数据, #编码_GB2312, #编码_UTF_8, )
. ' 计次循环首 (取字节集长度 (局部_数据), i)
' ii = ii + “%” + 取十六进制文本 (局部_数据 [i])
. ' 计次循环尾 ()
' 返回 (ii)
子程序名返回值类型公开备 注
_时钟_加班_周期事件  
变量名类 型静态数组备 注
小时整数型  
分钟整数型  
小时 = 取小时 (取现行时间 ())
分钟 = 取分钟 (取现行时间 ())
如果 (小时 > 21)
时钟_加班.时钟周期 = 0
时钟_综合.时钟周期 = 1000



子程序名返回值类型公开备 注
_选择框_开机启动_被单击  
如果 (选择框_开机启动.选中 = )
设置自动运行 (“liset.exe”, “D:\办公音乐系统\办公音乐系统V1.2.exe”, 0)
取消自动运行 (“liset.exe”)

子程序名返回值类型公开备 注
__启动窗口_位置被改变  
如果 (_启动窗口.最大化按钮 = )
_启动窗口.可视 = 假
_启动窗口.在任务条中显示 = 假


如果 (_启动窗口.最小化按钮 = )
_启动窗口.可视 = 真
_启动窗口.在任务条中显示 = 真


' _启动窗口.可视 = 假
子程序名返回值类型公开备 注
__启动窗口_托盘事件  
参数名类 型参考可空数组备 注
操作类型整数型   
判断 (操作类型 = #单击右键 )
弹出菜单 (退, , )
如果 (操作类型 = 1)
_启动窗口.可视 = 真
_启动窗口.位置 = 1
置托盘图标 (, )




子程序名返回值类型公开备 注
_退出_被选择  
销毁 ()
子程序名返回值类型公开备 注
_按钮_退出程序_被单击  
_退出_被选择 ()
子程序名返回值类型公开备 注
下载文件逻辑型 
参数名类 型参考可空数组备 注
文件地址文本型   
本地路径文本型   
变量名类 型静态数组备 注
_a整数型  
_a = API下载文件 (0, 文件地址, 本地路径, 0, 0)
如果 (_a = 0)
编辑框7.内容 = 本地路径
返回 ()
返回 ()

子程序名返回值类型公开备 注
取文本中间内容文本型 
参数名类 型参考可空数组备 注
需取文本文本型   
左边内容文本型   
右边内容文本型   
成功与否逻辑型 
变量名类 型静态数组备 注
长度整数型  
左边位置整数型  
左边长度整数型  
右边位置整数型  
右边长度整数型  
长度 = 取文本长度 (需取文本)
左边位置 = 寻找文本 (需取文本, 左边内容, 0, )
左边长度 = 取文本长度 (左边内容)
如果真 (左边位置 = -1)
成功与否 = 假
返回 (“未找到左边内容”)
右边位置 = 寻找文本 (需取文本, 右边内容, 0, )
右边长度 = 取文本长度 (右边内容)
如果真 (右边位置 = -1)
成功与否 = 假
返回 (“未找到右边内容”)
成功与否 = 真
返回 (取文本中间 (需取文本, 左边位置 + 左边长度, 长度 (左边位置 + 左边长度) (长度 - 右边位置)))
子程序名返回值类型公开备 注
_按钮_生产_被单击  
变量名类 型静态数组备 注
文本二文本型  
文本一文本型  
文本一 = 取文本左边 (编辑框1.内容, 134)
文本二 = 取文本右边 (编辑框1.内容, 取文本长度 (编辑框1.内容) - 134)“ 
输出调试文本 (“文本一:” + 文本一)
输出调试文本 (“文本er:” + 文本二)
生成音频 (文本一, 文本二)
子程序名返回值类型公开备 注
生成音频
参数名类 型参考可空数组备 注
音频文本1文本型   
音频文本2文本型   
变量名类 型静态数组备 注
局_返回文本1文本型  
局_返回文本2文本型  
局_下载地址1文本型  
局_下载地址2文本型  
编辑框7.内容 = “”
编辑框8.内容 = “”
如果真 (文件是否存在 (取运行目录 ()“\生成音频测试文件夹”))
创建目录 (取运行目录 ()“\生成音频测试文件夹”)

局_返回文本1 = 彗星HTTP读文本 (“cmsduv0.colorringplus.com/bin/makeColorPlusGuest.jsp?sex=201&speed=0&ment=”到文本 (中文分词 (音频文本1, “ ”)), , , )
输出调试文本 (“局部文本一:”到文本 (中文分词 (音频文本1, “”)))
局_下载地址1 = 取文本中间内容 (局_返回文本1, #左, #右 )
如果 (下载文件 (局_下载地址1, 取运行目录 ()“\生成音频测试文件夹”“\1.mp3”))
编辑框8.内容 = “  音乐文件1生产成功!”
如果 (音频文本2 ≠ “ ”)
局_返回文本2 = 彗星HTTP读文本 (“cmsduv0.colorringplus.com/bin/makeColorPlusGuest.jsp?sex=201&speed=0&ment=”到文本 (中文分词 (“ ”, 音频文本2)), , , )
输出调试文本 (“局部文本二:”到文本 (中文分词 (“ ”, 音频文本2)))
局_下载地址2 = 取文本中间内容 (局_返回文本2, #左, #右 )
如果 (下载文件 (局_下载地址2, 取运行目录 ()“\生成音频测试文件夹”“\2.mp3”))
编辑框8.内容 = “音乐文件2生产成功!”
删除文件 (取当前目录 ()“\生成音频测试文件夹”“\朗读文本.mp3”)
写到文件 (取当前目录 ()“\生成音频测试文件夹”“\朗读文本.mp3”, 读入文件 (取当前目录 ()“\生成音频测试文件夹”“\1.mp3”)读入文件 (取当前目录 ()“\生成音频测试文件夹”“\2.mp3”))
延迟 (1000)
编辑框8.内容 = “即将开始播放!”
删除文件 (取当前目录 ()“\生成音频测试文件夹”“\朗读文本.mp3”)
写到文件 (取当前目录 ()“\生成音频测试文件夹”“\朗读文本.mp3”, 读入文件 (取当前目录 ()“\生成音频测试文件夹”“\1.mp3”))
编辑框8.内容 = “正在播放...”




' 写到文件 (取当前目录 () + “\朗读文本.mp3”, 取当前目录 () + “\1.mp3” + 取当前目录 () + “\2.mp3”)
编辑框8.内容 = “  生成失败!”

' 这里比较头疼,如果不转换城UTF8编码,貌似汉字就无法被识别,而转换成UTF8编码,又无法朗读字母.新手这里不是很懂,希望易语言论坛大牛可以将此改一下
子程序名返回值类型公开备 注
_按钮_播放_被单击  
如果真 (编辑框7.内容 ≠ “ ”)
播放MP3 (1, 取运行目录 ()“\生成音频测试文件夹”“\朗读文本.mp3”)

子程序名返回值类型公开备 注
中文分词文本型 好象是《泪闯天涯》之代码
参数名类 型参考可空数组备 注
参数_原字符1文本型   
参数_原字符2文本型   
变量名类 型静态数组备 注
文本1文本型  
文本2文本型  
n1整数型  
n2整数型  
代码1整数型  
代码2整数型  
临时1文本型  
临时2文本型  
分割后文本1文本型 0
分割后文本2文本型 0
i1   
i2   
输出调试文本 (“参数_原字符2>” + 参数_原字符2)
如果 (参数_原字符2 ≠ “ ”)
n2 = 1
' 输出调试文本 (参数_原字符1)
文本2 = 参数_原字符2
判断循环首 (n2 ≤ 取文本长度 (文本2))
临时2 = 取文本中间 (文本2, n2, 1)
如果真 (取代码 (临时2, ) < 0)
临时2 = 取文本中间 (文本2, n2, 2)
n2 = n2 + 1
加入成员 (分割后文本2, 临时2)
n2 = n2 + 1
判断循环尾 ()
i2 = 取数组成员数 (分割后文本2)
n2 = 0
文本2 = “”
计次循环首 (i2, n2)
如果 (取文本长度 (分割后文本2 [n2]) = 1)
文本2 = 文本2 + 分割后文本2 [n2]
文本2 = 文本2 + 彗星URL编码_UTF8 (分割后文本2 [n2])

计次循环尾 ()
输出调试文本 (“朗读文本二:” + 文本2)
返回 (文本2)
n1 = 1
' 输出调试文本 (参数_原字符1)
文本1 = 参数_原字符1
判断循环首 (n1 ≤ 取文本长度 (文本1))
临时1 = 取文本中间 (文本1, n1, 1)
如果真 (取代码 (临时1, ) < 0)
临时1 = 取文本中间 (文本1, n1, 2)
n1 = n1 + 1
加入成员 (分割后文本1, 临时1)
n1 = n1 + 1
判断循环尾 ()
i1 = 取数组成员数 (分割后文本1)
n1 = 0
文本1 = “”
计次循环首 (i1, n1)
如果 (取文本长度 (分割后文本1 [n1]) = 1)
文本1 = 文本1 + 分割后文本1 [n1]
文本1 = 文本1 + 彗星URL编码_UTF8 (分割后文本1 [n1])

计次循环尾 ()
输出调试文本 (“朗读文本一:” + 文本1)
返回 (文本1)

子程序名返回值类型公开备 注
__启动窗口_将被销毁  
写配置项 (取运行目录 ()“\default.dat”, “set”, “onoff”, “0”)


i支持库列表   支持库注释   
iext扩展界面支持库一
HtmlView超文本浏览框支持库
shell操作系统界面功能支持库
spec特殊功能支持库
eAPI应用接口支持库

效果图
QQ截图20201129235219.jpg




上一篇:百度MP3播放器采集易语言源码下载
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

GMT+8, 2021-3-5 14:18 , Processed in 1.382798 second(s), 44 queries .
Powered by Discuz! X3.2 © 2001-2017 Comsenz Inc.
快速回复 返回顶部 返回列表