Script for switching windows by name?

AutoHotkey Community
Let's help each other out

FAQ

Memberlist

Profile

Script for switching windows by name?

AutoHotkey Community Forum Index -> Ask for Help

View previous topic :: View next topic

Author

Message

chrisj732

Joined: 15 Dec 2009
Posts: 2
Location: Longmont, CO

Posted: Tue Dec 15, 2009 9:48 pm Post subject: Script for switching windows by name?

I'm looking for a script where a hotkey would activate a small dialog box where you could enter a string that matched part or all of the name of a running application window. When you press enter, the first window matching the string would be activated and have focus. Basically, it's a task switcher, but by name. It makes it easy to find an application in your list of open apps without having to hunt for it. For anyone that's familiar with the Launchy Launchy "Go-y" plugin, it's just like that. Does anyone know of such a script? I found RunOrActivate on the forums, which is a similar idea, except with hotkeys for apps instead of matching the window title. Tried creating it myself, but so far too much of a learning curve. Thanks!

Guest

Posted: Tue Dec 15, 2009 10:08 pm Post subject:

Code:

SetTitleMatchMode,2
InputBox, UserInput, string, Please enter a string., , 640, 480
if ErrorLevel = 0
WinActivate, %UserInput%
else
msgbox, no matches

txquestor

Joined: 22 Aug 2009
Posts: 294

Posted: Wed Dec 16, 2009 1:41 am Post subject:

Try this, TESTED.

I beliieve this has all the features you want.
It was originally "iswitchw'written by keyboardfreak
modified by ezak

After running script, just press the CAPSLOCK key

Code:

; iSwitchActiveWindows

;
; iswitchw - Incrementally switch between windows using substrings
;
; [MODIFIED by ezuk, 3 July 2008, changes noted below. Cosmetics only.]
;
; Required AutoHotkey version: 1.0.25+
;
; When this script is triggered via its hotkey the list of titles of
; all visible windows appears. The list can be narrowed quickly to a
; particular window by typing a substring of a window title.
;
; When the list is narrowed the desired window can be selected using
; the cursor keys and Enter. If the substring matches exactly one
; window that window is activated immediately (configurable, see the
; "autoactivateifonlyone" variable).
;
; The window selection can be cancelled with Esc.
;
; The switcher window can be moved horizontally with the left/right
; arrow keys if it blocks the view of windows under it.
;
; The switcher can also be operated with the mouse, although it is
; meant to be used from the keyboard. A mouse click activates the
; currently selected window. Mouse users may want to change the
; activation key to one of the mouse keys.
;
; If enabled possible completions are offered when the same unique
; substring is found in the title of more than one window.
;
; For example, the user typed the string "co" and the list is
; narrowed to two windows: "Windows Commander" and "Command Prompt".
; In this case the "command" substring can be completed automatically,
; so the script offers this completion in square brackets which the
; user can accept with the TAB key:
;
; co[mmand]
;
; This feature can be confusing for novice users, so it is disabled
; by default.
;
;
; For the idea of this script the credit goes to the creators of the
; iswitchb package for the Emacs editor
;
;
;----------------------------------------------------------------------
;
; User configuration
;

; set this to yes if you want to select the only matching window
; automatically
autoactivateifonlyone =

; set this to yes if you want to enable tab completion (see above)
; it has no effect if firstlettermatch (see below) is enabled
tabcompletion =

; set this to yes to enable digit shortcuts when there are ten or
; less items in the list
digitshortcuts =

; set this to yes to enable first letter match mode where the typed
; search string must match the first letter of words in the
; window title (only alphanumeric characters are taken into account)
;
; For example, the search string "ad" matches both of these titles:
;
; AutoHotkey - Documentation
; Anne's Diary
;
firstlettermatch =

; set this to yes to enable activating the currently selected
; window in the background
activateselectioninbg =

; number of milliseconds to wait for the user become idle, before
; activating the currently selected window in the background
;
; it has no effect if activateselectioninbg is off
;
; if set to blank the current selection is activated immediately
; without delay
bgactivationdelay = 300

; show process name before window title.
showprocessname =

; Close switcher window if the user activates an other window.
; It does not work well if activateselectioninbg is enabled, so
; currently they cannot be enabled together.
closeifinactivated =

if activateselectioninbg <>
if closeifinactivated <>
{
msgbox, activateselectioninbg and closeifinactivated cannot be enabled together
exitapp
}

; List of subtsrings separated with pipe (|) characters (e.g. carpe|diem).
; Window titles containing any of the listed substrings are filtered out
; from the list of windows.
filterlist = asticky|blackbox

