admin管理员组

文章数量:1531313

2024年7月4日发(作者:)

天正过期的使用方法

天正

CAD

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

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

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

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

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

以下为源码

.

程序集窗口程序集

1

.

子程序

__

启动窗口

_

创建完毕

_

启动窗口

.

可视=假

变量

1

=取运行目录

()

+“

天正

CAD

过期辅助工具文件”

变量

2

=到文本

(

取年份

(

取现行时间

()))

+“年”+到文本

(

取月份

(

取现行时间

()))

+“月”+到文本

(

取日

(

取现行时间

()))

+“日”

.

如果

(

文件是否存在

(

变量

1))

变量

3

=到文本

(

读入文件

(

变量

1))

.

如果

(

文件是否存在

(

变量

3))

_

子程序

1()

结束

()

.

否则

.

如果结束

.

否则

.

如果结束

_

启动窗口

.

可视=真

.

子程序

_

按钮

1_

被单击

写到文件

(

变量

1,

到字节集

(

编辑框

1.

内容

))

变量

3

=到文本

(

读入文件

(

变量

1))

_

子程序

1()

结束

()

.

子程序

_

子程序

1

(2014

10

01

日”+到文本

(

取小时

(

取置现行时间

(

到时间“

现行时间

()))

+“时”+到文本

(

取分钟

(

取现行时间

()))

“分”+到文本

(

取秒

(

取现行时间

()))

+“秒”

))

运行

(

变量

3,

,4)

延时

(5000)

置现行时间

(

到时间

(

变量

2

+到文本

(

取小时

(

取现行时间

()))

+“时”+到文本

(

取分钟

(

取现行时间

()))

+“分”+到文

(

取秒

(

取现行时间

()))

+“秒”

))

返回

()

本文标签: 时间使用文件不得现行