Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: Не уходить в ждущий режим. Добавлено: 01.06.12 21:47  

Автор вопроса:  AWP | Web-сайт: xawp.narod.ru | ICQ: 345685652 
Появилась проблемма.
Нужно чтобы, пока запущена программа, комп не уходил в ждущий режим, а когда программа закрывается такая возможность оставалась.

Эмуляция мыши может помочь? Как это делают игры и видео-плееры?

Если есть пример на VB6 - буду благодарен!

Ответить

  Ответы Всего ответов: 3  

Номер ответа: 1
Автор ответа:
 MISTER X



ICQ: 463865965 

Вопросов: 31
Ответов: 190
  Web-сайт: studioartf.ru
 Профиль | | #1 		Добавлено: 11.06.12 00:22
выясняешь что юзер не у компа и эмулируешь мышь..желательно где то раз-два в минуту
  1.  
  2. Private Const MOUSEEVENTF_ABSOLUTE = &H8000
  3. Private Const MOUSEEVENTF_LEFTDOWN = &H2
  4. Private Const MOUSEEVENTF_LEFTUP = &H4
  5. Private Const MOUSEEVENTF_MIDDLEDOWN = &H20
  6. Private Const MOUSEEVENTF_MIDDLEUP = &H40
  7. Private Const MOUSEEVENTF_MOVE = &H1
  8. Private Const MOUSEEVENTF_RIGHTDOWN = &H8
  9. Private Const MOUSEEVENTF_RIGHTUP = &H10
  10.  
  11. Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, _
  12. ByVal cbuttons As Long, ByVal dwExtraInfo As Long)
  13.  
  14. Public Enum enButtonToClick
  15.    btcLeft
  16.    btcRight
  17.    btcMiddle
  18. End Enum
  19.  
  20. Public Sub MouseClick(ByVal MBClick As enButtonToClick)
  21.  
  22. Dim cbuttons As Long, dwExtraInfo As Long, mevent As Long
  23.    Select Case MBClick
  24.       Case btcLeft
  25.       mevent = MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP
  26.       Case btcRight
  27.       mevent = MOUSEEVENTF_RIGHTDOWN Or MOUSEEVENTF_RIGHTUP
  28.       Case btcMiddle
  29.       mevent = MOUSEEVENTF_MIDDLEDOWN Or MOUSEEVENTF_MIDDLEUP
  30.       Exit Sub
  31.    End Select
  32.    Call mouse_event(mevent, 0&, 0&, cbuttons, dwExtraInfo)
  33. End Sub
  34.  
  35. Public Sub MouseMove(ByRef X As Long, ByRef Y As Long)
  36.    Dim cbuttons As Long, dwExtraInfo As Long
  37.    Call mouse_event(MOUSEEVENTF_ABSOLUTE Or MOUSEEVENTF_MOVE, X, Y, cbuttons, dwExtraInfo)
  38. End Sub
  39.  
  40. Private Sub Form_Load()
  41.    MouseMove 0, 0 'смещаем курсор
  42.    MouseClick btcLeft 'кликаем
  43. End Sub


и кликнуть как "бонус" =)

Ответить

Номер ответа: 2
Автор ответа:
 AWP



ICQ: 345685652 

Вопросов: 96
Ответов: 1212
  Web-сайт: xawp.narod.ru
 Профиль | | #2 		Добавлено: 13.06.12 00:20
Спасибо. Пытался через SetCursorPos - не помогало. Попробую - может, действительно, mouse_event поможет.
Похоже винда нажатия джойстика не считает действиями.

Ответить

Номер ответа: 3
Автор ответа:
 MISTER X



ICQ: 463865965 

Вопросов: 31
Ответов: 190
  Web-сайт: studioartf.ru
 Профиль | | #3 		Добавлено: 13.06.12 20:49
Рад был помочь =)

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам