.版本 2
.支持库 shell
.程序集 窗口程序集1
.程序集变量 日, 文本型
.程序集变量 打开日期, 文本型
.程序集变量 时间, 文本型
.子程序 __启动窗口_创建完毕
时间 = 到文本 (取现行时间 ())
日 = 到文本 (取日 (到时间 (时间)))
打开日期 = 到文本 (读入文件 (取特定目录 (10) + “\” + “配置.hjs”))
.如果 (日 = 打开日期)
信息框 (“今天您已打开过此软件”, #信息图标, “您今天已打开过此软件”) ' 按自己要怎么提示写
结束 ()
.否则
.如果结束
.子程序 __启动窗口_可否被关闭, 逻辑型
写到文件 (取特定目录 (10) + “\” + “配置.hjs”, 到字节集 (日)) ' 这个 配置.hjs 可以随便写的
返回 (真)
这样子就可以了