На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Поиск Участники Календарь Избранное RSS
msm.ru
Модераторы: SCINER, B.V.
  
    > Бездействие юзера , существует стандартный счетчик
    Guru SCINER
    Сообщ. #1 ,

      Moderator
      *******
      Профиль · PM
      Поощрения: 45 Dgm
      Рейтинг (т): 228
      В Windows существует стандартный счетчик, который возвращает время в милисекундах пройденное с момента последней активности пользователя. Под активностью понимается например нажатие клавиш на клавиатуре, либо перемещение курсора мыши.

      Приведенный ниже код демонстрирует использование даного счетчика:
      ExpandedWrap disabled
        Option Explicit
         
        Private Type LASTINPUTINFO
          cbSize As Long
          dwTime As Long
        End Type
         
        Private Declare Function GetLastInputInfo Lib "USER32.DLL" (plii As LASTINPUTINFO) As Long
        Private Declare Function GetTickCount Lib "kernel32" () As Long
         
        Dim Lii As LASTINPUTINFO
         
        Private Sub Form_Load()
          Timer1.Interval = 1000
          Timer1.Enabled = True
        End Sub
         
        Private Sub Timer1_Timer()
          Dim T As Long
          Lii.cbSize = 8
          Call GetLastInputInfo(Lii)
          T = GetTickCount
          Caption = (T - Lii.dwTime) \ 1000
        End Sub
      0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
      0 пользователей:


        Рейтинг@Mail.ru
        [ Script execution time: 0,0128 ]   [ 16 queries used ]   [ Generated: 28.04.24, 15:47 GMT ]  
        Powered by Invision Power Board(U) v1.2 © 2003  IPS, Inc.