Windows10では、Virtual Desktop Enhancerを使っていたのだけれどWindows11からは使えなくなってしまった。
なので、Autohotkeyで無理やり仮想デスクトップショートカットを実行させるようにしたいたのだけど、1回の操作でキーを押す回数が15回くらいなので、なんかバグる。エクスプローラがしょっちゅう落ちる。
いろいろググっていたら発見
有志の方が作っているAutoHotKeyの拡張DLLを拝借する。
https://github.com/Ciantic/VirtualDesktopAccessor
この中の、VirtualDesktopAccessor.dllを任意の場所に配置。
下記スクリプトをAutoHotKey用のファイルに書いてリロードする。
そうすると、Ctrl+数字で仮想デスクトップを行き来できるようになる。
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 |
DetectHiddenWindows, On hwnd:=WinExist("ahk_pid " . DllCall("GetCurrentProcessId","Uint")) hwnd+=0x1000<<32 hVirtualDesktopAccessor := DllCall("LoadLibrary", Str, "C:\Users\yuta\OneDrive\05_tool\VirtualDesktopAccessor.dll", "Ptr") GoToDesktopNumberProc := DllCall("GetProcAddress", Ptr, hVirtualDesktopAccessor, AStr, "GoToDesktopNumber", "Ptr") GetCurrentDesktopNumberProc := DllCall("GetProcAddress", Ptr, hVirtualDesktopAccessor, AStr, "GetCurrentDesktopNumber", "Ptr") IsWindowOnCurrentVirtualDesktopProc := DllCall("GetProcAddress", Ptr, hVirtualDesktopAccessor, AStr, "IsWindowOnCurrentVirtualDesktop", "Ptr") MoveWindowToDesktopNumberProc := DllCall("GetProcAddress", Ptr, hVirtualDesktopAccessor, AStr, "MoveWindowToDesktopNumber", "Ptr") RegisterPostMessageHookProc := DllCall("GetProcAddress", Ptr, hVirtualDesktopAccessor, AStr, "RegisterPostMessageHook", "Ptr") UnregisterPostMessageHookProc := DllCall("GetProcAddress", Ptr, hVirtualDesktopAccessor, AStr, "UnregisterPostMessageHook", "Ptr") IsPinnedWindowProc := DllCall("GetProcAddress", Ptr, hVirtualDesktopAccessor, AStr, "IsPinnedWindow", "Ptr") RestartVirtualDesktopAccessorProc := DllCall("GetProcAddress", Ptr, hVirtualDesktopAccessor, AStr, "RestartVirtualDesktopAccessor", "Ptr") ; GetWindowDesktopNumberProc := DllCall("GetProcAddress", Ptr, hVirtualDesktopAccessor, AStr, "GetWindowDesktopNumber", "Ptr") activeWindowByDesktop := {} ; Restart the virtual desktop accessor when Explorer.exe crashes, or restarts (e.g. when coming from fullscreen game) explorerRestartMsg := DllCall("user32\RegisterWindowMessage", "Str", "TaskbarCreated") OnMessage(explorerRestartMsg, "OnExplorerRestart") OnExplorerRestart(wParam, lParam, msg, hwnd) { global RestartVirtualDesktopAccessorProc DllCall(RestartVirtualDesktopAccessorProc, UInt, result) } MoveCurrentWindowToDesktop(number) { global MoveWindowToDesktopNumberProc, GoToDesktopNumberProc, activeWindowByDesktop WinGet, activeHwnd, ID, A activeWindowByDesktop[number] := 0 ; Do not activate DllCall(MoveWindowToDesktopNumberProc, UInt, activeHwnd, UInt, number) DllCall(GoToDesktopNumberProc, UInt, number) } GoToPrevDesktop() { global GetCurrentDesktopNumberProc, GoToDesktopNumberProc current := DllCall(GetCurrentDesktopNumberProc, UInt) if (current = 0) { GoToDesktopNumber(7) } else { GoToDesktopNumber(current - 1) } return } GoToNextDesktop() { global GetCurrentDesktopNumberProc, GoToDesktopNumberProc current := DllCall(GetCurrentDesktopNumberProc, UInt) if (current = 7) { GoToDesktopNumber(0) } else { GoToDesktopNumber(current + 1) } return } GoToDesktopNumber(num) { global GetCurrentDesktopNumberProc, GoToDesktopNumberProc, IsPinnedWindowProc, activeWindowByDesktop ; Store the active window of old desktop, if it is not pinned WinGet, activeHwnd, ID, A current := DllCall(GetCurrentDesktopNumberProc, UInt) isPinned := DllCall(IsPinnedWindowProc, UInt, activeHwnd) if (isPinned == 0) { activeWindowByDesktop[current] := activeHwnd } ; Try to avoid flashing task bar buttons, deactivate the current window if it is not pinned if (isPinned != 1) { WinActivate, ahk_class Shell_TrayWnd } ; Change desktop DllCall(GoToDesktopNumberProc, Int, num) return } ; Windows 10 desktop changes listener DllCall(RegisterPostMessageHookProc, Int, hwnd, Int, 0x1400 + 30) OnMessage(0x1400 + 30, "VWMess") VWMess(wParam, lParam, msg, hwnd) { global IsWindowOnCurrentVirtualDesktopProc, IsPinnedWindowProc, activeWindowByDesktop desktopNumber := lParam + 1 ; Try to restore active window from memory (if it's still on the desktop and is not pinned) WinGet, activeHwnd, ID, A isPinned := DllCall(IsPinnedWindowProc, UInt, activeHwnd) oldHwnd := activeWindowByDesktop[lParam] isOnDesktop := DllCall(IsWindowOnCurrentVirtualDesktopProc, UInt, oldHwnd, UInt) if (isOnDesktop == 1 && isPinned != 1) { WinActivate, ahk_id %oldHwnd% } ; Menu, Tray, Icon, Icons/icon%desktopNumber%.ico ; When switching to desktop 1, set background pluto.jpg ; if (lParam == 0) { ; DllCall("SystemParametersInfo", UInt, 0x14, UInt, 0, Str, "C:\Users\Jarppa\Pictures\Backgrounds\saturn.jpg", UInt, 1) ; When switching to desktop 2, set background DeskGmail.png ; } else if (lParam == 1) { ; DllCall("SystemParametersInfo", UInt, 0x14, UInt, 0, Str, "C:\Users\Jarppa\Pictures\Backgrounds\DeskGmail.png", UInt, 1) ; When switching to desktop 7 or 8, set background DeskMisc.png ; } else if (lParam == 2 || lParam == 3) { ; DllCall("SystemParametersInfo", UInt, 0x14, UInt, 0, Str, "C:\Users\Jarppa\Pictures\Backgrounds\DeskMisc.png", UInt, 1) ; Other desktops, set background to DeskWork.png ; } else { ; DllCall("SystemParametersInfo", UInt, 0x14, UInt, 0, Str, "C:\Users\Jarppa\Pictures\Backgrounds\DeskWork.png", UInt, 1) ; } } ; Switching desktops: Ctrl & 1::GoToDesktopNumber(0) Ctrl & 2::GoToDesktopNumber(1) Ctrl & 3::GoToDesktopNumber(2) Ctrl & 4::GoToDesktopNumber(3) Ctrl & 5::GoToDesktopNumber(4) Ctrl & 6::GoToDesktopNumber(5) Ctrl & 7::GoToDesktopNumber(6) Ctrl & 8::GoToDesktopNumber(7) Ctrl & 9::GoToDesktopNumber(8) ; Moving windowes: ; Win + Shift + 1 = Move current window to desktop 1, and go there +#2::MoveCurrentWindowToDesktop(1) |
ココを追記
|
1 2 3 4 5 6 7 8 9 |
Ctrl & 1::GoToDesktopNumber(0) Ctrl & 2::GoToDesktopNumber(1) Ctrl & 3::GoToDesktopNumber(2) Ctrl & 4::GoToDesktopNumber(3) Ctrl & 5::GoToDesktopNumber(4) Ctrl & 6::GoToDesktopNumber(5) Ctrl & 7::GoToDesktopNumber(6) Ctrl & 8::GoToDesktopNumber(7) Ctrl & 9::GoToDesktopNumber(8) |