关于系统长时间不响应或系统空闭时自动退出的代码

时　间:2008-10-02 23:25:05
作　者:WEIZW55   ID：2173  城市：青浦
摘　要:做一个像WINDOWS的屏保一样的功能
正　文:

上次在网上看到有人问关于是否可以做一个像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