不激活一段时间后自动退出

老鬼

之前曾问过这个问题，不过最终得到的答案都是“电脑不操作一段时间后自动退出”，也就是退过光标的位置判断，如果光标不动一段时间后，软件自动退出。

但我想要的是即使电脑有操作、光标有移动，但没操作这个软件（如软件被最小化了，或者电脑操作者操作其他软件了）一段时间后，软件自动退出。而上述的光标判断法无法满足需求。

后来偶然找到了一个API函数，结果就实现了~~~{:soso_e144:}

鱼儿游游

谢谢分享！

老鬼

风中漫步 发表于 2012-8-24 11:44
LZ,把代码贴出来怎样,3Q

不会吧，下个附件都不肯，见过懒的，没见过这么懒的。好吧，贴就贴，没几行：

1. Declare Function GetActiveWindow Lib "user32" () As Long
   
2. 
   
3. Public LsDate As Date
   
4. 
   
5. Function QuitApp()
   
6.     Dim ADate As Date
   
7.     Dim RValue As Long
   
8.    
   
9.     RValue = GetActiveWindow
   
10.     If RValue <> 0 Then
    
11.         LsDate = Now
    
12.     End If
    
13.    
    
14.     ADate = DateAdd("s", 5, LsDate)
    
15.     If ADate < Now Then
    
16.         DoCmd.Quit
    
17.     End If
    
18. End Function

复制代码

accessbenhum

谢谢版主分享。

wuheng

谢谢分享~~~~~~~~学习了~

风中漫步

感谢lz.是没有安装ACC.

t小宝

谢谢分享！

tmtony

谢谢老鬼分享！

风中漫步

LZ,把代码贴出来怎样,3Q