2024年3月28日发(作者：)

天正过期的使用方法

天正

CAD

过期之后，就不能再使用了，而了新的天正，大多数

人都觉得不好用，希望用原来的功能。但是修改时间又很不方便，本

文章主要用易语言编程，编制一个简单的，可以实现保留天正过期前

的很多功能的软件，以下为源码，供各位学习交流。声明：本源码只

在个人兴趣爱好的交流和学习，不得用于商业，不得非法传播。

以下为源码

.

程序集窗口程序集

1

.

子程序

__

启动窗口

_

创建完毕

_

启动窗口

.

可视＝假

变量

1

＝取运行目录

()

＋“

天正

CAD

过期辅助工具文件”

变量

2

＝到文本

(

取年份

(

取现行时间

()))

＋“年”＋到文本

(

取月份

(

取现行时间

()))

＋“月”＋到文本

(

取日

(

取现行时间

()))

＋“日”

.

如果

(

文件是否存在

(

变量

1))

变量

3

＝到文本

(

读入文件

(

变量

1))

.

如果

(

文件是否存在

(

变量

3))

_

子程序

1()

结束

()

.

否则

.

如果结束

.

否则

.

如果结束

_

启动窗口

.

可视＝真

.

子程序

_

按钮

1_

被单击

写到文件

(

变量

1,

到字节集

(

编辑框

1.

内容

))

变量

3

＝到文本

(

读入文件

(

变量

1))

_

子程序

1()

结束

()

.

子程序

_

子程序

1

(2014

年

10

月

01

日”＋到文本

(

取小时

(

取置现行时间

(

到时间“

现行时间

()))

＋“时”＋到文本

(

取分钟

(

取现行时间

()))

＋

“分”＋到文本

(

取秒

(

取现行时间

()))

＋“秒”

))

运行

(

变量

3,

真

,4)

延时

(5000)

置现行时间

(

到时间

(

变量

2

＋到文本

(

取小时

(

取现行时间

()))

＋“时”＋到文本

(

取分钟

(

取现行时间

()))

＋“分”＋到文

本

(

取秒

(

取现行时间

()))

＋“秒”

))

返回

()