Я так и знал, что она кривая! Никогда больше не буду верить людям, которые устанавливают тебе операционную систему с флешки
Сделай короткий пример кода при котором не будет работать.
#NoEnv
#SingleInstance Force
#InstallKeybdHook
#InstallMouseHook
#Persistent
#KeyHistory 0
#MaxThreads 20
#MaxMem 4096
SetCapsLockState, AlwaysOff
SetWinDelay, -1
SetBatchLines, -1
SetControlDelay, -1
CoordMode, Pixel, Relative
CoordMode, Mouse, Relative
Process, priority, , Realtime
skype_active := 0
press_value := 0
Loop
{
sleep, 25
IfWinActive, Skype
{
skype_active = 0
}
IfWinNotActive, Skype
{
skype_active = 1
}
}
Return
$WheelUp::
if skype_active = 0
{
;MsgBox, Active!
if press_value = 0
SetTimer, double_press_timer, 400
press_value := % press_value +1
if press_value = 2
{
SetDefaultMouseSpeed, 0
SetMouseDelay, -1
MouseGetPos, MouseX, MouseY
MouseClick, left, 0, 0
MouseMove, %MouseX%, %MouseY%
sleep, 300
SetDefaultMouseSpeed, 2
SetMouseDelay, 0
}
}
if skype_active = 1
;MsgBox, Not Active but Hotkey is working!
SendInput {WheelUp}
Return
$WheelDown::
if skype_active = 0
{
;MsgBox, Active!
if press_value = 0
SetTimer, double_press_timer, 400
press_value := % press_value +1
if press_value = 2
{
SetDefaultMouseSpeed, 0
SetMouseDelay, -1
MouseGetPos, MouseX, MouseY
MouseClick, left, 1 , 1
MouseMove, %MouseX%, %MouseY%
sleep, 300
SetDefaultMouseSpeed, 2
SetMouseDelay, 0
}
}
if skype_active = 1
;MsgBox, Not Active but hotkey is working!!
SendInput {WheelDown}
Return
double_press_timer:
press_value = 0
SetTimer, double_press_timer, Off
Return
У меня такой код и он работает.
Я нашел ошибку. Она возникает только тогда, когда я запускаю более одного скрипта .ahk, причем не важно, что во втором скрипте нет никаких параметров влияющих на первый скрипт.
Запустите этот код, тот что выше и еще один (любой) ahk скрипт и увидите эту ошибку, которую выдает скрипт с выше изложенным кодом.
Теперь встает вопрос - как исправить?
ADD:
SetCapsLockState, AlwaysOff
#InstallKeybdHookЕсли две или одна из двух этих строк встречается во втором коде (пусть даже пустом), то первый код выдает ошибку.
* Первый код тот, что содержит WheelUp и WheelDown
ADD2:
Все равно не понимаю как решить эту проблему. Убрал все директивы, которые были во всех скриптах. Вывод аналогичный - когда скрипт с WheelUp и WheelDown запускает другие скрипты ahk, при прокрутке выскакивает ошибка
Возможно что и эта строка помогла:
keywait,%a_thishotkey%,L
Так вроде не выскакивает ошибки:
#NoEnv
#SingleInstance Force
#InstallKeybdHook
#InstallMouseHook
#Persistent
#KeyHistory 0
#MaxThreads 20
#MaxMem 4096
SetCapsLockState, AlwaysOff
SetWinDelay, -1
SetBatchLines, -1
SetControlDelay, -1
CoordMode, Pixel, Relative
CoordMode, Mouse, Relative
Process, priority, , Realtime
#MaxHotkeysPerInterval,100000000000
use := 0
Loop
{
sleep,50
IfWinActive, Skype
use = 0
else
use = 1
}
Return
^WheelUp::
^WheelDown::
keywait,%a_thishotkey%,L
Return
$vk9F::
keywait,%a_thishotkey%,L
if use = 0
{
if press_value = 0
SetTimer, double_press_timer, 400
press_value +=1
if press_value = 2
{
SetDefaultMouseSpeed, 0
SetMouseDelay, -1
MouseGetPos, MouseX, MouseY
MouseClick, left, 0, 0
MouseMove, %MouseX%, %MouseY%
SetDefaultMouseSpeed, 2
SetMouseDelay, 0
}
}
if use = 1
Send {vk9F Down}
Return
$vk9E::
keywait,%a_thishotkey%,L
if use = 1
MouseClick,WheelDown,,,3
if use = 0
{
if press_value = 0
SetTimer, double_press_timer, 400
press_value +=1
if press_value = 2
{
SetDefaultMouseSpeed, 0
SetMouseDelay, -1
MouseGetPos, MouseX, MouseY
MouseClick, left, 1, 1
MouseMove, %MouseX%, %MouseY%
SetDefaultMouseSpeed, 2
SetMouseDelay, 0
}
}
Return
$+MButton::
if use = 0
SendInput {G}
else
SendInput +{MButton}
keywait,%a_thishotkey%,L
Send {MButton Up}
Return
double_press_timer:
press_value = 0
SetTimer, double_press_timer, Off
Return
[/spoiler]
OFF:
А что за клавиши "9E" и "9F"? В списке кодов написано "Не используется".
#MaxHotkeysPerInterval,100000000000
WheelUp::
if whellwork=1
return
whellwork=1
{
; код
}
whellwork=0
return
#NoEnv
#SingleInstance Force
#InstallKeybdHook
#InstallMouseHook
#Persistent
#KeyHistory 0
#MaxThreads 20
#MaxMem 4096
#HotkeyInterval 0
#MaxHotKeysPerInterval 1000
SetCapsLockState, AlwaysOff
SetWinDelay, -1
SetBatchLines, -1
SetControlDelay, -1
CoordMode, Pixel, Relative
CoordMode, Mouse, Relative
Process, priority, , RealtimeНичего не изменилось
]]>#NoEnv
#SingleInstance Force
#InstallKeybdHook
#InstallMouseHook
#Persistent
#KeyHistory 0
#MaxThreads 20
#MaxMem 4096
SetCapsLockState, AlwaysOff
SetWinDelay, -1
SetBatchLines, -1
SetControlDelay, -1
CoordMode, Pixel, Relative
CoordMode, Mouse, Relative
Process, priority, , Realtime
use := 0
Loop
{
IfWinActive, Skype
use = 0
IfWinNotActive, Skype
use = 1
}
Return
^WheelUp::Return
^WheelDown::Return
$vk9F::
if use = 0
{
if press_value = 0
SetTimer, double_press_timer, 400
press_value := % press_value +1
if press_value = 2
{
SetDefaultMouseSpeed, 0
SetMouseDelay, -1
MouseGetPos, MouseX, MouseY
MouseClick, left, 0, 0
MouseMove, %MouseX%, %MouseY%
SetDefaultMouseSpeed, 2
SetMouseDelay, 0
}
}
if use = 1
Send {vk9F Down}
Return
$vk9E::
if use = 1
MouseClick,WheelDown,,,3
if use = 0
{
if press_value = 0
SetTimer, double_press_timer, 400
press_value := % press_value +1
if press_value = 2
{
SetDefaultMouseSpeed, 0
SetMouseDelay, -1
MouseGetPos, MouseX, MouseY
MouseClick, left, 1, 1
MouseMove, %MouseX%, %MouseY%
SetDefaultMouseSpeed, 2
SetMouseDelay, 0
}
}
Return
$+MButton::
if use = 0
{
SendInput {G}
}
if use = 1
{
SendInput +{MButton}
}
KeyWait, MButton
Send {MButton Up}
Return
double_press_timer:
press_value = 0
SetTimer, double_press_timer, Off
Return
Просветите почему так?
Раньше, на версии 1.1.15.02 было все нормально, но, когда я переустановил AHK на 1.1.15.02, то ошибка не исчезла. Через #UseHook, Off пробовал, но тоже не помогло. Больше идей и не возникло..