GetTickCount

システムを起動した後の経過時間をミリ秒単位で返します。

構文(VBA)
Declare Function GetTickCount Lib "kernel32" Alias "GetTickCount" () As Long
構文(UWSC)
DEF_DLL GetTickCount(): Dword: kernel32
引数
戻り値

プログラム実行例

アイドル時間を取得

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