[求助][求助]如何自动关闭Access

fannky

楼上的可否说的详细点？

怎样捕获事件？

fannky

我实在不中意灌水，但是看这贴子要沉了，而且还是没有得到答案，不甘心啊

再挺起来……

LucasLynn

以下是引用fannky在2006-5-22 8:30:00的发言：



至于实现如何困难都是题外话，我想知道可行性与方法,3Q

OK，如果你实在感兴趣的话，推荐你查找一下关于API钩子的文章，监控鼠标键盘动作，一般都是通过将自己的程序钩入系统，当鼠标键盘有任何操作时，你的代码将被调用，然后在你的代码中记录最后的操作时间，并判断是否已经超时。如果超时可以通过API直接关闭应用程序。

其实这个可行性没什么好怀疑的，Windows应用程序本身就建立在API的基础上，这是整个Windows编程的基础。

LucasLynn

这里有一段zhuyiwen版主提供的禁用鼠标滚轮的代码，供你参考借鉴API钩入的方法。



Option Compare Database
Option Explicit
Public dk As Boolean
Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
    (ByVal hwnd As Long, _
    ByVal nIndex As Long, _
    ByVal dwNewLong As Long) As Long

Public Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" _
   (ByVal lpPrevWndFunc As Long, _
     ByVal hwnd As Long, _
     ByVal msg As Long, _
     ByVal wParam As Long, _
     ByVal lParam As Long) As Long


Public Const GWL_WNDPROC = -4
Public Const WM_MouseWheel = &H20A
Public lpPrevWndProc As Long
Public CMouse As CMouseWheel

Public Function WindowProc(ByVal hwnd As Long, _
    ByVal uMsg As Long, _
    ByVal wParam As Long, _
    ByVal lParam As Long) As Long

    'Look at the message passed to the window. If it is
    'a mouse wheel message, call the FireMouseWheel procedure
    'in the CMouseWheel class, which in turn raises the MouseWheel
    'event. If the Cancel argument in the form event procedure is
    'set to False, then we process the message normally, otherwise
    'we ignore it.  If the message is something other than the mouse
    'wheel, then process it normally
    Select Case uMsg
        Case WM_MouseWheel
            CMouse.FireMouseWheel
            If CMouse.MouseWheelCancel = False Then
                WindowProc = CallWindowProc(lpPrevWndProc, hwnd, uMsg, wParam, lParam)
            End If


        Case Else
           WindowProc = CallWindowProc(lpPrevWndProc, hwnd, uMsg, wParam, lParam)
    End Select
End Function