カテゴリー: Development

; ----------------------------------------
;  prerequisites
;  display: 1 monitor only
;  os: Windows 11
;  virtual desktop: 1 - 6
; ----------------------------------------
WINCOUNT := 4
switchDesktop(desktopId) {
    winIds := WinGetList()
    Send "#{Tab}"
    WinWaitActive ("ahk_class XamlExplorerHostIslandWindow")
    Sleep 500
    count := 0
    Loop  {
        if count == 0 {
            if winIds.Length > WINCOUNT
                Send "{Tab}"
        } else {
            Send "{Right}"
        }
        count++
    } Until count == desktopId
    Send "{Enter}"
}   
^#F1::switchDesktop(1)
^#F2::switchDesktop(2)
^#F3::switchDesktop(3)
^#F4::switchDesktop(4)
^#F5::switchDesktop(5)
^#F6::switchDesktop(6)

{
    "description": "Exchange control + arrow key to 5 arrow keys",
    "manipulators": [
        {
            "from": {
                "key_code": "right_arrow",
                "modifiers": {
                    "mandatory": [
                        "control"
                    ],
                    "optional": [
                        "any"
                    ]
                }
            },
            "to": [
                {
                    "key_code": "right_arrow",
                    "modifiers": []
                },
                {
                    "key_code": "right_arrow",
                    "modifiers": []
                },
                {
                    "key_code": "right_arrow",
                    "modifiers": []
                },
                {
                    "key_code": "right_arrow",
                    "modifiers": []
                },
                {
                    "key_code": "right_arrow",
                    "modifiers": []
                }
            ],
            "type": "basic"
        },
        {
            "from": {
                "key_code": "left_arrow",
                "modifiers": {
                    "mandatory": [
                        "control"
                    ],
                    "optional": [
                        "any"
                    ]
                }
            },
            "to": [
                {
                    "key_code": "left_arrow",
                    "modifiers": []
                },
                {
                    "key_code": "left_arrow",
                    "modifiers": []
                },
                {
                    "key_code": "left_arrow",
                    "modifiers": []
                },
                {
                    "key_code": "left_arrow",
                    "modifiers": []
                },
                {
                    "key_code": "left_arrow",
                    "modifiers": []
                }
            ],
            "type": "basic"
        },
        {
            "from": {
                "key_code": "up_arrow",
                "modifiers": {
                    "mandatory": [
                        "control"
                    ],
                    "optional": [
                        "any"
                    ]
                }
            },
            "to": [
                {
                    "key_code": "up_arrow",
                    "modifiers": []
                },
                {
                    "key_code": "up_arrow",
                    "modifiers": []
                },
                {
                    "key_code": "up_arrow",
                    "modifiers": []
                },
                {
                    "key_code": "up_arrow",
                    "modifiers": []
                },
                {
                    "key_code": "up_arrow",
                    "modifiers": []
                }
            ],
            "type": "basic"
        },
        {
            "from": {
                "key_code": "down_arrow",
                "modifiers": {
                    "mandatory": [
                        "control"
                    ],
                    "optional": [
                        "any"
                    ]
                }
            },
            "to": [
                {
                    "key_code": "down_arrow",
                    "modifiers": []
                },
                {
                    "key_code": "down_arrow",
                    "modifiers": []
                },
                {
                    "key_code": "down_arrow",
                    "modifiers": []
                },
                {
                    "key_code": "down_arrow",
                    "modifiers": []
                },
                {
                    "key_code": "down_arrow",
                    "modifiers": []
                }
            ],
            "type": "basic"
        }
    ]
}

{
    "description": "Exchange control + h key to backspace key",
    "manipulators": [
        {
            "from": {
                "key_code": "h",
                "modifiers": {
                    "mandatory": [
                        "control"
                    ],
                    "optional": [
                        "any"
                    ]
                }
            },
            "to": [
                {
                    "key_code": "delete_or_backspace",
                    "modifiers": []
                }
            ],
            "type": "basic"
        }
    ]
}

{
    "description": "Exchange control + ikjl key to arrow key",
    "manipulators": [
        {
            "from": {
                "key_code": "i",
                "modifiers": {
                    "mandatory": [
                        "control"
                    ],
                    "optional": [
                        "any"
                    ]
                }
            },
            "to": [
                {
                    "key_code": "up_arrow",
                    "modifiers": []
                }
            ],
            "type": "basic"
        },
        {
            "from": {
                "key_code": "k",
                "modifiers": {
                    "mandatory": [
                        "control"
                    ],
                    "optional": [
                        "any"
                    ]
                }
            },
            "to": [
                {
                    "key_code": "down_arrow",
                    "modifiers": []
                }
            ],
            "type": "basic"
        },
        {
            "from": {
                "key_code": "j",
                "modifiers": {
                    "mandatory": [
                        "control"
                    ],
                    "optional": [
                        "any"
                    ]
                }
            },
            "to": [
                {
                    "key_code": "left_arrow",
                    "modifiers": []
                }
            ],
            "type": "basic"
        },
        {
            "from": {
                "key_code": "l",
                "modifiers": {
                    "mandatory": [
                        "control"
                    ],
                    "optional": [
                        "any"
                    ]
                }
            },
            "to": [
                {
                    "key_code": "right_arrow",
                    "modifiers": []
                }
            ],
            "type": "basic"
        }
    ]
}

