Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Написал следующий код - при появлении картинки, который при появлении картинки блокирует зажатие шифта.
Но работает как-то не так при зажатии шифта - курсор мелькает, как-будто шифт-таки нажимается.
Что тут не так?
loop
{
ImageSearch, x, y, 0, 0, A_ScreenWidth, A_ScreenHeight, D:\strelka.png
if !ErrorLevel
{
while GetKeyState("LShift")
LShift:: return
}
Sleep, 50
}
Так попробуй:
loop
{
ImageSearch, x, y, 0, 0, A_ScreenWidth, A_ScreenHeight, D:\strelka.png
Hotkey, LShift, Block, % !ErrorLevel ? "On" : "Off"
Sleep, 50
}
Block:
return
Так же помигивает.
Зачем изобретать велосипед?
#if pict(&x, &y)
LShift:: return
#if
return
pict(&x, &y)
{
ImageSearch, x, y, 0, 0,
A_ScreenWidth,
A_ScreenHeight, D:\strelka.png
return !ErrorLevel
}
это в случае, если нужно сохранить найденные координаты. Если нет, то параметры в функцию можно не передавать.
Error at line 6.
The following variable name contains illegal character "&x"
Irbis
Действительно так лучше, зачем проверять в цикле когда надо только при нажатии.
А что имелось ввиду под &.
The following variable name contains illegal character "&x"
Попробуй так:
#if pict(x, y)
LShift:: return
#if
return
pict(ByRef x, ByRef y)
{
ImageSearch, x, y, 0, 0, A_ScreenWidth, A_ScreenHeight, D:\strelka.png
return !ErrorLevel
}
Мигает так же. Наверное перехват у программы идет быстрее.
При том вариант Irbis работает хуже, чем мой или serzh82saratov.
Так тоже мигает?
LShift:: return
Да.
Так что именно мигает. Когда нажимаешь на LShift должно мигать, в смысле без блокировок, и в какой то программе?
При таком запущенном коде, блокируется как надо?
OnExit, Exit
hHookKeybd := DllCall("SetWindowsHookEx" . (A_IsUnicode ? "W" : "A")
, Int, WH_KEYBOARD_LL := 13
, Ptr, RegisterCallback("LowLevelKeyboardProc", "Fast")
, Ptr, DllCall("GetModuleHandle", UInt, 0, Ptr)
, UInt, 0, Ptr)
Return
Exit:
DllCall("UnhookWindowsHookEx", Ptr, hHookKeybd)
ExitApp
LowLevelKeyboardProc(nCode, wParam, lParam)
{
Critical
If NumGet(lParam+0, 0, "UInt") = 160 ; 160 dec vk code LShift
Return 1
Return DllCall("CallNextHookEx", Ptr, 0, Int, nCode, UInt, wParam, UInt, lParam)
}
На первой строчке надо #Persistent написать?
Все-равно мигает.
Я зажимаю Shift при запущенном коде и курсор мигает так как-будто, то я нажимаю на шифт, то отпускаю.
Может так:
Lshift::
Sendplay,{lshift up}
Keywait,lshift
Return
Не, так не работает вообще.
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
