你能修复我的 Ctrl+Left Ctrl+Shift+Left 脚本吗？

Question

只是有点不像我想要的。它工作正常，但如果我想按住功能，它将执行一次操作并添加数字而不是重复功能。我想要一些东西来加快 Ctrl+左箭头、Ctrl+shift+左箭头、Ctrl+右箭头和 Ctrl+Shift+右箭头的过程，以便我可以更快地处理文本。 https://www.youtube.com/watch?v=VNRCQx0eWA0 您可以查看我在这里所指的示例，以及出了什么问题。我已经在视频标题中标记了错误。

script.ahk 脚本内容

^1::
Send ^{Left Down}^{Left Down}
return
^2::
Send ^{Left Down}^{Left Down}^{Left Down}
return
^3::
Send ^{Left Down}^{Left Down}^{Left Down}^{Left Down}
return
^4::
Send ^{Left Down}^{Left Down}^{Left Down}^{Left Down}^{Left Down}
return
^5::
Send ^{Left Down}^{Left Down}^{Left Down}^{Left Down}^{Left Down}^{Left Down}
return
^6::
Send ^{Right Down}^{Right Down}
return
^7::
Send ^{Right Down}^{Right Down}^{Right Down}
return
^8::
Send ^{Right Down}^{Right Down}^{Right Down}^{Right Down}
return
^9::
Send ^{Right Down}^{Right Down}^{Right Down}^{Right Down}^{Right Down}
return
^0::
Send ^{Right Down}^{Right Down}^{Right Down}^{Right Down}^{Right Down}^{Right Down}
return
^+1::
Send ^+{Left Down}^+{Left Down}
return
^+2::
Send ^+{Left Down}^+{Left Down}^+{Left Down}
return
^+3::
Send ^+{Left Down}^+{Left Down}^+{Left Down}^+{Left Down}
return
^+4::
Send ^+{Left Down}^+{Left Down}^+{Left Down}^+{Left Down}^+{Left Down}
return
^+5::
Send ^+{Left Down}^+{Left Down}^+{Left Down}^+{Left Down}^+{Left Down}^+{Left Down}
return
^+6::
Send ^+{Right Down}^+{Right Down}
return
^+7::
Send ^+{Right Down}^+{Right Down}^+{Right Down}
return
^+8::
Send ^+{Right Down}^+{Right Down}^+{Right Down}^+{Right Down}
return
^+9::
Send ^+{Right Down}^+{Right Down}^+{Right Down}^+{Right Down}^+{Right Down}
return
^+0::
Send ^+{Right Down}^+{Right Down}^+{Right Down}^+{Right Down}^+{Right Down}^+{Right Down}
return
#q::exitApp

Answer 1

Keys := ["1","2","3","4","5","6","7","8","9","0"]
for each, key in Keys
{
    Hotkey, ^%key%, Ctrl_Key, On 
    Hotkey, ^+%key%, Ctrl_Key, On
}
return

Ctrl_Key:
    last_Key := ""
    Index := ""
    last_Key := SubStr(A_ThisHotkey, 0)
    If (last_Key = 0)
        Index = 5
    else
    If (last_Key < 6)
        Index := last_Key + 1
    else
        Index := last_Key - 4
    Loop %Index%
    {
        If (last_Key < 6) and (last_Key > 0)
        {
            If GetKeyState("Shift","P")
                Send +^{Left}
            else
                Send ^{Left}
        }
        else
        {
            If GetKeyState("Shift","P")
                Send +^{Right}
            else
                Send ^{Right}
        }
    }
    ; Don't repeat the action before key is released: 
    KeyWait, %last_Key%
return

请参阅文档中的 For-Loop, Hotkey and SubStr，如果您有不明白的地方，请随时询问。

Answer 2

从所有命令中删除 down。正确的语法是：

^1::
    send ^{left}
return

要重复，您可以在数字括号内写一个数字，例如重复选择 5 次：

^+5::
    send ^+{right 5}
return

你能修复我的 Ctrl+Left Ctrl+Shift+Left 脚本吗？

Can you fix my Ctrl+Left Ctrl+Shift+Left script?

windows

autohotkey

auto

script.ahk 脚本内容