.版本 2

.支持库 shell

.支持库 iext

.支持库 eAPI

.程序集 窗口程序集_启动窗口

.程序集变量 小时更正, 文本型

.程序集变量 分钟更正, 文本型

.程序集变量 随机数, 整数型

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

.如果真 (打开事件同步对象 (2031619, 假, “近在眼前”) ≠ 0)

    信息框 (“程序已经运行！（桌面右下角）”, 0, , )

    销毁 ()

    返回 ()

.如果真结束

创建事件同步对象 (0, 假, 假, “近在眼前”)

.如果 (文件是否存在 (取特定目录 (1) ＋ “\配置.ini”))

    .如果 (读配置项 (取特定目录 (1) ＋ “\配置.ini”, “定时关机”, “每天都执行此关机设置”, ) ＝ “真”)

        选择框1.选中 ＝ 真

        标签_小时.标题 ＝ 读配置项 (取特定目录 (1) ＋ “\配置.ini”, “定时关机”, “时钟”, )

        标签_分钟.标题 ＝ 读配置项 (取特定目录 (1) ＋ “\配置.ini”, “定时关机”, “分钟”, )

        _图形按钮_立即启用_被单击 ()

    .否则

        .如果 (取文本长度 (到文本 (取小时 (取现行时间 ()))) ＝ 1)

            标签_小时.标题 ＝ “0” ＋ 到文本 (取小时 (取现行时间 ()))

        .否则

            标签_小时.标题 ＝ 到文本 (取小时 (取现行时间 ()))

        .如果结束

        .如果 (取文本长度 (到文本 (取分钟 (取现行时间 ()))) ＝ 1)

            标签_分钟.标题 ＝ “0” ＋ 到文本 (取分钟 (取现行时间 ()))

        .否则

            标签_分钟.标题 ＝ 到文本 (取分钟 (取现行时间 ()))

        .如果结束

    .如果结束

    组合框_闹钟1小时.现行选中项 ＝ 到整数 (读配置项 (取特定目录 (1) ＋ “\配置.ini”, “闹钟”, “闹钟1小时”, ))

    组合框_闹钟1分钟.现行选中项 ＝ 到整数 (读配置项 (取特定目录 (1) ＋ “\配置.ini”, “闹钟”, “闹钟1分钟”, ))

    编辑框_闹钟1提醒.内容 ＝ 读配置项 (取特定目录 (1) ＋ “\配置.ini”, “闹钟”, “闹钟1提醒”, )

    .如果 (读配置项 (取特定目录 (1) ＋ “\配置.ini”, “闹钟”, “闹钟1开”, ) ＝ “真”)

        选择框_闹钟1开.选中 ＝ 真

    .否则

        选择框_闹钟1开.选中 ＝ 假

    .如果结束

    .如果 (读配置项 (取特定目录 (1) ＋ “\配置.ini”, “闹钟”, “闹钟1周一”, ) ＝ “真”)

        选择框_闹钟1周一.选中 ＝ 真

    .否则

        选择框_闹钟1周一.选中 ＝ 假

    .如果结束

    .如果 (读配置项 (取特定目录 (1) ＋ “\配置.ini”, “闹钟”, “闹钟1周二”, ) ＝ “真”)

        选择框_闹钟1周二.选中 ＝ 真

    .否则

        选择框_闹钟1周二.选中 ＝ 假

    .如果结束

    .如果 (读配置项 (取特定目录 (1) ＋ “\配置.ini”, “闹钟”, “闹钟1周三”, ) ＝ “真”)

        选择框_闹钟1周三.选中 ＝ 真

    .否则

        选择框_闹钟1周三.选中 ＝ 假

    .如果结束

    .如果 (读配置项 (取特定目录 (1) ＋ “\配置.ini”, “闹钟”, “闹钟1周四”, ) ＝ “真”)

        选择框_闹钟1周四.选中 ＝ 真

    .否则

        选择框_闹钟1周四.选中 ＝ 假

    .如果结束

    .如果 (读配置项 (取特定目录 (1) ＋ “\配置.ini”, “闹钟”, “闹钟1周五”, ) ＝ “真”)

        选择框_闹钟1周五.选中 ＝ 真

    .否则

        选择框_闹钟1周五.选中 ＝ 假

    .如果结束

    .如果 (读配置项 (取特定目录 (1) ＋ “\配置.ini”, “闹钟”, “闹钟1周六”, ) ＝ “真”)

        选择框_闹钟1周六.选中 ＝ 真

    .否则

        选择框_闹钟1周六.选中 ＝ 假

    .如果结束

    .如果 (读配置项 (取特定目录 (1) ＋ “\配置.ini”, “闹钟”, “闹钟1周日”, ) ＝ “真”)

        选择框_闹钟1周日.选中 ＝ 真

    .否则

        选择框_闹钟1周日.选中 ＝ 假

    .如果结束

    组合框_闹钟2小时.现行选中项 ＝ 到整数 (读配置项 (取特定目录 (1) ＋ “\配置.ini”, “闹钟”, “闹钟2小时”, ))

    组合框_闹钟2分钟.现行选中项 ＝ 到整数 (读配置项 (取特定目录 (1) ＋ “\配置.ini”, “闹钟”, “闹钟2分钟”, ))

    编辑框_闹钟2提醒.内容 ＝ 读配置项 (取特定目录 (1) ＋ “\配置.ini”, “闹钟”, “闹钟2提醒”, )

    .如果 (读配置项 (取特定目录 (1) ＋ “\配置.ini”, “闹钟”, “闹钟2开”, ) ＝ “真”)

        选择框_闹钟2开.选中 ＝ 真

    .否则

        选择框_闹钟2开.选中 ＝ 假

    .如果结束

    .如果 (读配置项 (取特定目录 (1) ＋ “\配置.ini”, “闹钟”, “闹钟2周一”, ) ＝ “真”)

        选择框_闹钟2周一.选中 ＝ 真

    .否则

        选择框_闹钟2周一.选中 ＝ 假

    .如果结束

    .如果 (读配置项 (取特定目录 (1) ＋ “\配置.ini”, “闹钟”, “闹钟2周二”, ) ＝ “真”)

        选择框_闹钟2周二.选中 ＝ 真

    .否则

        选择框_闹钟2周二.选中 ＝ 假

    .如果结束

    .如果 (读配置项 (取特定目录 (1) ＋ “\配置.ini”, “闹钟”, “闹钟2周三”, ) ＝ “真”)

        选择框_闹钟2周三.选中 ＝ 真

    .否则

        选择框_闹钟2周三.选中 ＝ 假

    .如果结束

    .如果 (读配置项 (取特定目录 (1) ＋ “\配置.ini”, “闹钟”, “闹钟2周四”, ) ＝ “真”)

        选择框_闹钟2周四.选中 ＝ 真

    .否则

        选择框_闹钟2周四.选中 ＝ 假

    .如果结束

    .如果 (读配置项 (取特定目录 (1) ＋ “\配置.ini”, “闹钟”, “闹钟2周五”, ) ＝ “真”)

        选择框_闹钟2周五.选中 ＝ 真

    .否则

        选择框_闹钟2周五.选中 ＝ 假

    .如果结束

    .如果 (读配置项 (取特定目录 (1) ＋ “\配置.ini”, “闹钟”, “闹钟2周六”, ) ＝ “真”)

        选择框_闹钟2周六.选中 ＝ 真

    .否则

        选择框_闹钟2周六.选中 ＝ 假

    .如果结束

    .如果 (读配置项 (取特定目录 (1) ＋ “\配置.ini”, “闹钟”, “闹钟2周日”, ) ＝ “真”)

        选择框_闹钟2周日.选中 ＝ 真

    .否则

        选择框_闹钟2周日.选中 ＝ 假

    .如果结束

    _选择框_闹钟1开_被单击 ()

    _选择框_闹钟2开_被单击 ()

