上次在网上看到有人问关于是否可以做一个像WINDOWS的屏保一样的功能,
这段代码应该可以解决这个问题的.
把内容复制到一个窗体中,只要这个窗体运行中,就可以了.代码会调用WINDOWS的函数,应可以实现了.720秒未被使用,系统将会退出,当你你也可以改为系统上锁.
Option Compare Database
Private Declare Function GetLastInputInfo Lib "user32" (plii As LASTINPUTINFO) As Boolean
Private Declare Function GetTickCount Lib "kernel32" () As Long
Private Type LASTINPUTINFO
cbSize As Long
dwTime As Long
End Type
Dim lii As LASTINPUTINFO
Dim zjs, djs
Dim msgcount As Integer
Private Sub Form_Timer()
'此为窗体的计时事件
Dim mytime As Double
lii.cbSize = Len(lii)
GetLastInputInfo lii
mytime = GetTickCount - lii.dwTime
Debug.Print mytime & "ms"
zjs = mytime \ 1000
djs = 7200 - zjs
Me.Txt1 = "离系统关闭时间: " & djs
if djs =0 then
quit
end if
End Sub