设为首页收藏本站

吾爱分享资源网

 找回密码
 立即注册
快捷导航
搜索
吾爱分享资源网»论坛主页 › 易语言源码专区 › 多媒体类 › 办公室自动播放系统易语言源码下载
查看: 1953|回复: 2

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

  [复制链接]
admin

1674

主题

1798

帖子

1万

积分

管理员

Rank: 9Rank: 9Rank: 9

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

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

您的用户组是：游客

提取密码:5ifx88 
下载次数:3  文件大小: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播放器采集易语言源码下载
点击加入网站会员 VIP视频教程板块所有视频都可以看哦
回复

使用道具 举报

cqcc

0

主题

20

帖子

76

积分

VIP视频终身会员

积分
76
金币
6
发表于 2022-2-11 20:17:08 | 显示全部楼层
这个这个。。。貌似。。。。
回复 支持 反对

使用道具 举报

husiyu317

1

主题

1706

帖子

7779

积分

论坛元老

Rank: 8Rank: 8

积分
7779
金币
1059
发表于 2022-4-7 22:39:08 | 显示全部楼层
666666666666666666666666666
回复 支持 反对

使用道具 举报

高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

GMT+8, 2023-6-9 15:07 , Processed in 0.464050 second(s), 43 queries .
Powered by Discuz! X3.2 © 2001-2017 Comsenz Inc.
快速回复 返回顶部 返回列表