{
    "description": "Exchange control + uo key to home end key",
    "manipulators": [
        {
            "from": {
                "key_code": "u",
                "modifiers": {
                    "mandatory": [
                        "control"
                    ],
                    "optional": [
                        "any"
                    ]
                }
            },
            "to": [
                {
                    "key_code": "home",
                    "modifiers": []
                }
            ],
            "type": "basic"
        },
        {
            "from": {
                "key_code": "o",
                "modifiers": {
                    "mandatory": [
                        "control"
                    ],
                    "optional": [
                        "any"
                    ]
                }
            },
            "to": [
                {
                    "key_code": "end",
                    "modifiers": []
                }
            ],
            "type": "basic"
        }
    ]
}

#SingleInstance Force

; ----------------------------------------
; helper function
; ----------------------------------------

; OS情報取得
GetWinOSVersion()
{
	osVersion := StrSplit(A_OSVersion, ".")
	major := osVersion[1]
	minor := osVersion[2]
	build := osVersion[3]
	If (major == "10")
		If (minor == "0")
			If (build >= "20000")
				Return 11
	Return 10
}

; ディスプレイ情報取得
getDisplayInfo(&x, &y, &width, &height)
{
	MonitorGetWorkArea(1, &Left, &Top, &Right, &Bottom)
	x := Left
	y := Top
	width := Right - Left
	height := Bottom - Top
}

; 画面位置取得
getWindowPosition(windowPosition, &x, &y, &width, &height)
{
	; ディスプレイ情報取得
	getDisplayInfo(&x, &y, &width, &height)

	; 画面サイズ補正
	; 画面の左,右,下に隙間が空くので補正する。
	; ウインドスタイル「WS_SYSMENU」が設定されていない画面は補正なし。(例：VSCode)
	edge := 0
	if (GetWinOSVersion() == 11) {
		style := WinGetStyle("A")
		if (style & 0x00080000) { ; WS_SYSMENU
			edge := 7 ; px
		}
	}

	; 画面位置計算
	if (windowPosition == 1) {
		x := x - edge
		y := y
		width := width / 2 + edge * 2
		height := height + edge
	}
	if (windowPosition == 2) {
		x := width * 0.1
		y := y
		width := width * 0.8 + edge * 2
		height := height + edge
	}
	if (windowPosition == 3) {
		x := width / 2 - edge
		y := y
		width := width / 2 + edge * 2
		height := height + edge
	}
	if (windowPosition == "q") {
		x := x - edge
		y := y
		width := width / 2 + edge * 2
		height := height / 2 + edge
	}
	if (windowPosition == "a") {
		x := x - edge
		y := height / 2 + y
		width := width / 2 + edge * 2
		height := height / 2 + edge
	}
	if (windowPosition == "w") {
		x := width / 2 - edge
		y := y
		width := width / 2 + edge * 2
		height := height / 2 + edge
	}
	if (windowPosition == "s") {
		x := width / 2 - edge
		y := height / 2 + y
		width := width / 2 + edge * 2
		height := height / 2 + edge
	}
	OutputDebug("x=" x " y=" y " width=" width " height=" height)
}

; 画面位置設定
setWindowPosition(windowPosition) {
	getWindowPosition(windowPosition, &x, &y, &width, &height)
	try {
		hwnd := WinGetID("A")
		WinMove(x, y, width, height, hwnd)
	}
}

; ----------------------------------------
; main
; ----------------------------------------

; 矢印キー × 5
^Up::Send "{UP 5}"
^Down::Send "{Down 5}"
^Left::Send "{Left 5}"
^Right::Send "{Right 5}"

; 上下左右
^*i::Send "{UP}"
^*k::Send "{Down}"
^*j::Send "{Left}"
^*l::Send "{Right}"
^*u::Send "{Home}"
^*o::Send "{End}"

; 削除
^*h::Send "{BS}"

; 画面移動(左/中央/右)
!1::setWindowPosition("1")
!2::setWindowPosition("2")
!3::setWindowPosition("3")

; 画面移動(左上/左下/右上/右下)
!q::setWindowPosition("q")
!a::setWindowPosition("a")
!w::setWindowPosition("w")
!s::setWindowPosition("s")

; 音量調整
^F10::Send "{VOLUME_MUTE}"
^F11::Send "{VOLUME_DOWN}"
^F12::Send "{VOLUME_UP}"

#SingleInstance force
#WinActivateForce