; Set this yes to update the list of windows every time the contents of the
; listbox is updated. This is usually not necessary and it is an overhead which
; slows down the update of the listbox, so this feature is disabled by default.
dynamicwindowlist =

; path to sound file played when the user types a substring which
; does not match any of the windows
;
; set this to blank if you don't want a sound
;
nomatchsound = %windir%\Media\ding.wav

if nomatchsound <>
ifnotexist, %nomatchsound%
msgbox, Sound file %nomatchsound% not found. No sound will be played.

;----------------------------------------------------------------------
;
; Global variables
;
; numallwin - the number of windows on the desktop
; allwinarray - array containing the titles of windows on the desktop
; dynamicwindowlist is disabled
; allwinidarray - window ids corresponding to the titles in allwinarray
; numwin - the number of windows in the listbox
; idarray - array containing window ids for the listbox items
; orig_active_id - the window ID of the originally active window
; (when the switcher is activated)
; prev_active_id - the window ID of the last window activated in the
; background (only if activateselectioninbg is enabled)
; switcher_id - the window ID of the switcher window
; filters - array of filters for filtering out titles
; from the window list
;
;----------------------------------------------------------------------

AutoTrim, off

;this section modified by ezuk, 03 July 2008
Gui, +LastFound +AlwaysOnTop
Gui, Add, ListBox, vindex gListBoxClick x-2 y-2 w810 h602 AltSubmit -VScroll
;end of modifications by ezuk

if filterlist <>
{
loop, parse, filterlist, |
{
filters%a_index% = %A_LoopField%
}
}

;----------------------------------------------------------------------
;
; I never use the CapsLock key, that's why I chose it.
;
CapsLock::

search =
numallwin = 0
GuiControl,, Edit1
GoSub, RefreshWindowList

WinGet, orig_active_id, ID, A
prev_active_id = %orig_active_id%

Gui, Show, Center h600 w800, Window Switcher
; If we determine the ID of the switcher window here then
; why doesn't it appear in the window list when the script is
; run the first time? (Note that RefreshWindowList has already
; been called above).
; Answer: Because when this code runs first the switcher window
; does not exist yet when RefreshWindowList is called.
WinGet, switcher_id, ID, A
WinSet, AlwaysOnTop, On, ahk_id %switcher_id%

Loop
{
if closeifinactivated <>
settimer, CloseIfInactive, 200

Input, input, L1, {enter}{esc}{backspace}{up}{down}{pgup}{pgdn}{tab}{left}{right}

if closeifinactivated <>
settimer, CloseIfInactive, off

if ErrorLevel = EndKey:enter
{
GoSub, ActivateWindow
break
}

if ErrorLevel = EndKey:escape
{
Gui, cancel

; restore the originally active window if
; activateselectioninbg is enabled
if activateselectioninbg <>
WinActivate, ahk_id %orig_active_id%

break
}

if ErrorLevel = EndKey:backspace
{
GoSub, DeleteSearchChar
continue
}

if ErrorLevel = EndKey:tab
if completion =
continue
else
input = %completion%

; pass these keys to the selector window

if ErrorLevel = EndKey:up
{
Send, {up}
GoSuB ActivateWindowInBackgroundIfEnabled
continue
}

if ErrorLevel = EndKey:down
{
Send, {down}
GoSuB ActivateWindowInBackgroundIfEnabled
continue
}

if ErrorLevel = EndKey:pgup
{
Send, {pgup}

GoSuB ActivateWindowInBackgroundIfEnabled
continue
}

if ErrorLevel = EndKey:pgdn
{
Send, {pgdn}
GoSuB ActivateWindowInBackgroundIfEnabled
continue
}

if ErrorLevel = EndKey:left
{
direction = -1
GoSuB MoveSwitcher
continue
}

if ErrorLevel = EndKey:right
{
direction = 1
GoSuB MoveSwitcher
continue
}

; FIXME: probably other error level cases
; should be handled here (interruption?)

; invoke digit shortcuts if applicable
if digitshortcuts <>
if numwin <= 10
if input in 1,2,3,4,5,6,7,8,9,0
{
if input = 0
input = 10

if numwin < %input%
{
if nomatchsound <>
SoundPlay, %nomatchsound%
continue
}

GuiControl, choose, ListBox1, %input%
GoSub, ActivateWindow
break
}

; process typed character

search = %search%%input%
GuiControl,, Edit1, %search%
GoSub, RefreshWindowList
}

Gosub, CleanExit

return

