From 4da8f4d29ef6b9cc688416e2c285e4ed4d83d6cf Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?John=20Ankarstr=C3=B6m?= Date: Sat, 31 Oct 2020 02:47:24 +0100 Subject: start ignoring out/scripts.ahk (compiled script) --- out/scripts.ahk | 864 -------------------------------------------------------- 1 file changed, 864 deletions(-) delete mode 100644 out/scripts.ahk (limited to 'out') diff --git a/out/scripts.ahk b/out/scripts.ahk deleted file mode 100644 index ece6515..0000000 --- a/out/scripts.ahk +++ /dev/null @@ -1,864 +0,0 @@ -#Include ../lib/Acc.ahk - -; Directives ------------------------------------------------------------------ - - -#SingleInstance Force -#Persistent -#NoEnv -#WinActivateForce -#MaxHotkeysPerInterval 200 - -; Initialization -------------------------------------------------------------- - -WindowMessageHandlers := [] - -DoubleClickClicked := false -JumpPaths := { s: env("Sync") - , w: env("Sync") "\Projekt\john.ankarstrom.se\htdocs" - , e: env("Personal") - , d: env("Personal") "\Downloads" - , b: "C:\Program Files\KM-Goanna\k-meleon.exe" - , m: "C:\Program Files\Mozilla Thunderbird\thunderbird.exe" } -layouts := { ru: DllCall("LoadKeyboardLayout", "Str", "00000419", "Int", 1) - , sv: DllCall("LoadKeyboardLayout", "Str", "0000041D", "Int", 1) } -ShowLayout() -WindowMessageHandlers.Push("LayoutWindowMessage") -OnMessage(0x404, "NotifyIcon") -ShellApp := ComObjCreate("Shell.Application") -GroupAdd, Explorer, ahk_class CabinetWClass -GroupAdd, Explorer, ahk_class ExploreWClass -GroupAdd, Desktop, ahk_class Progman -GroupAdd, Desktop, ahk_class WorkerW -GroupAdd, ExplorerDesktop, ahk_class CabinetWClass -GroupAdd, ExplorerDesktop, ahk_class ExploreWClass -GroupAdd, ExplorerDesktop, ahk_class Progman -GroupAdd, ExplorerDesktop, ahk_class WorkerW -Menu, Tray, NoStandard -Menu, Tray, Tip, %A_ScriptName% -Menu, Tray, Add, &Open directory..., TrayOpen -Menu, Tray, Add, Re&build..., TrayRebuild -Menu, Tray, Add, &Reload, TrayReload -Menu, Tray, Add, E&xit, TrayExit -Gui, OSD:+AlwaysOnTop +LastFound +Owner +Disabled -Caption -Gui, OSD:Color, FFFFFF -Gui, OSD:Font, s30, VCR OSD Mono -Gui, OSD:Add, Text, vOSD c00BB00, % " " -WinSet, TransColor, FFFFFF 250 -y := A_ScreenHeight - 100 -Gui, OSD:Show, x0 y%y% AutoSize NA, OSD -GroupAdd, WindowsExplorer, ahk_class CabinetWClass -GroupAdd, WindowsExplorer, ahk_class ExploreWClass -Gui, FakeWindow:+LastFound +Owner +Disabled -Caption -Gui, +hwndFakeWindowHwnd -y := A_ScreenHeight - 100 -Gui, FakeWindow:Show, x0 y%y% AutoSize NA, FakeWindow -WindowMessageHandlers.Push("WindowsWindowMessage") - -Gui +LastFound -DllCall("RegisterShellHookWindow", UInt, WinExist()) -msg := DllCall("RegisterWindowMessage", Str, "SHELLHOOK") -OnMessage(msg, "WindowMessage") -return - -; Body ------------------------------------------------------------------------ - -; Open in new Explorer window -#s:: -ToolTip, ... -SendInput, {Blind}{LWin Up} -Input, k, L1 -if (JumpPaths[k] != "") -{ - if (InStr(FileExist(JumpPaths[k]), "D")) - Run, % "explorer /n, """ JumpPaths[k] """" - else - Run, % """" JumpPaths[k] """" -} -ToolTip -return -; Open in current (or new) Explorer window -!#s:: -ToolTip, ... -SendInput, {Blind}{LWin Up} -Input, k, L1 -if (JumpPaths[k] != "") - if ((e := Explorer()) != -1) ; (see tt.programs.explorer.ahk) - e.Navigate(JumpPaths[k]) - else - Run, % "explorer """ JumpPaths[k] """" -ToolTip -return -LWin & LShift:: -LShift & LWin:: ; (my CapsLock is mapped to LWin) -PostMessage, 0x50, 2, 0,, A ; WM_INPUTLANGCHANGEREQUEST -Sleep, 100 -ShowLayout() ; display new layout in tray icon -return -#IfWinActive ahk_class Emacs -; RAlt::Alt -#IfWinActive ahk_class ConsoleWindowClass -!F4::WinClose, A -#IfWinActive ahk_exe WINWORD.EXE -XButton1::SendInput, +{F5} ; cycle cursor position backwards -#IfWinActive ahk_class Audition v1.5 -+WheelUp:: -Loop, 30 - SendInput, ^+{Left} -return -+WheelDown:: -Loop, 30 - SendInput, ^+{Right} -return -#IfWinActive ahk_class EVERYTHING -WheelUp::Up -WheelDown::Down -#IfWinActive ahk_class SciTEWindow -F2::Gosub, TrayRebuild ; rebuild scripts.ahk -#IfWinActive ahk_class MozillaWindowClass -+^!+::SendInput, ^!{WheelUp} -+^!-::SendInput, ^!{WheelDown} -!s::SendInput, ^k -F3::SendInput, !{Left} -F4::SendInput, !{Right} -!F1::SendInput, {WheelUp} -!F2::SendInput, {WheelDown} -F1:: -Loop, 5 - SendInput, {WheelUp} -return -F2:: -Loop, 5 - SendInput, {WheelDown} -return -#IfWinActive ahk_class KMeleon Browser Window -F3::SendInput, !{Left} -F4::SendInput, !{Right} -!F1::SendInput, {LAlt Up}{Up} -!F2::SendInput, {LAlt Up}{Down} -F1:: -Loop, 5 - SendInput, {WheelUp} -return -F2:: -Loop, 5 - SendInput, {WheelDown} -return -#IfWinActive ahk_class MediaPlayerClassicW -Esc:: -WinGetPos, x, y, w, h -if (x = 0 and y = 0 and w = A_ScreenWidth and h = A_ScreenHeight) - SendInput, {F11} -return -~RShift:: -WinGetPos, x, y, w, h, A -if not (x = 0 and y = 0 and w = A_ScreenWidth and h = A_ScreenHeight) - return -MouseGetPos, mx, my -MouseMove, % A_ScreenWidth, % A_ScreenHeight, 0 -KeyWait, RShift -MouseMove, % mx, % my, 0 -return -~LShift:: -WinGetPos, x, y, w, h, A -MouseGetPos, mx, my -SendInput, {LCtrl Down}7{LCtrl Up} -if (x = 0 and y = 0 and w = A_ScreenWidth and h = A_ScreenHeight) - MouseMove, % A_ScreenWidth, 0, 0 -KeyWait, LShift -MouseMove, % mx, % my, 0 -SendInput, {LCtrl Down}7{LCtrl Up} -return -#IfWinActive -#IfWinActive ahk_group ExplorerDesktop -; Open new window/command prompt -^n::Run, % "explorer /n,""" ExplorerPath() """" -^p::Run, % "cmd /k cd /d """ ExplorerPath() """" -+^p:: -path := ExplorerPath() -Run, % "C:\Documents and Settings\All Users\Start Menu\Programs\Microsoft Visual Studio 2010 Express\Visual Studio Command Prompt (2010).lnk" -WinWait, ahk_class ConsoleWindowClass -SendInput, % "cd " path "{Return}" -return -; Create new folder/file -^+n:: -FileCreateDir, % ExplorerPath() "\New Folder" -SendInput, {F5}New Folder{F2} -return -^!n:: -FileAppend,, % ExplorerPath() "\New Text Document.txt" -SendInput, {F5}New Text Document.txt{F2} -return -; Edit file -#IfWinActive -LWin & LButton:: -MouseGetPos,,, hwnd -DllCall("SetForegroundWindow", "UInt", hwnd) -if (not DoubleClick()) ; see tt.doubleclick.ahk - return -if (not WinActive("ahk_group Explorer")) -{ - SendInput, {Click} - return -} -; fall through to next hotkey -#IfWinActive ahk_group Explorer -#NumPadEnter:: -#Enter:: -i := Explorer().Document.FocusedItem -if (i.IsFolder) - return -ShellApp.ShellExecute(i.path, "", "", "Edit", 1) -return -; Directory navigation -LAlt & Up:: -RAlt & Up:: -e := Explorer() -path := e.Document.Folder.Self.path -if (InStr(path, "::{") = 1) - return -slash := InStr(path, "\", 0, 0) -if (slash = StrLen(path)) - slash := InStr(path, "\", 0, 0, 2) -if (slash = 0) - parent = ::{20D04FE0-3AEA-1069-A2D8-08002B30309D} ; My Computer -else - parent := SubStr(path, 1, slash) -e.Navigate(parent) -return -LAlt & Down:: -RAlt & Down:: -path := ExplorerPath() -if (InStr(path, "::{") = 1) - return -Explorer().Navigate(path) ; go to real path of folder -return -; Toggle hidden status -^h:: -SSF_SHOWALLOBJECTS := 0x0001 -VarSetCapacity(SHELLSTATE, 32, 0) -DllCall("Shell32\SHGetSetSettings", "Ptr", &SHELLSTATE, "UInt", SSF_SHOWALLOBJECTS, "Int", false) -NumPut(NumGet(SHELLSTATE) ^ (1 << 0), SHELLSTATE,, "Int") -DllCall("Shell32\SHGetSetSettings", "Ptr", &SHELLSTATE, "UInt", SSF_SHOWALLOBJECTS, "Int", true) -WinGet, win, List, ahk_group Explorer -Loop, % win - PostMessage, 0x111, 41504,,, % "ahk_id " win%A_Index% ; refresh -return -; Sort and display options -^q::ExplorerFolderView("name") -^w::ExplorerFolderView("modified") -^e::ExplorerFolderView("type") -^t::ExplorerFolderView("created") -^g::ExplorerFolderView("groups") -^s::ExplorerFolderView("tiles") -^d::ExplorerFolderView("icons") -^+d::ExplorerFolderView("thumbnails") -^f::ExplorerFolderView("details") -^+f::ExplorerFolderView("list") -^!q::ExplorerFolderView("name", true) -^!w::ExplorerFolderView("modified", true) -^!e::ExplorerFolderView("type", true) -^!t::ExplorerFolderView("created", true) -^!g::ExplorerFolderView("groups", true) -^!s::ExplorerFolderView("tiles", true) -^!d::ExplorerFolderView("icons", true) -^!+d::ExplorerFolderView("thumbnails", true) -^!f::ExplorerFolderView("details", true) -^!+f::ExplorerFolderView("list", true) -#IfWinActive -;§ & LButton::SendInput, {WheelDown} -;§ & RButton::SendInput, {WheelUp} -; <^>!§::SendInput, {Text}§ -#IfWinActive ahk_class PuTTY -PgUp:: -Loop, 5 - SendInput, ^{PgUp} -return -PgDn:: -Loop, 5 - SendInput, ^{PgDn} -return -#IfWinActive ahk_class SUMATRA_PDF_FRAME -PgUp::SendInput, {PgUp} -PgDn::SendInput, {PgDn} -#IfWinActive ahk_class Chrome_WidgetWin_1 -PgUp::SendInput, {PgUp} -PgDn::SendInput, {PgDn} -#IfWinActive -PgUp:: -Loop, 5 - SendInput, {WheelUp} -return -PgDn:: -Loop, 5 - SendInput, {WheelDown} -return -<^>!PgUp::SendInput, {PgUp} -<^>!PgDn::SendInput, {PgDn} -XButton2::SendInput, {XButton2} -XButton2 & WheelUp::SetVolume(GetKeyState("Shift") ? 2 : 1) -XButton2 & WheelDown::SetVolume(GetKeyState("Shift") ? -2 : -1) -RAlt & F6::SetVolume(GetKeyState("Shift") ? 2 : 1) -RAlt & F5::SetVolume(GetKeyState("Shift") ? -2 : -1) -#q::WinSet, Bottom,, A -#a::WinSet, Top,, A -#t::WinSet, AlwaysOnTop, Toggle, A -#y:: -WinGet, t, Transparent, A -if (t = OFF) - WinSet, Transparent, 180, A -else - WinSet, Transparent, OFF, A -return -#b::WinSet, Bottom,, A -#!m::WinMove, A,, 0, 0 -#z::WinMinimize, A -#v:: -WinGet, mm, MinMax, A -if (mm = 1) - WinRestore, A -else - WinMaximize, A -return -#x:: ; minimize all except current -WinGet, hwnd, id, A -WinGet, s, Style, ahk_id %hwnd% -WinSet, Style, -0x20000, ahk_id %hwnd% ; WS_MINIMIZEBOX -WinMinimizeAll -Sleep, 50 -WinSet, Style, % s, ahk_id %hwnd% -WinActivate, ahk_id %hwnd% -WinGet, mm, MinMax, ahk_id %hwnd% -if (mm = -1) - WinRestore, ahk_id %hwnd% -return -#c:: ; minimize last window -SendInput, !{Tab} -Sleep, 50 -WinMinimize, A -return -/* -#!m:: ; fix minimization bug (?) -WinGet, hwnd, id, A -parent := DllCall("GetParent", "uint", hwnd) -WinGet, progman, id, Program Manager ahk_class Progman -DllCall("SetParent", "uint", hwnd, "uint", progman) -DllCall("SetParent", "uint", hwnd, "uint", parent) -return -*/ -/* -#c:: -GWL_HWNDPARENT := -8 -MouseGetPos,,, hwnd -WindowDisabled := hwnd -return -*/ -/* -$!Tab:: -HandleAltTab: -if (WindowDisabled) - WinSet, Disable,, ahk_id %WindowDisabled% -SendInput, {LAlt Down}{Tab} -Hotkey, $!Tab, HandleAltTab, Off -Hotkey, $!+Tab, HandleAltShiftTab, Off -while (GetKeyState("LAlt", "P") and not esc := GetKeyState("Esc", "P")) - Sleep, 1 -if (esc) - SendInput, {Esc} -SendInput, {LAlt Up} -Hotkey, $!Tab, HandleAltTab, On -Hotkey, $!+Tab, HandleAltShiftTab, On -WinSet, Enable,, ahk_id %WindowDisabled% -return -$!+Tab:: -HandleAltShiftTab: -if (WindowDisabled) - WinSet, Disable,, ahk_id %WindowDisabled% -if (WinActive("A") = WindowDisabled) - SendInput, {LAlt Down}{LShift Down}{Tab}{LShift Up}{Tab} -else - SendInput, {LAlt Down}{LShift Down}{Tab}{LShift Up} -Hotkey, $!Tab, HandleAltTab, Off -Hotkey, $!+Tab, HandleAltShiftTab, Off -while (GetKeyState("LAlt", "P") and not esc := GetKeyState("Esc", "P")) - Sleep, 1 -if (esc) - SendInput, {Esc} -SendInput, {LAlt Up} -Hotkey, $!Tab, HandleAltTab, On -Hotkey, $!+Tab, HandleAltShiftTab, On -WinSet, Enable,, ahk_id %WindowDisabled% -return -*/ -^RButton:: -hwndp := WinActive("A") -MouseGetPos,,, hwnd -if (hwnd = hwndp) -{ - WinSet, Top,, A - return -} -DllCall("SetForegroundWindow", "UInt", hwnd) -WinSet, AlwaysOnTop, On, ahk_id %hwndp% -WinSet, AlwaysOnTop, Off, ahk_id %hwndp% -return -#1::FocusButton(1) -#2::FocusButton(2) -#3::FocusButton(3) -#4::FocusButton(4) -#5::FocusButton(5) -#6::FocusButton(6) -#7::FocusButton(7) -#8::FocusButton(8) -#9::FocusButton(9) -#0::FocusButton(10) - -; Miscellaneous - -#Space::CapsLock -#PrintScreen::Media_Prev -#ScrollLock::Media_Play_Pause -#Pause::Media_Next - -#e::Run, % "explorer /n, ::{20D04FE0-3AEA-1069-A2D8-08002B30309D}" -#!t::WinSet, AlwaysOnTop,, ahk_class tooltips_class32 ; fix bug - -; Sleep - -^+F12 Up:: -Sleep, 600 -DllCall("PowrProf\SetSuspendState", "int", 0, "int", 0, "int", 0) -return - -+F12 Up:: -Sleep, 600 -SendMessage,0x112,0xF170,2,,Program Manager ; turn off monitor -return - -; Library --------------------------------------------------------------------- - -DoubleClick(alternate := false) -{ - - - global DoubleClickClicked - global DoubleClickPriorX - global DoubleClickPriorY - global DoubleClickLast - SysGet, SM_CXDOUBLECLK, 36 - SysGet, SM_CYDOUBLECLK, 37 - max := DllCall("User32\GetDoubleClickTime") - - tmp := A_CoordModeMouse - CoordMode, Mouse, Screen - MouseGetPos, x, y - CoordMode, Mouse, %tmp% - - if (not DoubleClickClicked) - { - if (alternate) - SendInput, {Click, right} - else - SendInput, {Click} - DoubleClickPriorX := x - DoubleClickPriorY := y - DoubleClickLast := A_TickCount - DoubleClickClicked := true - return false - } - - if (A_TickCount - DoubleClickLast > max - || abs(x - DoubleClickPriorX) > SM_CXDOUBLECLK - || abs(y - DoubleClickPriorY) > SM_CYDOUBLECLK) - { - if (alternate) - SendInput, {Click, right} - else - SendInput, {Click} - DoubleClickPriorX := x - DoubleClickPriorY := y - DoubleClickLast := A_TickCount - DoubleClickClicked := true - return false - } - - DoubleClickClicked := false - return true -} -env(name) -{ - EnvGet, r, %name% - return r -} -ShowLayout(hwnd := "") -{ - global layouts - f := A_FormatInteger - SetFormat, Integer, H - if (hwnd = "") - WinGet, hwnd, id, A - thread := DllCall("GetWindowThreadProcessId", "UInt",hwnd, "UInt",0) - layout := DllCall("user32.dll\GetKeyboardLayout", "UInt",thread, "UInt") - for k, v in layouts - { - if (layout = v) - { - if (FileExist(k ".ico")) - Menu, Tray, Icon, %k%.ico - break - } - } - SetFormat, Integer, %f% -} -LayoutWindowMessage(wParam, lParam) -{ - if (wParam = 4 or wParam = 32772) ; HSHELL_WINDOW_ACTIVATED | HSHELL_RUDEAPPACTIVATED - { - ShowLayout(lParam) - WinSet, AlwaysOnTop, On, OSD - } -} -NotifyIcon(wParam, lParam) -{ - if (lParam = 0x202) ; WM_LBUTTONUP - Run, % "Rundll32 Shell32.dll,Control_RunDLL input.dll,,{C07337D3-DB2C-4D0B-9A93-B722A6C106E2}" -} -Explorer(hwnd := "") -{ - global ShellApp - if (hwnd = "") - WinGet, hwnd, id, A - for window in ShellApp.Windows - if (window.hwnd = hwnd) - return window - return -1 -} -ExplorerPath() -{ - WinGetClass, cls, A - if (cls = "Progman" or cls = "WorkerW") - return %A_Desktop% - else - return Explorer().Document.Folder.Self.path -} -ExplorerFolderView(view, children := false) -{ - if (view = "name") - n := {m: 30210, d: -1} - else if (view = "modified") - n := {m: 30213, d: -1} - else if (view = "type") - n := {m: 30212, d: -1} - else if (view = "created") - n := {m: 30214, d: -1} - else if (view = "groups") - n := {m: 30209, d: -1} - else if (view = "tiles") - n := {m: 28718, d: 6} - else if (view = "icons") - n := {m: 28713, d: 1} - else if (view = "thumbnails") - n := {m: 28717, d: 5} - else if (view = "details") - n := {m: 28716, d: 4} - else if (view = "list") - n := {m: 28715, d: 3} - - PostMessage, 0x111, % n.m, 0,, A ; change current folder - return - if (not children or m.d = -1) - return - - old := A_BatchLines - SetBatchLines, -1 - - Loop, Files, % ExplorerPath() "\*", D - { - MsgBox, % A_LoopFileFullPath - } - - SetBatchLines, % old -} -TrayOpen: -Run, % "explorer " A_ScriptDir "\.." -return -TrayExit: -ExitApp -return -TrayReload: -Reload -return -TrayRebuild: -RunWait, % A_ScriptDir "\..\build" -Reload -return -SetVolume(n) -{ - SoundGet, w, WAVE - SoundSet, 15 - w := round(w) + n - if (w > 100) - w := 100 - if (w < 0) - w := 0 - SoundSet, %w%, WAVE - OSD(w) -} -/* -SetVolume(n) -{ - global wMax - static vMin := 4 - - SoundGet, s - SoundGet, w, WAVE - s := round(s) - w := round(w) - - if (s > vMin or w > wMax) - wMax := w - else if (wMax = "") - wMax := 100 - - v := s + w - wMax + n - - if (v > 100) - v := 100 - - if (v >= vMin) - { - s := v - w := wMax - } - else - { - s := vMin - w := wMax - vMin + v - } - - SoundSet, %s% - SoundSet, %w%, WAVE - OSD(v) ; display volume on screen -} -*/ -OSD(text) -{ - SetTimer, RemoveOSD, Off - WinSet, AlwaysOnTop, On, OSD - GuiControl, OSD:Text, OSD, %text% - SetTimer, RemoveOSD, 3000 - return -} -RemoveOSD: -SetTimer, RemoveOSD, Off -GuiControl, OSD:Text, OSD, % " " -return -WindowsWindowMessage(wParam, lParam) -{ - static HSHELL_GETMINRECT := 5 - ; The active window is 0 during minimization (if animated) - if (wParam = HSHELL_GETMINRECT and WinActive("A") = 0) - { - hwnd := NumGet(lParam + 0) - WinWaitNotActive, ahk_id 0 - Sleep, 20 - InsertAfter(hwnd, "BOTTOM") - } -} -InsertAfter(hwnd = "", position = "BOTTOM") -{ - static SWP_NOSIZE := 0x0001 - static SWP_NOMOVE := 0x0002 - static SWP_ASYNCWINDOWPOS := 0x4000 - static HWND_BOTTOM := 1 - static HWND_NOTOPMOST := -2 - static HWND_TOP := 0 - static HWND_TOPMOST := -1 - if (hwnd = "") - WinGet, hwnd, id, A - DllCall("SetWindowPos" - , "UInt", hwnd - , "UInt", HWND_%position% - , "Int", 0 - , "Int", 0 - , "Int", 0 - , "Int", 0 - , "UInt", SWP_NOSIZE | SWP_NOMOVE | SWP_ASYNCWINDOWPOS) -} -; https://code.google.com/archive/p/activatebynum/ -Add_hWndToArray(gi, hWnd) -{ - global - g_bundleSize%gi% := g_bundleSize%gi% + 1 - local wi := g_bundleSize%gi% - g_hWnd%gi%_%wi% := hWnd -} -AddBundle(gi) -{ - global - g_bundleSize%gi% := 0 -} -BundleSize(gi) -{ - global - return g_bundleSize%gi% -} -Get_hWndFromArray(gi, wi) -{ - global - return g_hWnd%gi%_%wi% -} -SetButtonTopLeftLoc(gi, x, y) -{ - global - g_xs%gi% := x - g_ys%gi% := y -} -Build_hWndArray(maxBundleCount) -{ - global g_bundleCount - - WinGet, pidTaskbar, PID, ahk_class Shell_TrayWnd - hProc := DllCall("OpenProcess", "Uint", 0x38, "int", 0, "Uint", pidTaskbar) - pProc := DllCall("VirtualAllocEx", "Uint", hProc, "Uint", 0, "Uint", 32, "Uint", 0x1000, "Uint", 0x4) - idxTB := GetTaskSwBar() - SendMessage, 0x418, 0, 0, ToolbarWindow32%idxTB%, ahk_class Shell_TrayWnd ; TB_BUTTONCOUNT - buttonCount := ErrorLevel - - g_bundleCount := 0 - - Loop, %buttonCount% - { - SendMessage, 0x417, A_Index-1, pProc, ToolbarWindow32%idxTB%, ahk_class Shell_TrayWnd ; TB_GETBUTTON - - VarSetCapacity(btn, 32, 0) - DllCall("ReadProcessMemory", "Uint", hProc, "Uint", pProc, "Uint", &btn, "Uint", 32, "Uint", 0) - - idn := NumGet(btn, 4) - Statyle := NumGet(btn, 8, "Char") - dwData := NumGet(btn, 12) - If Not dwData - dwData := NumGet(btn, 16, "int64") - - DllCall("ReadProcessMemory", "Uint", hProc, "Uint", dwData, "int64P", hWnd:=0, "Uint", NumGet(btn,12) ? 4:8, "Uint", 0) - - If Not hWnd ; group button, indicates the start of a group - { - If g_bundleCount >= %maxBundleCount% - Break - hidden := Statyle & 0x08 ; TBSTATE_HIDDEN - If Not hidden - { - grpCollapsed := true - g_bundleCount := g_bundleCount + 1 - AddBundle(g_bundleCount) - - GetTaskbarButtonTopLeft(idn, x, y) - SetButtonTopLeftLoc(g_bundleCount, x, y) - } - Else - grpCollapsed := false - } - else ; actual window button - { - If grpCollapsed - { - Add_hWndToArray(g_bundleCount, hWnd) - } - Else - { - g_bundleCount := g_bundleCount + 1 - AddBundle(g_bundleCount) - Add_hWndToArray(g_bundleCount, hWnd) - - GetTaskbarButtonTopLeft(idn, x, y) - SetButtonTopLeftLoc(g_bundleCount, x, y) - } - } - } - DllCall("VirtualFreeEx", "Uint", hProc, "Uint", pProc, "Uint", 0, "Uint", 0x8000) - DllCall("CloseHandle", "Uint", hProc) -} -FocusButton(n) -{ - global g_bundleCount - - ; these static variables can become inaccurate if windows are created or closed - ; inbetween pressing of hotkeys, but in practice, we can safely ignore the - ; inaccuracy - static prevBundleIndex := 0 - static prevWindowIndex := 0 - Build_hWndArray(n) - if (g_bundleCount >= n) - { - bundleSize := BundleSize(n) - - if n = %prevBundleIndex% - windowIndex := Mod(prevWindowIndex, bundleSize) + 1 - else - windowIndex := 1 - hWnd := Get_hWndFromArray(n, windowIndex) - If bundleSize > 1 ; cycle through windows in the same bundle - WinActivate, ahk_id %hWnd% - Else ; single-window bundle; toggles between activating (restoring) and minimizing the window - IfWinActive, ahk_id %hWnd% - WinMinimize, ahk_id %hWnd% - Else - WinActivate, ahk_id %hWnd% - - prevBundleIndex := n - prevWindowIndex := windowIndex - } -} -GetTaskSwBar() -{ - ControlGet, hParent, hWnd,, MSTaskSwWClass1 , ahk_class Shell_TrayWnd - ControlGet, hChild , hWnd,, ToolbarWindow321, ahk_id %hParent% - Loop - { - ControlGet, hWnd, hWnd,, ToolbarWindow32%A_Index%, ahk_class Shell_TrayWnd - If Not hWnd - Break - Else If hWnd = %hChild% - { - idxTB := A_Index - Break - } - } - Return idxTB -} -GetTaskbarButtonTopLeft(id, ByRef x, ByRef y) -{ - idxTB := GetTaskSwBar() - WinGet, pidTaskbar, PID, ahk_class Shell_TrayWnd - hProc := DllCall("OpenProcess", "Uint", 0x38, "int", 0, "Uint", pidTaskbar) - pProc := DllCall("VirtualAllocEx", "Uint", hProc, "Uint", 0, "Uint", 32, "Uint", 0x1000, "Uint", 0x4) - idxTB := GetTaskSwBar() - SendMessage, 0x433, id, pProc, ToolbarWindow32%idxTB%, ahk_class Shell_TrayWnd ; TB_GETRECT - ;IfEqual, ErrorLevel, 0, return "Err: can't get rect" - - VarSetCapacity(rect, 32, 0) - DllCall("ReadProcessMemory", "Uint", hProc, "Uint", pProc, "Uint", &rect, "Uint", 32, "Uint", 0) - - DllCall("VirtualFreeEx", "Uint", hProc, "Uint", pProc, "Uint", 0, "Uint", 0x8000) - DllCall("CloseHandle", "Uint", hProc) - - ControlGet, hWnd, hWnd,, ToolbarWindow32%idxTB%, ahk_class Shell_TrayWnd - WinGetPos, x, y, w, h, ahk_id %hWnd% - - left := NumGet(rect, 0) - top := NumGet(rect, 4) - right := NumGet(rect, 8) - bottom := NumGet(rect, 12) - x := x + left - y := y + top -} - -WindowMessage(wParam, lParam) -{ - global WindowMessageHandlers - for k, v in WindowMessageHandlers - { - %v%(wParam, lParam) - } -} -- cgit v1.2.3