YouTube_Microsoft IMEの単語登録を複数PCで共有｜辞書の更新をほぼ自動化

#Requires AutoHotkey v2.0

; 無変換キー単体では何もしない
sc07B::Return

; 無変換 + T：IME辞書TXTを読み込む
sc07B & t::ImportImeDictionary()

ImportImeDictionary() {
    imeTool := "C:\Windows\System32\IME\IMEJP\IMJPDCT.EXE"
    dictFile := A_UserProfile "\OneDrive\00.Inbox\IME_辞書ツール.txt"

    if !FileExist(dictFile) {
        MsgBox "IME辞書TXTが見つかりません。`n`n" dictFile
        return
    }

    ; IMEユーザー辞書ツールを開く
    imeHwnd := WinExist(
        "Microsoft IME ユーザー辞書ツール ahk_exe IMJPDCT.EXE"
    )

    if !imeHwnd {
        Run '"' imeTool '" -t'

        imeHwnd := WinWait(
            "Microsoft IME ユーザー辞書ツール ahk_exe IMJPDCT.EXE",
            ,
            5
        )
    }

    WinActivate "ahk_id " imeHwnd
    WinWaitActive "ahk_id " imeHwnd

    ; 現在開いているダイアログを記録
    dialogsBefore := GetImeDialogs()

    ; 「テキスト ファイルからの登録」を実行
    if !RunImeImportMenu(imeHwnd) {
        MsgBox "「テキスト ファイルからの登録」が見つかりませんでした。"
        return
    }

    ; ファイル選択画面を待つ
    fileDlg := WaitForNewImeDialog(dialogsBefore)

    if !fileDlg {
        MsgBox "ファイル選択画面を確認できませんでした。"
        return
    }

    WinActivate "ahk_id " fileDlg
    WinWaitActive "ahk_id " fileDlg

    ; TXTファイルを指定
    Send "^l"
    Sleep 150
    SendText dictFile
    Sleep 150
    Send "{Enter}"
}


; 「テキスト ファイルからの登録」メニューを実行
RunImeImportMenu(hwnd) {
    hMenu := DllCall("GetMenu", "Ptr", hwnd, "Ptr")

    if !hMenu
        return false

    topCount := DllCall("GetMenuItemCount", "Ptr", hMenu, "Int")

    Loop topCount {
        hSubMenu := DllCall(
            "GetSubMenu",
            "Ptr", hMenu,
            "Int", A_Index - 1,
            "Ptr"
        )

        if !hSubMenu
            continue

        subCount := DllCall(
            "GetMenuItemCount",
            "Ptr", hSubMenu,
            "Int"
        )

        Loop subCount {
            position := A_Index - 1
            menuText := GetMenuText(hSubMenu, position)

            if InStr(menuText, "テキスト ファイルからの登録") {
                menuId := DllCall(
                    "GetMenuItemID",
                    "Ptr", hSubMenu,
                    "Int", position,
                    "UInt"
                )

                PostMessage 0x0111, menuId, 0, , "ahk_id " hwnd
                return true
            }
        }
    }

    return false
}


GetMenuText(hMenu, position) {
    buf := Buffer(1024, 0)

    length := DllCall(
        "GetMenuStringW",
        "Ptr", hMenu,
        "UInt", position,
        "Ptr", buf.Ptr,
        "Int", 512,
        "UInt", 0x0400,
        "Int"
    )

    return length > 0 ? StrGet(buf.Ptr, length, "UTF-16") : ""
}


GetImeDialogs() {
    dialogs := Map()

    for hwnd in WinGetList(
        "ahk_class #32770 ahk_exe IMJPDCT.EXE"
    )
        dialogs[hwnd] := true

    return dialogs
}


WaitForNewImeDialog(dialogsBefore, timeoutSeconds := 5) {
    endTime := A_TickCount + timeoutSeconds * 1000

    while A_TickCount < endTime {
        for hwnd in WinGetList(
            "ahk_class #32770 ahk_exe IMJPDCT.EXE"
        ) {
            if !dialogsBefore.Has(hwnd)
                return hwnd
        }

        Sleep 100
    }

    return 0
}