Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[3.147.205.154] |
|
Сообщ.
#1
,
|
|
|
В WinXP работает, в Win10 - нет. В чём проблема?
Тест: Кнопка+Таймер. Кликаем на кнопке, мышь не уводим. Private Const MOUSEEVENTF_LEFTDOWN = &H2 ' left button down Private Const MOUSEEVENTF_LEFTUP = &H4 ' left button up Private Const MOUSEEVENTF_ABSOLUTE = &H8000 ' absolute move Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long) Private NumClick As Long Private Sub Command1_Click() Timer1.Interval = 1000 NumClick = NumClick + 1 Command1.Caption = CStr(NumClick) End Sub Private Sub Timer1_Timer() mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_ABSOLUTE, 0, 0, 0, 0 mouse_event MOUSEEVENTF_LEFTUP Or MOUSEEVENTF_ABSOLUTE, 0, 0, 0, 0 End Sub |
Сообщ.
#2
,
|
|
|
Поди прав/привилегий не хватает
|
Сообщ.
#3
,
|
|
|
Это такая страшная ф-я, требует особых привелегий? Учётная запись - администратор. Я не инсталлировал VB на Win10, но это не должно влиять.
|
Сообщ.
#4
,
|
|
|
mouse_event нынче не рекомендуется, вместо неё SendInput, так вот для последней функции явно прописано, что она подчиняется User Interface Privilege Isolation (UIPI) (а для первой, демаю, просто не правили msdn).
|
Сообщ.
#5
,
|
|
|
SendInput это ф-я из C++?
|
Сообщ.
#6
,
|
|
|
Это функция Windows API
|
Сообщ.
#7
,
|
|
|
не вижу её в API Viewer, зато mouse_event имеется.
|
Сообщ.
#8
,
|
|
|
Нашёл таки какую-то инфу по ней в сети, какая-то она мудрёная. Есть смысл mouse_event на неё менять, может ей тоже права да привилегии подавай?
|
Сообщ.
#9
,
|
|
|
Код-то работает в Win10 или все на XP сидят?
|