moddoevents.bas

来自「入侵检测是近几年发展起来的新型网络安全策略」· BAS 代码 · 共 36 行

Attribute VB_Name = "ModDoEvents"
'****************************************************************************
'人人为我，我为人人
'枕善居汉化收藏整理
'发布日期：2006/12/23
'描    述：非常专业的防火墙源代码
'网    站：http://www.Mndsoft.com/  (VB6源码博客)
'网    站：http://www.VbDnet.com/   (VB.NET源码博客,主要基于.NET2005)
'e-mail  ：[e-mail]
'e-mail  ：[e-mail]
'OICQ    ：88382850
'          如果您有新的好的代码别忘记给枕善居哦!
'****************************************************************************

Option Explicit
Public Enum eInputStates
    QS_HOTKEY = &H80
    QS_KEY = &H1
    QS_MOUSEBUTTON = &H4
    QS_MOUSEMOVE = &H2
    QS_PAINT = &H20
    QS_POSTMESSAGE = &H8
    QS_SENDMESSAGE = &H40
    QS_TIMER = &H10
    QS_ALLINPUT = (QS_SENDMESSAGE Or QS_PAINT Or QS_TIMER Or QS_POSTMESSAGE Or QS_MOUSEBUTTON Or QS_MOUSEMOVE Or QS_HOTKEY Or QS_KEY)
    QS_MOUSE = (QS_MOUSEMOVE Or QS_MOUSEBUTTON)
    QS_INPUT = (QS_MOUSE Or QS_KEY)
    QS_ALLEVENTS = (QS_INPUT Or QS_POSTMESSAGE Or QS_TIMER Or QS_PAINT Or QS_HOTKEY)
End Enum
Public Declare Function GetQueueStatus Lib "user32" (ByVal qsFlags As Long) As Long
Public Function cGetInputState(State As eInputStates)
    Dim qsRet                   As Long
    qsRet = GetQueueStatus(State)
    cGetInputState = qsRet
End Function