定时按键（GUI版）

; --------------------------   Run as Administrator   --------------------------
full_command_line := DllCall("GetCommandLine", "str")

If not (A_IsAdmin or RegExMatch(full_command_line, " /restart(?!\S)"))
{
    Try
    {
        If A_IsCompiled
            Run *RunAs "%A_ScriptFullPath%" /restart
        Else
            Run *RunAs "%A_AhkPath%" /restart "%A_ScriptFullPath%"
    }
    ExitApp
}
;=====================================================
#NoEnv
SetWorkingDir %A_ScriptDir%
#SingleInstance Force
SetTitleMatchMode 3
#WinActivateForce
SetControlDelay -1
SetWinDelay -1
SetKeyDelay -1
SetMouseDelay -1
SetBatchLines -1
#UseHook
#Persistent
#NoTrayIcon
Process , Priority, , High
;=====================================================
MsgBox, 4096, , 右键点击需要生效的窗口
KeyWait, Rbutton, D
MouseGetPos, , , winid
WinSetTitle, ahk_id %winid%, , 定时按键
;=====================================================
Gui, +AlwaysOnTop -SysMenu
;=====================================================
Gui, Add, Text, w100 h30 x10 y15, 快捷键：
Gui, Add, Text, w100 h30 x10 y45, 选择时间：
Gui, Add, Text, w100 h30 x10 y75, 延迟(毫秒)：
;=====================================================
Gui, Add, Hotkey,w100 h20 x110 y10 vChosenHotkey, 1
Gui, Add, DateTime,w100 h20 x110 y40 vMyDateTime, HH:mm ;MyDateTime格式为YYYYMMDDHHMM
Gui, Add, Edit,w100 h20 x110 y70 vDelay,100
;=====================================================
Gui, Add, Button, w100 h30 x10 y100 g开始, 开始
Gui, Add, Button, w100 h30 x110 y100 g结束, 结束
;=====================================================
Gui, Show, AutoSize,%A_Space%
Return
;=====================================================

开始:
    Gui Submit, NoHide
    hh:=SubStr(MyDateTime, 9, 2)
    mm:=SubStr(MyDateTime, 11, 2)
    Loop, 
    {
        FormatTime, h, H, H
        FormatTime, m, m, m
        if (h>=hh) And (m>=mm)
            Goto, 开始按键
    }
Return

开始按键:
    loop,
    {
        Gui Submit, NoHide
        ControlSend, , {%ChosenHotkey%}, ahk_id %winid%
        Sleep, %Delay%
    }

Return

GuiClose:
结束:
ExitApp
Return
;=====================================================