;----------------------------------------------------------------------
;
; Refresh the list of windows according to the search criteria
;
; Sets: numwin - see the documentation of global variables
; idarray - see the documentation of global variables
;
RefreshWindowList:
; refresh the list of windows if necessary

if ( dynamicwindowlist = "yes" or numallwin = 0 )
{
numallwin = 0

WinGet, id, list, , , Program Manager
Loop, %id%
{
StringTrimRight, this_id, id%a_index%, 0
WinGetTitle, title, ahk_id %this_id%

; FIXME: windows with empty titles?
if title =
continue

; don't add the switcher window
if switcher_id = %this_id%
continue

; show process name if enabled
if showprocessname <>
{
WinGet, procname, ProcessName, ahk_id %this_id%

stringgetpos, pos, procname, .
if ErrorLevel <> 1
{
stringleft, procname, procname, %pos%
}

stringupper, procname, procname
title = %procname%: %title%
}

; don't add titles which match any of the filters
if filterlist <>
{
filtered =

loop
{
stringtrimright, filter, filters%a_index%, 0
if filter =
break
else
ifinstring, title, %filter%
{
filtered = yes
break
}
}

if filtered = yes
continue
}

; replace pipe (|) characters in the window title,
; because Gui Add uses it for separating listbox items
StringReplace, title, title, |, -, all

numallwin += 1
allwinarray%numallwin% = %title%
allwinidarray%numallwin% = %this_id%
}
}

; filter the window list according to the search criteria

winlist =
numwin = 0

Loop, %numallwin%
{
StringTrimRight, title, allwinarray%a_index%, 0
StringTrimRight, this_id, allwinidarray%a_index%, 0

; don't add the windows not matching the search string
; if there is a search string
if search <>
if firstlettermatch =
{
if title not contains %search%,
continue
}
else
{
stringlen, search_len, search

index = 1
match =

loop, parse, title, %A_Space%
{
stringleft, first_letter, A_LoopField, 1

; only words beginning with an alphanumeric
; character are taken into account
if first_letter not in 1,2,3,4,5,6,7,8,9,0,a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z
continue

stringmid, search_char, search, %index%, 1

if first_letter <> %search_char%
break

index += 1

; no more search characters
if index > %search_len%
{
match = yes
break
}
}

if match =
continue ; no match
}

if winlist <>
winlist = %winlist%|
winlist = %winlist%%title%`r%this_id%

numwin += 1
winarray%numwin% = %title%
}

; if the pattern didn't match any window
if numwin = 0
; if the search string is empty then we can't do much
if search =
{
Gui, cancel
Gosub, CleanExit
}
; delete the last character
else
{
if nomatchsound <>
SoundPlay, %nomatchsound%

GoSub, DeleteSearchChar
return
}

; sort the list alphabetically
Sort, winlist, D|

; add digit shortcuts if there are ten or less windows
; in the list and digit shortcuts are enabled
if digitshortcuts <>
if numwin <= 10
{
digitlist =
digit = 1
loop, parse, winlist, |
{
; FIXME: windows with empty title?
if A_LoopField <>
{
if digitlist <>
digitlist = %digitlist%|
digitlist = %digitlist%%digit%%A_Space%%A_Space%%A_Space%%A_LoopField%

digit += 1
if digit = 10
digit = 0
}
}
winlist = %digitlist%
}

; strip window IDs from the sorted list
titlelist =
arrayindex = 1

loop, parse, winlist, |
{
stringgetpos, pos, A_LoopField, `r

stringleft, title, A_LoopField, %pos%
titlelist = %titlelist%|%title%

pos += 2 ; skip the separator char
stringmid, id, A_LoopField, %pos%, 10000
idarray%arrayindex% = %id%
++arrayindex
}

; show the list
GuiControl,, ListBox1, %titlelist%
GuiControl, Choose, ListBox1, 1

if numwin = 1
if autoactivateifonlyone <>
{
GoSub, ActivateWindow
Gosub, CleanExit
}

GoSub ActivateWindowInBackgroundIfEnabled

completion =

if tabcompletion =
return

; completion is not implemented for first letter match mode
if firstlettermatch <>
return

; determine possible completion if there is
; a search string and there are more than one
; window in the list

if search =
return

if numwin = 1
return

