如何锁住系统时间？急问，40分。在线等待！！！！！！！！！

Question

如何执行运行窗体时，如（form1.frm）时，系统时间不可更改？

Answer 1

timer控件做一个时间记录，当系统时间和记录时间不对时可以判断。

Answer 2

Timer控件取值还是来自于系统，那样判断可能不行。
我想解决的是启用系统时，系统时间锁；
关闭系统时，系统时间解锁。

Answer 3

Private Declare Function SetSystemTime Lib "kernel32" Alias "SetSystemTime" (lpSystemTime As SYSTEMTIME) As Long
在一个timer里，不断的用etSystemTime设置你锁定时的时间

Answer 4

Private Sub Form_Load()
    Text1 = "10:03:00"
End SubPrivate Sub Timer1_Timer()
    If Time > CDate(Text1) Then
        Time = CDate(Text1)
    End If
End Sub双击右下角时间，可以看到时间停止

Answer 5

Private Sub Form_Load()
    Timer1.Interval = 1000
    Text1 = "10:03:00"
End SubPrivate Sub Timer1_Timer()
    If Time > CDate(Text1) Then
        Time = CDate(Text1)
    End If
End Sub