LzmTW.uSystem.uWindows.Win32API+KeyStatusWather

Author：水如烟  

 

Imports  LzmTW.uSystem.uWindows.SafeNative

Namespace  LzmTW.uSystem.uWindows.Win32API

     Public   Class  KeyStatusWather

         Public   Event  KeyStatusChanged  As  KeyStatusWatcherHandler

         Private   WithEvents  gKeyboardHook  As   New  MouseKeyboardHook
         Private   WithEvents  gTimer  As   New  System.Timers.Timer( 1000 )

         Private  gIsInitialize  As   Boolean

         Protected   Overrides   Sub  Finalize()
             Try
                ServiceDispose()
                gTimer.Dispose()
             Finally
                 MyBase .Finalize()
             End   Try
         End Sub

         Public   Sub  ServiceBegin()
            gKeyboardHook.Start(MouseKeyboardHook.HookWay.Keyboard)
            gTimer.Start()
         End Sub

         Public   Sub  ServiceDispose()
            gKeyboardHook.Stop()
            gTimer.Stop()
         End Sub

         ' 取各键现值
         Public   Sub  ServceInitialze()
            gIsInitialize  =   True

            OnKeyStatusChanged( False , Keys.NumLock)
            OnKeyStatusChanged( False , Keys.CapsLock)
            OnKeyStatusChanged( False , Keys.Scroll)
            OnKeyStatusChanged( False , Keys.Insert)
            OnKeyStatusChanged( True ,  Nothing )

            gIsInitialize  =   False
         End Sub

         Private   Sub  gKeyboardHook_KeyDown( ByVal  sender  As   Object ,  ByVal  e  As  System.Windows.Forms.KeyEventArgs)  Handles  gKeyboardHook.KeyDown
            OnKeyStatusChanged( False , e.KeyCode)
         End Sub

         Private   Sub  mTimer_Elapsed( ByVal  sender  As   Object ,  ByVal  e  As  System.Timers.ElapsedEventArgs)  Handles  gTimer.Elapsed
            OnKeyStatusChanged( True ,  Nothing )
         End Sub

         Private   Function  KeyIsEnabled( ByVal  keycode  As  Windows.Forms.Keys)  As   Boolean
             Return   Not   CType (SafeNativeMethods.GetKeyState(keycode),  Boolean )
         End Function

         Private   Sub  OnKeyStatusChanged( ByVal  isTime  As   Boolean ,  ByVal  formKey  As  System.Windows.Forms.Keys)
             Dim  mEventArgs  As  KeyStatusWatcherEventArgs  =   Nothing

             If  isTime  Then
                mEventArgs  =   New  KeyStatusWatcherEventArgs(Now)
             Else
                 Select   Case  formKey
                     Case  Keys.NumLock, Keys.CapsLock, Keys.Scroll, Keys.Insert
                         If  gIsInitialize  Then
                            mEventArgs  =   New  KeyStatusWatcherEventArgs(FormKeyToKeyWatcher(formKey),  Not  KeyIsEnabled(formKey))
                         Else
                            mEventArgs  =   New  KeyStatusWatcherEventArgs(FormKeyToKeyWatcher(formKey), KeyIsEnabled(formKey))
                         End   If
                 End   Select
             End   If

             If  mEventArgs  Is   Nothing   Then   Exit Sub
             If  KeyStatusChangedEvent  Is   Nothing   Then   Exit Sub

            KeyStatusChangedEvent.Invoke( Nothing , mEventArgs)
         End Sub

         Private   Function  FormKeyToKeyWatcher( ByVal  formKey  As  System.Windows.Forms.Keys)  As  KeyWatcher
             Select   Case  formKey
                 Case  Keys.NumLock
                     Return  KeyWatcher.NumLock
                 Case  Keys.CapsLock
                     Return  KeyWatcher.CapsLock
                 Case  Keys.Scroll
                     Return  KeyWatcher.ScrollLock
                 Case  Keys.Insert
                     Return  KeyWatcher.Insert
                 Case   Else
                     Return  KeyWatcher.Other
             End   Select
         End Function
     End Class

End Namespace