Как определить паузу в работе с компом?

Язык Visual Basic на платформе .NET.

Модераторы: Ramzes, Sebas

asharky
Продвинутый пользователь
Продвинутый пользователь
Аватара пользователя
 
Сообщения: 162
Зарегистрирован: 22.06.2004 (Вт) 0:39
Откуда: Батоны-ларьки-поребрики...

Как определить паузу в работе с компом?

Сообщение asharky » 27.09.2007 (Чт) 23:05

1. Клавиши
2. Мышь
В культурной столице проститутки берут книгами...

Денис
Доктор VB наук
Доктор VB наук
Аватара пользователя
 
Сообщения: 2734
Зарегистрирован: 07.11.2006 (Вт) 13:55
Откуда: Ейск, Краснодарский край

Сообщение Денис » 27.09.2007 (Чт) 23:13

хуки на mouse move и keypress + таймер... :roll: ничего сложного
Программирование — богоизбранная дисциплина! Если бог и есть, то вселенную он скомпилировал, не иначе.

asharky
Продвинутый пользователь
Продвинутый пользователь
Аватара пользователя
 
Сообщения: 162
Зарегистрирован: 22.06.2004 (Вт) 0:39
Откуда: Батоны-ларьки-поребрики...

Сообщение asharky » 27.09.2007 (Чт) 23:18

Денис писал(а):хуки на mouse move и keypress + таймер... :roll: ничего сложного
Что такое хуки?
В культурной столице проститутки берут книгами...

ZeroX
Бывалый
Бывалый
 
Сообщения: 207
Зарегистрирован: 29.04.2003 (Вт) 12:36
Откуда: Мой адрес не дом и не улица, мой адрес Советский Союз

Сообщение ZeroX » 13.10.2007 (Сб) 10:39

На сколько я понимаю вопрос
API:
Код: Выделить всё

<DllImport("kernel32.dll")> _
        Friend Shared Function GetTickCount() As Integer
        End Function

<DllImport("user32.dll", EntryPoint:="GetLastInputInfo")> _
        Friend Shared Function GetIdleTime(<MarshalAs(UnmanagedType.Struct)> ByRef plii As PLASTINPUTINFO) As Boolean
        End Function

<StructLayout(LayoutKind.Sequential)> _
        Friend Structure PLASTINPUTINFO
            Public cbSize As Integer
            Public dwTime As Integer
        End Structure


Время простоя в секундах:
Код: Выделить всё

Friend Function SystemIdleTime() As Integer
        Dim Result As Integer
        Dim L As External32.user32.PLASTINPUTINFO
        L.cbSize = Marshal.SizeOf(L)
        External32.user32.GetIdleTime(L)
        Result = CInt(Fix(TimeSpan.FromMilliseconds(External32.kernel32.GetTickCount - L.dwTime).TotalSeconds))
        Return Result
    End Function
Каждый warning мечтает стать error'om


Вернуться в Visual Basic .NET

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 101

    TopList