#Requires AutoHotkey v2.0
#SingleInstance Force

; 上から順に、操作対象として優先します。
TargetTitleKeywords := ["YouTube", "動画再生", "dアニメストア"]

; Edgeの各ウィンドウから、動画を表示しているウィンドウを探します。
FindTargetWindow() {
    global TargetTitleKeywords

    for keyword in TargetTitleKeywords {
        for hwnd in WinGetList("ahk_exe msedge.exe") {
            if InStr(WinGetTitle(hwnd), keyword) {
                return hwnd
            }
        }
    }

    return 0
}

; ゲームへ戻れるように現在のウィンドウを覚え、Edgeへキーを送ります。
ControlVideo(keyName) {
    previousWindow := WinExist("A")
    targetWindow := FindTargetWindow()

    if !targetWindow {
        return
    }

    try {
        WinActivate(targetWindow)

        if WinWaitActive(targetWindow, , 0.5) {
            Sleep(40)
            Send(keyName)
            Sleep(40)
        }
    } finally {
        if previousWindow && WinExist(previousWindow) {
            WinActivate(previousWindow)
        }
    }
}

; 左Shift + 矢印キー
<+Right::ControlVideo("{Right}") ; 5秒進む
<+Left::ControlVideo("{Left}")   ; 5秒戻る
<+Up::ControlVideo("{Up}")       ; 音量を上げる
<+Down::ControlVideo("{Down}")   ; 音量を下げる