Visual Basic, .NET, ASP, VBScript
 

   
   
     

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

Страница: 1 |

 

  Вопрос: Сэмулировать нажатие клавиш! Добавлено: 27.05.08 21:05  

Автор вопроса:  Mel
Мир Всем!
У меня есть ХР твикер, там есть опция,после того как пользователь нажимает Сtrl(нажать,удерживать)+ ScrollLock(2 раза) то вылетает "синий экран". Как мне сэмулировать нажатие этих клавиш? Попробовал следующий код:
Option Explicit
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Const KEYEVENTF_KEYUP = &H2
Const VK_SCROLL = &H91
Const VK_RCONTROL = &HA3

Private Sub Command1_Click()
Call keybd_event(VK_RCONTROL, 0, 0, 0)
Call keybd_event(VK_SCROLL, 0, 0, 0)
Call keybd_event(VK_SCROLL, 0, KEYEVENTF_KEYUP, 0)
Call keybd_event(VK_SCROLL, 0, 0, 0)
Call keybd_event(VK_SCROLL, 0, KEYEVENTF_KEYUP, 0)
End Sub

Private Sub Command2_Click()
Call keybd_event(VK_RCONTROL, 0, KEYEVENTF_KEYUP, 0)
Unload Me
End Sub
Вроде бы всё работает, а твикер не ловит, "синего экрана нет"???
Помогите пожалйста! Заранее благодарен!!!!

Ответить

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

Номер ответа: 1
Автор ответа:
 Winand



Вопросов: 87
Ответов: 2795
 Web-сайт: winandfx.narod.ru
 Профиль | | #1
Добавлено: 27.05.08 22:31
только вот "а твикер не ловит" нельзя сказть ибо твикер здесь не при чём. Это в винде такая фича

Ответить

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


 

Разработчик Offline Client

Вопросов: 236
Ответов: 8362
 Профиль | | #2 Добавлено: 27.05.08 23:49
не понял, это баг в твикере или баг в винде? :) На XP SP3 + все фиксы на текущий момент что-то нет синего экрана. Удивительно, не правда ли? :) На Висте кстате тоже нет )) Походу у тебя XP допотопная, или просто слишком крутой твикер.

Ответить

Номер ответа: 3
Автор ответа:
 Winand



Вопросов: 87
Ответов: 2795
 Web-сайт: winandfx.narod.ru
 Профиль | | #3
Добавлено: 27.05.08 23:59
HACKER, вообще-то это вроде как реально фича такая. Там какая-то запись в реестр производится и тогда по Ctrl + Double ScrollLock вылетает BSoD. Я правда не проверял но неоднократно члышал об этом.

Ответить

Номер ответа: 4
Автор ответа:
 Winand



Вопросов: 87
Ответов: 2795
 Web-сайт: winandfx.narod.ru
 Профиль | | #4
Добавлено: 28.05.08 00:01
И еще не понятно зачем это всё надо=) особенно если еще и твикер надо привлекать к работе

Ответить

Номер ответа: 5
Автор ответа:
 



Администратор

ICQ: 278109632 

Вопросов: 42
Ответов: 3949
 Web-сайт: domkratt.com
 Профиль | | #5
Добавлено: 28.05.08 00:49
Твикером эта фича включается =)

Ответить

Номер ответа: 6
Автор ответа:
 Winand



Вопросов: 87
Ответов: 2795
 Web-сайт: winandfx.narod.ru
 Профиль | | #6
Добавлено: 28.05.08 01:57
И еще не понятно зачем это всё надо ТС.
Особенно, если он использует твикер, а значит это вряд ли будет куль-вирус=)

Ответить

Номер ответа: 7
Автор ответа:
 Mel



Вопросов: 2
Ответов: 4
 Профиль | | #7 Добавлено: 28.05.08 21:20
Просто ну очень интересно почему "в ручную" работает, а с помощью проги на VB нет! ОбЫдно до слёз! Может я что-то недопонимаю?

Ответить

Номер ответа: 8
Автор ответа:
 Mel



Вопросов: 2
Ответов: 4
 Профиль | | #8 Добавлено: 28.05.08 21:49
Там в Твикере в реестр добавляеться следующий параметр:HKLM\system\CurrentControlSet\Services\i842prt\parametrs
Set value "CrushOnCtrlScroll"=dword:00000001(1)
Вроде бы как в порт посылаеться какая-то фигня,вылетает BSOD.

Ответить

Номер ответа: 9
Автор ответа:
 Winand



Вопросов: 87
Ответов: 2795
 Web-сайт: winandfx.narod.ru
 Профиль | | #9
Добавлено: 28.05.08 23:21
может левый контрол?

Ответить

Страница: 1 |

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



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