.版本 2 .支持库 iext .支持库 CnCalendar .支持库 shell .程序集 窗口程序集1 .程序集变量 年, 文本型 .程序集变量 月, 文本型 .程序集变量 日, 文本型 .程序集变量 星期, 文本型 .程序集变量 星期j, 文本型 .子程序 __启动窗口_创建完毕 _启动窗口.置外形图片 (#图片1, ) _启动窗口.置外形图片 (#图片1, ) 年 ＝ 到文本 (取年份 (取现行时间 ())) 月 ＝ 到文本 (取月份 (取现行时间 ())) 日 ＝ 到文本 (取日 (取现行时间 ())) 星期 ＝ 到文本 (取星期几 (取现行时间 ())) .如果 (到数值 (日) ＜ 10) 透明标签1.标题 ＝ “0” ＋ 日 .否则 透明标签1.标题 ＝ 日 .如果结束 .如果 (星期 ＝ “6” 或 星期 ＝ “1”)' 本源码来自三叶资源网(www.sanye.cx) 透明标签1.文本颜色 ＝ #红色 星期标签.文本颜色 ＝ #红色 .否则 透明标签1.文本颜色 ＝ #黑色 星期标签.文本颜色 ＝ #黑色 .如果结束 .判断开始 (星期 ＝ “7”) 星期j ＝ “星期六” .判断 (星期 ＝ “1”) 星期j ＝ “星期日” .判断 (星期 ＝ “6”) 星期j ＝ “星期五” .判断 (星期 ＝ “5”) 星期j ＝ “星期四” .判断 (星期 ＝ “4”) 星期j ＝ “星期三” .判断 (星期 ＝ “3”) 星期j ＝ “星期二” .判断 (星期 ＝ “2”) 星期j ＝ “星期一” .默认 .判断结束 年标签.标题 ＝ 年 ＋ “年” ＋ 月 ＋ “月” 星期标签.标题 ＝ 星期j 农历标签.标题 ＝ “农历：” ＋ 到文本 (农历月历1.农历年) ＋ “年” ＋ 到文本 (农历月历1.农历月份) ＋ 到文本 (农历月历1.农历日份) 节气标签.标题 ＝ 农历月历1.节气 自动启动.标题 ＝ 读配置项 (取运行目录 () ＋ “\bt.ini”, “1”, “1”, ) _启动窗口.左边 ＝ 取屏幕宽度 () － _启动窗口.宽度 _启动窗口.顶边 ＝ 0 .子程序 _透明标签1_鼠标右键被放开, 逻辑型 .参数 横向位置, 整数型 .参数 纵向位置, 整数型 .参数 功能键状态, 整数型 弹出菜单 (cd, , ) .子程序 _退出_被选择 销毁 () .子程序 __启动窗口_鼠标右键被放开, 逻辑型 .参数 横向位置, 整数型 .参数 纵向位置, 整数型 .参数 功能键状态, 整数型 弹出菜单 (cd, , ) .子程序 _年标签_鼠标右键被放开, 逻辑型 .参数 横向位置, 整数型 .参数 纵向位置, 整数型 .参数 功能键状态, 整数型 弹出菜单 (cd, , ) .子程序 _星期标签_鼠标右键被放开, 逻辑型 .参数 横向位置, 整数型 .参数 纵向位置, 整数型 .参数 功能键状态, 整数型 弹出菜单 (cd, , ) .子程序 _农历标签_鼠标右键被放开, 逻辑型 .参数 横向位置, 整数型 .参数 纵向位置, 整数型 .参数 功能键状态, 整数型 弹出菜单 (cd, , ) .子程序 _自动启动_被选择 .如果 (自动启动.标题 ＝ “自动启动”) 移动文件 (取特定目录 (3) ＋ “\日历.lnk”, 取特定目录 (7) ＋ “\日历.lnk”) 自动启动.标题 ＝ “取消自动运行” 写配置项 (取运行目录 () ＋ “\bt.ini”, “1”, “1”, “取消自动运行”) .否则 移动文件 (取特定目录 (7) ＋ “\日历.lnk”, 取特定目录 (3) ＋ “\日历.lnk”) 自动启动.标题 ＝ “自动启动” 写配置项 (取运行目录 () ＋ “\bt.ini”, “1”, “1”, “自动启动”) .如果结束 .子程序 _节气标签_鼠标右键被放开, 逻辑型 .参数 横向位置, 整数型 .参数 纵向位置, 整数型 .参数 功能键状态, 整数型 弹出菜单 (cd, , ) .子程序 _时钟1_周期事件 _启动窗口.置外形图片 (#图片1, ) 年 ＝ 到文本 (取年份 (取现行时间 ())) 月 ＝ 到文本 (取月份 (取现行时间 ())) 日 ＝ 到文本 (取日 (取现行时间 ())) 星期 ＝ 到文本 (取星期几 (取现行时间 ())) .如果 (到数值 (日) ＜ 10) 透明标签1.标题 ＝ “0” ＋ 日 .否则 透明标签1.标题 ＝ 日 .如果结束 .如果 (星期 ＝ “6” 或 星期 ＝ “1”) 透明标签1.文本颜色 ＝ #红色 星期标签.文本颜色 ＝ #红色 .否则 透明标签1.文本颜色 ＝ #黑色 星期标签.文本颜色 ＝ #黑色 .如果结束 .判断开始 (星期 ＝ “7”) 星期j ＝ “星期六” .判断 (星期 ＝ “1”) 星期j ＝ “星期日” .判断 (星期 ＝ “6”) 星期j ＝ “星期五” .判断 (星期 ＝ “5”) 星期j ＝ “星期四” .判断 (星期 ＝ “4”) 星期j ＝ “星期三” .判断 (星期 ＝ “3”) 星期j ＝ “星期二” .判断 (星期 ＝ “2”) 星期j ＝ “星期一” .默认 .判断结束 年标签.标题 ＝ 年 ＋ “年” ＋ 月 ＋ “月” 星期标签.标题 ＝ 星期j 农历标签.标题 ＝ “农历：” ＋ 到文本 (农历月历1.农历年) ＋ “年” ＋ 到文本 (农历月历1.农历月份) ＋ 到文本 (农历月历1.农历日份) 节气标签.标题 ＝ 农历月历1.节气 .子程序 __启动窗口_位置被改变 .判断开始 (_启动窗口.左边 ＜ 0) _启动窗口.左边 ＝ -170 .判断 (_启动窗口.左边 ＞ 取屏幕宽度 () － _启动窗口.宽度) _启动窗口.左边 ＝ 取屏幕宽度 () － 5 .判断 (_启动窗口.顶边 ＜ 0) _启动窗口.顶边 ＝ -230 .默认 .判断结束 .子程序 __启动窗口_鼠标位置被移动, 逻辑型 .参数 横向位置, 整数型 .参数 纵向位置, 整数型 .参数 功能键状态, 整数型 .判断开始 (_启动窗口.左边 ＝ -170) _启动窗口.左边 ＝ 0 .判断 (_启动窗口.左边 ＝ 取屏幕宽度 () － 5) _启动窗口.左边 ＝ 取屏幕宽度 () － _启动窗口.宽度 .判断 (_启动窗口.顶边 ＝ -230) _启动窗口.顶边 ＝ 0 .默认 .判断结束