GetLastInputInfo

最後に発生した入力イベントの時刻を取得する。

構文(VBA)
Declare Function GetLastInputInfo Lib "user32" (plii As Any) As Long
構文(UWSC)
DEF_DLL GetLastInputInfo({DWORD, DWORD}): BOOL: user32
引数
戻り値

プログラム実行例

アイドル時間を取得

DEF_DLL GetTickCount(): Dword: kernel32
DEF_DLL GetLastInputInfo({DWORD, DWORD}): BOOL: user32
DIM t

SETHOTKEY(VK_ESC, EMPTYPARAM, "forceQuit")

WHILE TRUE
	GetLastInputInfo(8, t)
	FUKIDASI((GetTickCount() - t) + "ms")
	SLEEP(0.01)
WEND

//////////////////////////////////////////////////
// 【引数】
// 
// 【戻値】
// 
//////////////////////////////////////////////////
PROCEDURE forceQuit()
	EXITEXIT
FEND
  1. kernel32.GetTickCount
  2. user32.GetLastInputInfo
  3. SETHOTKEY
  4. FUKIDASI
  5. SLEEP