.否则

    .如果 (取文本长度 (到文本 (取小时 (取现行时间 ()))) ＝ 1)

        标签_小时.标题 ＝ “0” ＋ 到文本 (取小时 (取现行时间 ()))

    .否则

        标签_小时.标题 ＝ 到文本 (取小时 (取现行时间 ()))

    .如果结束

    .如果 (取文本长度 (到文本 (取分钟 (取现行时间 ()))) ＝ 1)

        标签_分钟.标题 ＝ “0” ＋ 到文本 (取分钟 (取现行时间 ()))

    .否则

        标签_分钟.标题 ＝ 到文本 (取分钟 (取现行时间 ()))

    .如果结束

    _组合框_闹钟1小时_列表项被选择 ()

    _组合框_闹钟1分钟_列表项被选择 ()

    _编辑框_闹钟1提醒_内容被改变 ()

    _编辑框_闹钟2提醒_内容被改变 ()

    _选择框_闹钟1周一_被单击 ()

    _选择框_闹钟1周二_被单击 ()

    _选择框_闹钟1周三_被单击 ()

    _选择框_闹钟1周四_被单击 ()

    _选择框_闹钟1周五_被单击 ()

.如果结束

置随机数种子 ()

随机数 ＝ 取随机数 (1, 5)

置托盘图标 (#右下角图标, “缘点小助理”)

.子程序 _图形按钮_关闭_被单击

置托盘图标 (, )

结束 ()

.子程序 _图形按钮_最小化_被单击

可视 ＝ 假

.子程序 _图形按钮_小时加_被单击

.如果 (到整数 (标签_小时.标题) ＝ 23)

    标签_小时.标题 ＝ “00”

.否则

    .如果 (取文本长度 (到文本 (到整数 (标签_小时.标题) ＋ 1)) ＝ 1)

        标签_小时.标题 ＝ “0” ＋ 到文本 (到整数 (标签_小时.标题) ＋ 1)

    .否则

        标签_小时.标题 ＝ 到文本 (到整数 (标签_小时.标题) ＋ 1)

    .如果结束

.如果结束

.子程序 _图形按钮_分钟加_被单击

.如果 (到整数 (标签_分钟.标题) ＝ 59)

    标签_分钟.标题 ＝ “00”

.否则

    .如果 (取文本长度 (到文本 (到整数 (标签_分钟.标题) ＋ 1)) ＝ 1)

        标签_分钟.标题 ＝ “0” ＋ 到文本 (到整数 (标签_分钟.标题) ＋ 1)

    .否则

        标签_分钟.标题 ＝ 到文本 (到整数 (标签_分钟.标题) ＋ 1)

    .如果结束

.如果结束

.子程序 _图形按钮_小时减_被单击

.如果 (到整数 (标签_小时.标题) ＝ 0)

    标签_小时.标题 ＝ “23”

.否则

    .如果 (取文本长度 (到文本 (到整数 (标签_小时.标题) － 1)) ＝ 1)

        标签_小时.标题 ＝ “0” ＋ 到文本 (到整数 (标签_小时.标题) － 1)

    .否则

        标签_小时.标题 ＝ 到文本 (到整数 (标签_小时.标题) － 1)

    .如果结束

.如果结束

.子程序 _图形按钮_分钟减_被单击

.如果 (到整数 (标签_分钟.标题) ＝ 0)

    标签_分钟.标题 ＝ “59”

.否则

    .如果 (取文本长度 (到文本 (到整数 (标签_分钟.标题) － 1)) ＝ 1)

        标签_分钟.标题 ＝ “0” ＋ 到文本 (到整数 (标签_分钟.标题) － 1)

    .否则

        标签_分钟.标题 ＝ 到文本 (到整数 (标签_分钟.标题) － 1)

    .如果结束

.如果结束

.子程序 _透明标签_提示_鼠标左键被按下, 逻辑型

.参数 横向位置, 整数型

.参数 纵向位置, 整数型

.参数 功能键状态, 整数型

发送信息 (161, 2, 0)

.子程序 _图形按钮_立即启用_被单击

.如果 (取文本长度 (到文本 (取小时 (取现行时间 ()))) ＝ 1)

    小时更正 ＝ “0” ＋ 到文本 (取小时 (取现行时间 ()))

.否则

    小时更正 ＝ 到文本 (取小时 (取现行时间 ()))

.如果结束

.如果 (取文本长度 (到文本 (取分钟 (取现行时间 ()))) ＝ 1)

    分钟更正 ＝ “0” ＋ 到文本 (取分钟 (取现行时间 ()))

.否则

    分钟更正 ＝ 到文本 (取分钟 (取现行时间 ()))

.如果结束

透明标签_提示.文本颜色 ＝ #白色

图形按钮_小时加.可视 ＝ 假

图形按钮_分钟减.可视 ＝ 假

图形按钮_分钟加.可视 ＝ 假

图形按钮_小时减.可视 ＝ 假

图形按钮_立即启用.可视 ＝ 假

.如果 (小时更正 ＝ 标签_小时.标题 且 分钟更正 ＝ 标签_分钟.标题)

    透明标签_倒计时.标题 ＝ “30”

    透明标签_提示.标题 ＝ “距离关机还有”

    透明标签_秒.可视 ＝ 真

    透明标签_倒计时.可视 ＝ 真

    时钟_定时关机短.时钟周期 ＝ 1000

.否则

    .如果 (取时间间隔 (到时间 (到文本 (取年份 (取现行时间 ())) ＋ “年” ＋ 到文本 (取月份 (取现行时间 ())) ＋ “月” ＋ 到文本 (取日 (取现行时间 ())) ＋ “日” ＋ 标签_小时.标题 ＋ “时” ＋ 标签_分钟.标题 ＋ “分” ＋ 到文本 (取秒 (取现行时间 ())) ＋ “秒”), 取现行时间 (), 8) ＜ 0)

        透明标签_提示.标题 ＝ “将在 ” ＋ 标签_小时.标题 ＋ “：” ＋ 标签_分钟.标题 ＋ “ 关机！”

        时钟_定时关机长.时钟周期 ＝ 1000

    .否则

        透明标签_提示.标题 ＝ “距离关机还有”

        透明标签_秒.可视 ＝ 真

        透明标签_倒计时.标题 ＝ 到文本 (取时间间隔 (到时间 (到文本 (取年份 (取现行时间 ())) ＋ “年” ＋ 到文本 (取月份 (取现行时间 ())) ＋ “月” ＋ 到文本 (取日 (取现行时间 ())) ＋ “日” ＋ 标签_小时.标题 ＋ “时” ＋ 标签_分钟.标题 ＋ “分” ＋ 到文本 (取秒 (取现行时间 ())) ＋ “秒”), 取现行时间 (), 8))

        透明标签_倒计时.可视 ＝ 真

        时钟_定时关机短.时钟周期 ＝ 1000

    .如果结束

.如果结束

_选择框1_被单击 ()

.子程序 _时钟_定时关机短_周期事件

.如果 (取文本长度 (到文本 (到整数 (透明标签_倒计时.标题) － 1)) ＝ 1)

    透明标签_倒计时.标题 ＝ “0” ＋ 到文本 (到整数 (透明标签_倒计时.标题) － 1)

.否则

    透明标签_倒计时.标题 ＝ 到文本 (到整数 (透明标签_倒计时.标题) － 1)

.如果结束

.如果真 (透明标签_倒计时.标题 ＝ “00”)

    时钟_定时关机短.时钟周期 ＝ 0

    关闭系统 (1, )

.如果真结束

.子程序 _时钟_定时关机长_周期事件

.如果 (取文本长度 (到文本 (取小时 (取现行时间 ()))) ＝ 1)

    小时更正 ＝ “0” ＋ 到文本 (取小时 (取现行时间 ()))

.否则

    小时更正 ＝ 到文本 (取小时 (取现行时间 ()))

.如果结束

.如果 (取文本长度 (到文本 (取分钟 (取现行时间 ()))) ＝ 1)

    分钟更正 ＝ “0” ＋ 到文本 (取分钟 (取现行时间 ()))

.否则

    分钟更正 ＝ 到文本 (取分钟 (取现行时间 ()))

.如果结束

.如果真 (小时更正 ＝ 标签_小时.标题 且 分钟更正 ＝ 标签_分钟.标题)

    关闭系统 (1, )

.如果真结束

.子程序 _图形按钮_取消关机_被单击

图形按钮_立即启用.可视 ＝ 真

时钟_定时关机长.时钟周期 ＝ 0

时钟_定时关机短.时钟周期 ＝ 0

透明标签_倒计时.可视 ＝ 假

透明标签_秒.可视 ＝ 假

透明标签_提示.文本颜色 ＝ #黑色

透明标签_提示.标题 ＝ “设置到点关机时间”

图形按钮_小时加.可视 ＝ 真

图形按钮_分钟减.可视 ＝ 真

图形按钮_分钟加.可视 ＝ 真

图形按钮_小时减.可视 ＝ 真

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

.如果 (选择框1.选中)

    写配置项 (取特定目录 (1) ＋ “\配置.ini”, “定时关机”, “每天都执行此关机设置”, “真”)

    写配置项 (取特定目录 (1) ＋ “\配置.ini”, “定时关机”, “时钟”, 标签_小时.标题)

    写配置项 (取特定目录 (1) ＋ “\配置.ini”, “定时关机”, “分钟”, 标签_分钟.标题)

.否则

    写配置项 (取特定目录 (1) ＋ “\配置.ini”, “定时关机”, “每天都执行此关机设置”, “假”)

.如果结束

.子程序 __启动窗口_托盘事件

.参数 操作类型, 整数型

可视 ＝ 真

.子程序 _按钮1_被单击

执行 (, “calc”, , “C:\Windows\system32”, )

.子程序 _按钮2_被单击

执行 (, “cleanmgr”, , “C:\Windows\system32”, )

.子程序 _按钮3_被单击

执行 (, “control”, , “C:\Windows\system32”, )

.子程序 _按钮4_被单击

执行 (, “LaunchTM”, , “C:\Windows\system32”, )

.子程序 _按钮5_被单击

执行 (, “notepad”, , “C:\Windows\system32”, )

.子程序 _按钮6_被单击

执行 (, “SndVol”, , “C:\Windows\system32”, )

.子程序 _按钮9_被单击

执行 (, “write”, , “C:\Windows\system32”, )

.子程序 _按钮8_被单击

执行 (#系统文件, “devmgmt.msc”, , , )

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

写配置项 (取特定目录 (1) ＋ “\配置.ini”, “闹钟”, “闹钟1开”, 到文本 (选择框_闹钟1开.选中))

.如果 (选择框_闹钟1开.选中)

    时钟_闹钟1.时钟周期 ＝ 1000

.否则

    时钟_闹钟1.时钟周期 ＝ 0

.如果结束

.子程序 _选择框_闹钟2开_被单击

写配置项 (取特定目录 (1) ＋ “\配置.ini”, “闹钟”, “闹钟2开”, 到文本 (选择框_闹钟2开.选中))

.如果 (选择框_闹钟2开.选中)

    时钟_闹钟2.时钟周期 ＝ 1000

.否则

    时钟_闹钟1.时钟周期 ＝ 0

.如果结束

' 本源码来自易语言资源网(www.5A5X.com)

.子程序 _组合框_闹钟1小时_列表项被选择

写配置项 (取特定目录 (1) ＋ “\配置.ini”, “闹钟”, “闹钟1小时”, 到文本 (组合框_闹钟1小时.现行选中项))

.子程序 _组合框_闹钟1分钟_列表项被选择

写配置项 (取特定目录 (1) ＋ “\配置.ini”, “闹钟”, “闹钟1分钟”, 到文本 (组合框_闹钟1分钟.现行选中项))

.子程序 _组合框_闹钟2小时_列表项被选择

写配置项 (取特定目录 (1) ＋ “\配置.ini”, “闹钟”, “闹钟2小时”, 到文本 (组合框_闹钟2小时.现行选中项))

.子程序 _组合框_闹钟2分钟_列表项被选择

写配置项 (取特定目录 (1) ＋ “\配置.ini”, “闹钟”, “闹钟2分钟”, 到文本 (组合框_闹钟2分钟.现行选中项))

.子程序 _编辑框_闹钟1提醒_内容被改变

写配置项 (取特定目录 (1) ＋ “\配置.ini”, “闹钟”, “闹钟1提醒”, 编辑框_闹钟1提醒.内容)

' 本源码来自易语言资源网(www.5A5X.com)

.子程序 _编辑框_闹钟2提醒_内容被改变

写配置项 (取特定目录 (1) ＋ “\配置.ini”, “闹钟”, “闹钟2提醒”, 编辑框_闹钟2提醒.内容)

.子程序 _选择框_闹钟1周一_被单击

写配置项 (取特定目录 (1) ＋ “\配置.ini”, “闹钟”, “闹钟1周一”, 到文本 (选择框_闹钟1周一.选中))

.子程序 _选择框_闹钟1周二_被单击

写配置项 (取特定目录 (1) ＋ “\配置.ini”, “闹钟”, “闹钟1周二”, 到文本 (选择框_闹钟1周二.选中))

.子程序 _选择框_闹钟1周三_被单击

写配置项 (取特定目录 (1) ＋ “\配置.ini”, “闹钟”, “闹钟1周三”, 到文本 (选择框_闹钟1周三.选中))

.子程序 _选择框_闹钟1周四_被单击

写配置项 (取特定目录 (1) ＋ “\配置.ini”, “闹钟”, “闹钟1周四”, 到文本 (选择框_闹钟1周四.选中))

.子程序 _选择框_闹钟1周五_被单击

写配置项 (取特定目录 (1) ＋ “\配置.ini”, “闹钟”, “闹钟1周五”, 到文本 (选择框_闹钟1周五.选中))

.子程序 _选择框_闹钟1周六_被单击

写配置项 (取特定目录 (1) ＋ “\配置.ini”, “闹钟”, “闹钟1周六”, 到文本 (选择框_闹钟1周六.选中))

.子程序 _选择框_闹钟1周日_被单击

写配置项 (取特定目录 (1) ＋ “\配置.ini”, “闹钟”, “闹钟1周日”, 到文本 (选择框_闹钟1周日.选中))

.子程序 _选择框_闹钟2周一_被单击

写配置项 (取特定目录 (1) ＋ “\配置.ini”, “闹钟”, “闹钟2周一”, 到文本 (选择框_闹钟2周一.选中))

.子程序 _选择框_闹钟2周二_被单击

写配置项 (取特定目录 (1) ＋ “\配置.ini”, “闹钟”, “闹钟2周二”, 到文本 (选择框_闹钟2周二.选中))

.子程序 _选择框_闹钟2周三_被单击

写配置项 (取特定目录 (1) ＋ “\配置.ini”, “闹钟”, “闹钟2周三”, 到文本 (选择框_闹钟2周三.选中))

.子程序 _选择框_闹钟2周四_被单击

写配置项 (取特定目录 (1) ＋ “\配置.ini”, “闹钟”, “闹钟2周四”, 到文本 (选择框_闹钟2周四.选中))

.子程序 _选择框_闹钟2周五_被单击

写配置项 (取特定目录 (1) ＋ “\配置.ini”, “闹钟”, “闹钟2周五”, 到文本 (选择框_闹钟2周五.选中))

.子程序 _选择框_闹钟2周六_被单击

写配置项 (取特定目录 (1) ＋ “\配置.ini”, “闹钟”, “闹钟2周六”, 到文本 (选择框_闹钟2周六.选中))

.子程序 _选择框_闹钟2周日_被单击

写配置项 (取特定目录 (1) ＋ “\配置.ini”, “闹钟”, “闹钟2周日”, 到文本 (选择框_闹钟2周日.选中))

.子程序 _时钟_闹钟1_周期事件

.判断开始 (选择框_闹钟1周一.选中 且 取星期几 (取现行时间 ()) ＝ 2)

    闹钟1响起 ()

.判断 (选择框_闹钟1周二.选中 且 取星期几 (取现行时间 ()) ＝ 3)

    闹钟1响起 ()

.判断 (选择框_闹钟1周三.选中 且 取星期几 (取现行时间 ()) ＝ 4)

    闹钟1响起 ()

.判断 (选择框_闹钟1周四.选中 且 取星期几 (取现行时间 ()) ＝ 5)

    闹钟1响起 ()

.判断 (选择框_闹钟1周五.选中 且 取星期几 (取现行时间 ()) ＝ 6)

    闹钟1响起 ()

.判断 (选择框_闹钟1周六.选中 且 取星期几 (取现行时间 ()) ＝ 7)

    闹钟1响起 ()

.判断 (选择框_闹钟1周日.选中 且 取星期几 (取现行时间 ()) ＝ 1)

    闹钟1响起 ()

.默认

.判断结束

.子程序 闹钟1响起

.如果真 (组合框_闹钟1小时.现行选中项 ＝ 取小时 (取现行时间 ()))

    .如果真 (组合框_闹钟1分钟.现行选中项 ＝ 取分钟 (取现行时间 ()) 且 取秒 (取现行时间 ()) ＝ 0)

        .判断开始 (随机数 ＝ 1)

            播放MID (-1, , #闹钟铃声1)

        .判断 (随机数 ＝ 2)

            播放MID (-1, , #闹钟铃声2)

        .判断 (随机数 ＝ 3)

            播放MID (-1, , #闹钟铃声3)

        .判断 (随机数 ＝ 4)

            播放MID (-1, , #闹钟铃声4)

        .默认

            播放MID (-1, , #闹钟铃声5)

        .判断结束

        信息框 (编辑框_闹钟1提醒.内容, 0, , )

        停止播放 ()

    .如果真结束

.如果真结束

.子程序 _时钟_闹钟2_周期事件

.判断开始 (选择框_闹钟2周一.选中 且 取星期几 (取现行时间 ()) ＝ 2)

    闹钟2响起 ()

.判断 (选择框_闹钟2周二.选中 且 取星期几 (取现行时间 ()) ＝ 3)

    闹钟2响起 ()

.判断 (选择框_闹钟2周三.选中 且 取星期几 (取现行时间 ()) ＝ 4)

    闹钟2响起 ()

.判断 (选择框_闹钟2周四.选中 且 取星期几 (取现行时间 ()) ＝ 5)

    闹钟2响起 ()

.判断 (选择框_闹钟2周五.选中 且 取星期几 (取现行时间 ()) ＝ 6)

    闹钟2响起 ()

.判断 (选择框_闹钟2周六.选中 且 取星期几 (取现行时间 ()) ＝ 7)

    闹钟2响起 ()

.判断 (选择框_闹钟2周日.选中 且 取星期几 (取现行时间 ()) ＝ 1)

    闹钟2响起 ()

.默认

    ' 本源码来自易语言资源网(www.5A5X.com)

.判断结束

.子程序 闹钟2响起

.如果真 (组合框_闹钟2小时.现行选中项 ＝ 取小时 (取现行时间 ()))

    .如果真 (组合框_闹钟2分钟.现行选中项 ＝ 取分钟 (取现行时间 ()) 且 取秒 (取现行时间 ()) ＝ 0)

        .判断开始 (随机数 ＝ 1)

            播放MID (-1, , #闹钟铃声1)

        .判断 (随机数 ＝ 2)

            播放MID (-1, , #闹钟铃声2)

        .判断 (随机数 ＝ 3)

            播放MID (-1, , #闹钟铃声3)

        .判断 (随机数 ＝ 4)

            播放MID (-1, , #闹钟铃声4)

        .默认

            播放MID (-1, , #闹钟铃声5)

        .判断结束

        信息框 (编辑框_闹钟2提醒.内容, 0, , )

        停止播放 ()

    .如果真结束

.如果真结束

.子程序 _图形按钮_菜单_被单击

图形按钮_菜单.可视 ＝ 假

.如果真 (是否与互联网连接 ())

    执行 (, “tencent://Message/?Uin=723173708”, , , )

.如果真结束