[AppleScript] 纯文本查看 复制代码
.版本 2
.支持库 EThread
.支持库 spec
.程序集 窗口程序集_启动窗口
.程序集变量 启动时间, 整数型
.子程序 __启动窗口_创建完毕
启动时间 = 取启动时间 ()
启动线程 (&运行时间, , )
.子程序 运行时间
.局部变量 a
.局部变量 当前时间
.局部变量 已运行秒数
.局部变量 提示文本, 文本型
.局部变量 分钟
.局部变量 小时
.局部变量 天
.局部变量 月
.局部变量 年
.局部变量 秒
.判断循环首 (a < 1)
当前时间 = 取启动时间 ()
已运行秒数 = (当前时间 - 启动时间) ÷ 1000
分钟 = 已运行秒数 ÷ 60
小时 = 分钟 ÷ 60
天 = 小时 ÷ 24
月 = 天 ÷ 30
年 = 月 ÷ 12
秒 = 已运行秒数 % 60
分钟 = 分钟 % 60
小时 = 小时 % 24
天 = 天 % 24
月 = 月 % 30
年 = 年 % 12
提示文本 = “已稳定运行” + 到文本 (年) + “年” + 到文本 (月) + “个月” + 到文本 (天) + “天” + 到文本 (小时) + “小时” + 到文本 (分钟) + “分钟” + 到文本 (秒) + “秒”
标签1.标题 = 提示文本
延迟 (1000)
.判断循环尾 ()