Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Как отловить событие выхода из спящего режима? 
V
    Опции темы
Xeim
Дата 5.12.2008, 15:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 186
Регистрация: 17.11.2005

Репутация: нет
Всего: 0
Здравсвуйте!

Догадываюсь что при помощи API. Но я не умею с ним работать. Пожалуйста привидите пример. Или подскажите где почитать матчасть по API. Лучше конечно пример, если можно.
PM MAIL   Вверх
Akina
Дата 5.12.2008, 16:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
Цитата(Xeim @  5.12.2008,  16:22 Найти цитируемый пост)
Догадываюсь что при помощи API.

Более чем вряд ли.

Цитата(Xeim @  5.12.2008,  16:22 Найти цитируемый пост)
 Как отловить событие выхода из спящего режима?

По скачку в показаниях таймера.


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
Xeim
Дата 5.12.2008, 17:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 186
Регистрация: 17.11.2005

Репутация: нет
Всего: 0
Akina, поясните пожалуйста. Значит все проще, чем я полагал.
Как отловить скачек?
PM MAIL   Вверх
Akina
Дата 5.12.2008, 20:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
Поставить таймер. Скажем 100-миллисекундный. И смотреть, как давно был предыдущий тик. Если был сон - то будет более 2 секунд.


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
Xeim
Дата 5.12.2008, 20:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 186
Регистрация: 17.11.2005

Репутация: нет
Всего: 0
Akina, но как отловить? Другим таймером? Не понимаю. 

Поставил label и таймер с интервалом. Написал
Код

Private Sub Form_Load()
    Me.Caption = 0
End Sub

Private Sub Timer1_Timer()
    a = Me.Caption
    a = a + 1
    Me.Caption = a
End Sub

Надо следить за значением заголовка формы? Но чем следить и как?
PM MAIL   Вверх
Akina
Дата 5.12.2008, 20:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
чо-нить типа
Код

dim t 

Private Sub Form_Load()
  t=now()
  timer1.enabled=true
End Sub

Private Sub Timer1_Timer()
  if datediff("s",now(),t)>2 then msgbox "Явно что-то было..."
  е=now()
End Sub



--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
Xeim
Дата 5.12.2008, 21:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 186
Регистрация: 17.11.2005

Репутация: нет
Всего: 0
Akina, спасибо большое за помощь! Все работает.
Заменил e на t. Изменил условие, с учетом того, что функция выдает отрицательные значиния.

Это сообщение отредактировал(а) Xeim - 5.12.2008, 21:52
PM MAIL   Вверх
Akina
Дата 5.12.2008, 23:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
Цитата(Xeim @  5.12.2008,  22:29 Найти цитируемый пост)
Заменил e на t.

Punto

Цитата(Xeim @  5.12.2008,  22:29 Найти цитируемый пост)
Изменил условие, с учетом того, что функция выдает отрицательные значиния.

Проще было поменять местами операнды. Впрочем, какая разница...


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0518 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.