cnc-club.ru

Помогите пожалуйста.Не работает макрос на вкл выхода с клавиатуры.Текст мароса
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Const Move_Z_Up = &H55 'U key
Const Move_Z_Down = &H44 'D Key

If GetAsyncKeyState(Move_Z_Up) < 0 then
ActivateSignal(OUTPUT3)
'Message "Z up"
Else
DeActivateSignal(OUTPUT3)
End If

If GetAsyncKeyState(Move_Z_Down) < 0 then
ActivateSignal(OUTPUT4)
'Message "Z down"
Else
DeActivateSignal(OUTPUT4)
End If

м.б. пытаешься деактивировать выходы по else, которые не активны уже заранее? Когда GetAsyncKeyState() при нажатии кнопки выдаст значение < 0 ? По мне так 0 и 1 всегда не <0