loop
{
nextchar =

loop, %numwin%
{
stringtrimleft, title, winarray%a_index%, 0

if nextchar =
{
substr = %search%%completion%
stringlen, substr_len, substr
stringgetpos, pos, title, %substr%

if pos = -1
break

pos += %substr_len%

; if the substring matches the end of the
; string then no more characters can be completed
stringlen, title_len, title
if pos >= %title_len%
{
pos = -1
break
}

; stringmid has different position semantics
; than stringgetpos. strange...
pos += 1
stringmid, nextchar, title, %pos%, 1
substr = %substr%%nextchar%
}
else
{
stringgetpos, pos, title, %substr%
if pos = -1
break
}
}

if pos = -1
break
else
completion = %completion%%nextchar%
}

if completion <>
GuiControl,, Edit1, %search%[%completion%]

return

;----------------------------------------------------------------------
;
; Delete last search char and update the window list
;
DeleteSearchChar:

if search =
return

StringTrimRight, search, search, 1
GuiControl,, Edit1, %search%
GoSub, RefreshWindowList

return

;----------------------------------------------------------------------
;
; Activate selected window
;
ActivateWindow:

Gui, submit
stringtrimleft, window_id, idarray%index%, 0
WinActivate, ahk_id %window_id%

return

;----------------------------------------------------------------------
;
; Activate selected window in the background
;
ActivateWindowInBackground:

guicontrolget, index,, ListBox1
stringtrimleft, window_id, idarray%index%, 0

if prev_active_id <> %window_id%
{
WinActivate, ahk_id %window_id%
WinActivate, ahk_id %switcher_id%
prev_active_id = %window_id%
}

return

;----------------------------------------------------------------------
;
; Activate selected window in the background if the option is enabled.
; If an activation delay is set then a timer is started instead of
; activating the window immediately.
;
ActivateWindowInBackgroundIfEnabled:

if activateselectioninbg =
return

; Don't do it just after the switcher is activated. It is confusing
; if active window is changed immediately.
WinGet, id, ID, ahk_id %switcher_id%
if id =
return

if bgactivationdelay =
GoSub ActivateWindowInBackground
else
settimer, BgActivationTimer, %bgactivationdelay%

return

;----------------------------------------------------------------------
;
; Check if the user is idle and if so activate the currently selected
; window in the background
;
BgActivationTimer:

settimer, BgActivationTimer, off

GoSub ActivateWindowInBackground

return

;----------------------------------------------------------------------
;
; Stop background window activation timer if necessary and exit
;
CleanExit:

settimer, BgActivationTimer, off

exit

;----------------------------------------------------------------------
;
; Cancel keyboard input if GUI is closed.
;
GuiClose:

send, {esc}

return

;----------------------------------------------------------------------
;
; Handle mouse click events on the list box
;
ListBoxClick:
if (A_GuiControlEvent = "Normal"
and !GetKeyState("Down", "P") and !GetKeyState("Up", "P"))
send, {enter}
return

;----------------------------------------------------------------------
;
; Move switcher window horizontally
;
; Input: direction - 1 for right, -1 for left
;
MoveSwitcher:

direction *= 100
WinGetPos, x, y, width, , ahk_id %switcher_id%
x += %direction%

if x < 0
x = 0
else
{
SysGet screensize, MonitorWorkArea
screensizeRight -= %width%
if x > %screensizeRight%
x = %screensizeRight%
}

prevdelay = %A_WinDelay%
SetWinDelay, -1
WinMove, ahk_id %switcher_id%, , %x%, %y%
SetWinDelay, %prevdelay%

return

;----------------------------------------------------------------------
;
; Close the switcher window if the user activated an other window
;
CloseIfInactive:

ifwinnotactive, ahk_id %switcher_id%
send, {esc}

return

Have Fun,

_________________

"Man's quest for knowledge is an expanding series whose limit is infinity"

chrisj732

Joined: 15 Dec 2009
Posts: 2
Location: Longmont, CO

Posted: Wed Dec 16, 2009 3:46 am Post subject:

Thanks txquestor, that is awesome!! I shrunk the window size down a bit, moved it into the corner instead of centered, and changed the hotkey. Otherwise, it's perfect. Thanks again!

Guest

Posted: Thu Dec 17, 2009 6:52 am Post subject:

txquestor wrote:

Try this, TESTED.

I beliieve this has all the features you want.
It was originally "iswitchw'written by keyboardfreak
modified by ezak

You should have pointed to the relevant ezuk thread instead of duplicating the script here. It's better to have one thread for the script, because then the enhancements can be followed in that single thread.

Guest

Posted: Thu Dec 17, 2009 9:36 am Post subject:

http://www.autohotkey.com/forum/topic33353.html

Display posts from previous:

	AutoHotkey Community Forum Index -> Ask for Help	All times are GMT
Page 1 of 1

You can post new topics in this forum
You can reply to topics in this forum