AHK:Реакция скрипта - на зажатие и отжатие клавиши "A" в книге Excel

belyankin12, ясно.

Насчет while getkeystate я нашел такую вещь (вы видимо ее имели ввиду):

sc2::
 while GetKeyState("sc2", "P")
{
"скрипт
}
Return 

А как щелкнуть по фигуре в экселе - скриптом AHK  ?

Вот например в языке Autoit - это делается вот так:

#include <Excel.au3>
#Include <Misc.au3>

While 1
    If _IsPressed(41) Then ;~ Запуск по нажатию A
$oExcel = _Excel_Open()
$oBook = _Excel_BookOpen($oExcel, @ScriptDir & "\файл.xls")

$oShape = $oBook.ActiveSheet.Shapes("Oval 2")
$oExcel.Run($oShape.OnAction)

    EndIf
    
    Sleep(100)
Wend

А как это сделать в Autohotkey ?

inseption86, не могу запустить.
Пишет, что не удается выполнить макрос "файл.Макрос1"

димитрий2

xl.Run("Макрос1")

If (A_TimeSinceThisHotkey >= 2000) and !(state = "D")  ; с долгим нажатием на клавиатурную кнопк
KeyWait,? , T0.8
If ErrorLevel

димитрий2, требования модератора Вас не интересуют? Вы хотите чтобы вашу тему удалили?

KeyWait,? , T0.8 ваша кнопка ? - для примера.

Отдельно от вашего скрипта работает?

a::
KeyWait, a
if (A_TimeSinceThisHotkey<400)
   MsgBox a
else
   MsgBox зажатая а
return

А так?

vk41::    ;  "A"
KeyWait, vk41

Я про заменить "а" на vk41.

vk41::    ;  "A"
KeyWait, vk41
if (A_TimeSinceThisHotkey<400)
   MsgBox a
else
   MsgBox зажатая а
return

У вас работает такое?

vk41::    ;  "A"
KeyWait, vk41
if (A_TimeSinceThisHotkey<400)
   MsgBox a
else
   MsgBox зажатая а
return

rowe, теперь скрипт срабатывает - но только однократно.
Если я нажимаю один раз на "А" - то макрос срабатывает один раз.

А речь шла - о зажатой клавише "А".
То есть - если клавиша "А" - зажата - то нужно бесконечно (один раз в секунду ) - запускать макрос1 (до тех пор пока клавиша "А" не будет отжата).

rowe,не работает.
Выдает ошибку-  Error: Unexpected "}".

vk41::    ;  "A"
KeyWait, vk41
if (A_TimeSinceThisHotkey<400)
{
   Xl := ComObjActive("Excel.Application")          
   xl.Run("Макрос1")	; название макроса
}

else 
{
Loop
}

return

rowe, на зажатую клавишу "А" - нужно бесконечное срабатывание Макроса1 - с периодичностью в 1 секунду (до тех пор пока клавиша "А" не будет отжата).

rowe, ясно.
А как использовать эту функцию ?

