MSGBOX("10秒毎にユーザ操作があったか見る")
DIM colBG=$FFFF
WHILE 1
 SLEEP(10)
 IFB TRUE = GETKEYSTATE( VK_ESC ) THEN
  BREAK
 ENDIF
 IFB 10000 >= getMSecAgoLastInput() THEN
  FUKIDASI("10秒内に操作あり(ESCで10秒後おわり)",,,,,,,colBG)
 ELSE
  FUKIDASI("10秒操作
MSGBOX("おわり")

DEF_DLL GetLastInputInfo({DWORD, DWORD}): BOOL: user32
DEF_DLL GetTickCount(): DWORD:Kernel32.dllなし(ESCで10秒後おわり)",,,,,,,colBG)
 ENDIF
 IFB $FFFF=colBG THEN
  colBG=$80FF
 ELSE
  colBG=$FFFF
 ENDIF
WEND
FUKIDASI()

// 最後に入力のあったのは何ミリ秒前か
FUNCTION getMSecAgoLastInput( )
 DIM tickLastInput
 GetLastInputInfo(8, tickLastInput)
 DIM ms = GetTickCount() - tickLastInput
 RESULT = ms
FEND