一键后AutoIt停止

时间:2018-07-06 06:16:02

标签: autoit

我需要一个脚本,按下几个按钮,我也以某种方式运行,但我只是不断发疯似的垃圾邮件

variables

我需要帮助的是编写一个执行以下操作的脚本

-如果按下按钮X,则依次快速按下A,D,A,如果再次按下X,则重复该操作。

我不知道,但我也无法在Google上找到任何东西。请帮忙。

1 个答案:

答案 0 :(得分:0)

#include <MsgBoxConstants.au3>

; Press Esc to terminate script, Pause/Break to "pause"

Global $g_bPaused = False

HotKeySet("{PAUSE}", "TogglePause")
HotKeySet("{ESC}", "Terminate")
HotKeySet("{SPACE}", "ShowMessage")
HotKeySet("x", "ADA")

While 1
    Sleep(100)
WEnd

Func TogglePause()
    $g_bPaused = Not $g_bPaused
    While $g_bPaused
        Sleep(100)
        ToolTip('Script is "Paused"', 0, 0)
    WEnd
    ToolTip("")
EndFunc   ;==>TogglePause

Func Terminate()
    Exit
EndFunc   ;==>Terminate

Func ShowMessage()
    HotKeySet("{SPACE}") ; Disable space hotkey before using space in send.
    Send("{SPACE}p{SPACE}")
    HotKeySet("{SPACE}", "ShowMessage") ; Enable space hotkey after using send.
EndFunc   ;==>ShowMessage

Func ADA()
    Send("ADA")
EndFunc

ShowMessage函数更改为此修改, 禁用{SPACE}热键,对Send使用空格 和p,然后启用{SPACE}热键。

如果您发送与热键相同的密钥,则该热键 被触发,这就是为什么您需要先禁用它 在发送之前。

如果按下ADA,则ADA函数会发送字母x