Я пользуясь данными из справки (https://www.autohotkey.com/docs/commands/GetKeyState.htm) написал вот так:

vk41::    ;  "A"
KeyWait, vk41
if (A_TimeSinceThisHotkey<400)
{
   Xl := ComObjActive("Excel.Application")          
   xl.Run("Макрос1")	; название макроса
}

else 

if !GetKeyState("A")
Loop
{
   Xl := ComObjActive("Excel.Application")          
   xl.Run("Макрос1")	; название макроса
Sleep, 1000

}

return

Что-то не работает.
(При нажимании клавиши "А" - ничего не происходит, но при отпускании этой клавиши -  макрос начинается выполняться без остановки )

rowe, так вы же вроде сами порекомендовали эту функцию использовать.

В общем удалил эту строчку.
Теперь при зажимании клавиши "А" - ничего не происходит, но при отпускании этой клавиши -  макрос начинается выполняться без остановки.

vk41::    ;  "A"
KeyWait, vk41
if (A_TimeSinceThisHotkey<400)
{
   Xl := ComObjActive("Excel.Application")          
   xl.Run("Макрос1")	; название макроса
}

else 


Loop
{
   Xl := ComObjActive("Excel.Application")          
   xl.Run("Макрос1")	; название макроса
Sleep, 1000

}

return

То есть макрос начинает зацикленно выполняться не при зажатии клавиши "А", а при отпускании этой клавиши.
Хотя по идее он должен начать выполняться сразу же при зажимании клавиши "А", а останавливаться - при отжатии клавиши "А".

Я считаю такую меру неправильной, так как в правилах не указано о запрете отвечать на неправильно оформленные темы, если только об этом не написал модератор.

http://forum.script-coding.com/misc.php?action=rules
димитрий2, посмотрите как оформлены другие темы на форуме и поставьте префикс в заголовок темы.

Все понял.
Добавил текст "AHK:" в название заголовка.

Я раньше думал - что этот текст автоматически добавляется.

Это уже не к нам вопросы. При всем уважении к Вам, я более чем уверен, что если пользователи уважают других пользователей этого форума (извините за тавтологию), то им будет несложно составить заголовок по правилам, а так же расставлять знаки препинания в своих предложениях. А если они ещё перед тем как нажимают кнопку "Создать тему" перечитывают свое сообщение в предпросмотре, в целях избежать смысловых ошибок в своем сообщении, то и вовсе их можно назвать уже своими товарищами.

Сделайте себе отдельную ветку, и дрочите на жи ши.

rowe, а зачем нам что-то создавать? У нас тут все уже готово и отлажено. Хотите писать как попало - создавайте свой форум. Я обязательно зайду посмотреть потом, как он процветает.

rowe, а вот подскажите все-таки - как поменять код ?

Сейчас при зажимании клавиши "А" - ничего не происходит, но при отпускании этой клавиши -  макрос начинается выполняться без остановки.

vk41::    ;  "A"
KeyWait, vk41
if (A_TimeSinceThisHotkey<400)
{
   Xl := ComObjActive("Excel.Application")          
   xl.Run("Макрос1")	; название макроса
}

else 


Loop
{
   Xl := ComObjActive("Excel.Application")          
   xl.Run("Макрос1")	; название макроса
Sleep, 1000

}

return

То есть от этого скрипта -  макрос начинает зацикленно выполняться не при зажатии клавиши "А", а при отпускании этой клавиши.
Хотя по идее он должен начать выполняться сразу же при зажимании клавиши "А", а останавливаться - при отжатии клавиши "А".

rowe, а куда именно эту строчку - в код добавлять ?
(Там ведь вроде есть уже в точности аналогичный кусок кода.)

rowe, у вас неправильный алгоритм:

vk41::    ;  "A"
KeyWait, vk41
if (A_TimeSinceThisHotkey<400)
   tooltip отжата
else
   tooltip зажата
return

димитрий2, используйте отступы при написании скриптов.

Хорош издеваться, может в следующий раз у человека получится понимать что ему пишет модератор.

A:: 
	Loop {
		MsgBox, , , Макрос, 0.1
		KeyWait, A, T1 
	} Until !ErrorLevel
	Return

AutoHotkey_L v1.1.30.03?

serzh82saratov, у меня AutoHotkey Version 1.1.26.01

serzh82saratov, то есть в этой версии autohotkey - нет реакции на зажатие и отжатие клавиши ?

Друзья, хочу задать вопрос, касающийся применения языка Autohotkey - в отношении экселя.

В экселе есть кнопка при нажатии на которую активируется экселевский макрос.
Подскажите как связать это выполнение (выполнение этого экселевского макроса) - с долгим нажатием на клавиатурную кнопку "A" - при помощи скрипта ahk ?

То есть если я нажимаю на "А" однократно - то макрос выполняется один раз.
Если я нажимаю на "А" долгое время", то макрос выполняется постоянно, с частотой один раз в секунду - пока клавиатурная кнопка "А" не будет отпущена.

Подскажите как это реализовать ?

, нет он написал, что не знает как это сделать в AutoHotkey 1.1.26.01
И еще он написал - "в общем всё очень сложно"

Malcev, слушайте, ну я же не телепат - я не знаю шутил он или правду говорил.
(А насчет проапдейтиться - так перестанут работать другие скрипты , как это часто происходит при апдейтах)

А если не телепат, то кто Вам мешает проверить предложение Malcev?
Или ужас предыдущего скачивания дистрибутива AHK с последующей установкой в систему, до сих пор преследует Вас в ночных кошмарах мешая жить полноценной жизнью?

Блин, ну я же вам написал, коды клавиш тогда пропишите, неужели это сложно понять, при том что они есть у вас же в коде. И у вас же в теме, в районе 20 поста, один в один был этот же вопрос.

~vk41:: 
	Loop {
		MsgBox, , , Макрос, 0.1
		KeyWait, vk41, T1 
	} Until !ErrorLevel
	Return