; define
DATA_FILE := "デスクトップの表示.dat"
DESKTOP_CLASS := "ahk_class Progman"
POPUP1_CLASS := "XamlExplorerHostIslandWindow_WASDK"
POPUP2_CLASS := "WorkerW"

; ----------------------------------------
; helper function
; ----------------------------------------

getString(hwndList) {
    ret := ""
    for index, value in hwndList
        ret .= "|" . value
    return LTrim(ret, "|")
}

restoreWindow(hwndList, statusList) {
    for index, value in hwndList {
        reverseIndex := hwndList.Length - index + 1
        hwnd := Integer(hwndList[reverseIndex])
        if WinExist(hwnd)
            if (statusList[reverseIndex] != -1) ; skip minimize window
                WinActivate(hwnd)
    }
}

; ----------------------------------------
; duplicate run
; ----------------------------------------

if FileExist(DATA_FILE) {
    ; read data file
    FileObj := FileOpen(DATA_FILE, "r")
    hwndString := FileObj.ReadLine()
    hwnd := StrSplit(hwndString, "|")
    statusString := FileObj.ReadLine()
    status := StrSplit(statusString, "|")

    ; restore window
    restoreWindow(hwnd, status)

    ; delete data file
    FileDelete(DATA_FILE)

    ; exit
    ExitApp
}

; ----------------------------------------
;  main process
; ----------------------------------------

; get window handles for restore
hwnd := WinGetList()

; get window status
status := []
for index, value in hwnd
    status.Push(WinGetMinMax(value))

; creat data file
FileAppend(getString(hwnd), DATA_FILE)
FileAppend("`n", DATA_FILE)
FileAppend(getString(status), DATA_FILE)
FileAppend("`n", DATA_FILE)

; show desktop and focus
Send "#d"
Sleep 1000
hwndDesktop := WinGetID(DESKTOP_CLASS)
ControlFocus(hwndDesktop)

; get window handles for monitoring
hwnd1 := WinGetList()

; wait new window
WinWaitNotActive WinExist("A")
Loop {
    Sleep 500
    hwnd2 := WinGetList()
    try {
        className := WinGetClass("A")
        if ((className != POPUP1_CLASS) && (className != POPUP2_CLASS))
            if getString(hwnd1) != getString(hwnd2)
                break
    } catch {
    } finally {
        activeId := WinExist("A")
        hwnd2 := WinGetList()
    }
}

; restore window
restoreWindow(hwnd, status)

; active new window
try {
    WinActivate(activeId)
} catch {
    WinActivate(hwnd2[1])
}

; delete data file
if FileExist(DATA_FILE)
    FileDelete(DATA_FILE)

#SingleInstance force

; show desktop
Send "#d"
Sleep 1000

; get window handles
hwnd1 := WinGetList()

; time out 60s.
Loop 60
{
    Sleep 1000

    ; window handles monitoring
    hwnd2 := WinGetList()
    if getString(hwnd1) != getString(hwnd2)
        break
    if GetKeyState("Esc")
        break
}

; window restore
for index, value in hwnd2
{
    hwnd := hwnd2[hwnd2.Length - index + 1]
    if WinExist(hwnd)
        WinActivate(hwnd)
}

; helper function
getString(array)
{
    ret := ""
    for index, value in array
        ret .= "|" . value
    ret := LTrim(ret, "|")
    return ret
}

; 矢印キー × 5
^*Up::
{
	Send "{UP 5}"
}

^*Down::
{
	Send "{Down 5}"
}

^*Left::
{
	Send "{Left 5}"
}

^*Right::
{
	Send "{Right 5}"
}

; 削除
^*h::
{
	Send "{BS}"
}

; ディスプレイ情報取得
getDisplayInfo(&x, &y, &height, &width)
{
	MonitorGetWorkArea(1, &Left, &Top, &Right, &Bottom)
	OutputDebug("Left=" . Left . " Top=" . Top . " Right=" . Right . " Bottom=" . Bottom)
	x := Left
	y := Top
	height := Bottom - Top
	width := Right - Left
}

; 画面左移動
!1::
{
	getDisplayInfo(&x, &y, &height, &width)
	hwnd := WinGetID("A")
	WinMove(x, y, width/2, height, hwnd)
}

; 画面中央
!2::
{
	getDisplayInfo(&x, &y, &height, &width)
	hwnd := WinGetID("A")
	WinMove(width*0.1, y, width*0.8, height, hwnd)
}

; 画面右移動
!3::
{
	getDisplayInfo(&x, &y, &height, &width)
	hwnd := WinGetID("A")
	WinMove(x + width/2, y, width/2, height, hwnd)
}

; 音量調整
^F10::
{
	Send "{VOLUME_MUTE}"
}

^F11::
{
	Send "{VOLUME_DOWN}"
}

^F12::
{
	Send "{VOLUME_UP}"
}