锁定系统时间的代码

穿着开裆裤 · 发表于 2012-7-13 11:29:38

本帖最后由穿着开裆裤于 2012-7-13 14:52 编辑

Dim tt, dd
tt = Time
dd = Date
If Command1.Caption = "开始使系统时间暂停" Then
Command1.Caption = "停止暂停，继续运行"
Else
Command1.Caption = "开始使系统时间暂停"
End If
Do
DoEvents
Date = dd
Time = tt

穿着开裆裤 · 发表于 2012-7-13 12:35:06

Dim tt, dd
tt = Time
dd = Date
If Command1.Caption = "开始使系统时间暂停" Then
Command1.Caption = "停止暂停，继续运行"
Else
Command1.Caption = "开始使系统时间暂停"
End If
Do
DoEvents
Date = dd
Time = tt
可以了

穿着开裆裤 · 发表于 2012-7-13 13:09:33

系统时间是被锁定了，但是对软件不管用软件依旧是跑满指定分钟后停止运行。
这是什么情况了？

iceboy · 发表于 2012-7-13 13:34:17

用变速精灵试试

o70078 · 发表于 2012-7-14 16:02:10

很简单，人家那个程序不是依靠系统时间来判断程序运行了多久的

		自动登录	找回密码
密码			立即注册

VBGood网站全文搜索

[经验技巧] 锁定系统时间的代码

点评