Что нового

[Автоматизация] Определение горячих клавиш HotKeySet

vcomp71

Осваивающий
Сообщения
431
Репутация
25
Код:
;Ловим окно сталкера
HotKeySet("{BACKSPACE}", "stalkerAllYashik")
HotKeySet("{DELETE} ", "stalkerExit")


global $k
global $xm
global $ym

$k = 0
do
WinWait("S.T.A.L.K.E.R.: Clear Sky")
;ConsoleWrite($k)
Switch  $k
    case 3 ;Посылаем двойной клик
        MouseClick('left',$xm,$ym,2)
EndSwitch

Until not($k=-1)


Func _stalkerExit()
    $k=-1
EndFunc

Func stalkerAllYashik()

if $k=3  then
    MsgBox(262144,'Debug line ~' & @ScriptLineNumber,'Selection:' & @lf & '$k' & @lf & @lf & 'Return:' & @lf & $k) ;### Debug MSGBOX
    $k=0
else
    $k=3
    $pos = MouseGetPos()
    $xm=$pos[0]
    $ym=$pos[1]
EndIf
HotKeySet("{backspace}", "stalkerAllYashik")
EndFunc

При вставке команд MsgBox и ConsoleWrite
начинает выдавать вот такую ошибку

C:\proekt\stalker\stalker_vz.au3(3,37) : ERROR: stalkerExit(): undefined function.
HotKeySet("{DELETE} ", "stalkerExit")
Почему?
 

kaster

Мой Аватар, он лучший самый
Команда форума
Глобальный модератор
Сообщения
4,020
Репутация
626
Vlasssov [?]
Наверное потому, что нет такой функции, которая прописана в HotKeySet
Код:
HotKeySet("{DELETE} ", "stalkerExit")

Код:
Func _stalkerExit()
    $k=-1
EndFunc
 
Автор
vcomp71

vcomp71

Осваивающий
Сообщения
431
Репутация
25
Да я уже увидел... В смещение ввело то, что ошибка появлялась в момент добавления команд msgbox... Мистика... Но всё равно спасибо...
 
Верх