メッセージキュー内のマウスまたはキーボードメッセージの有無を判定する
Declare Function GetInputState Lib "user32.dll" () As Long
Declare Function GetInputState Lib "user32.dll" () As Integer
メッセージキューにマウス、または、キーボードのいずれかのメッセージがあれば 0以外 エラーのとき 0