Home | Download | Screenshots | Forum | FAQ | Help

Scroll Through Open Programs

This script will allow you to define a pair of actions which utilize the mouse wheel scroll up/down to scroll through open applications, including Windows 8 Metro apps.

 

--Important: Make sure to check Allow After Release Script* -- in Preferences for this to work properly: -------------------------------------------------------- --Global Lua: -------------------------------------------------------- bTaskMode = 0 iTaskCount = 0 iTaskPosition = 0 function sp_after_release() bTaskMode = 0 iTaskCount = 0 iTaskPosition = 0 end aliencore = alien.core user32 = aliencore.load("user32.dll") -- ************ IsIconic ************ gIsIconic = user32.IsIconic gIsIconic:types{ ret = 'long', abi = 'stdcall', 'long'} function aIsIconic(iWnd) return gIsIconic(iWnd) end -------------------------------------------------------- --Scroll Up Action: -------------------------------------------------------- if bTaskMode == 0 then bTaskMode = 1 acGetAllWindows(1) for num, handle in pairs(sp_all_windows) do iTaskCount = iTaskCount + 1 end end local iStartingPosition = iTaskPosition ::top:: iTaskPosition = iTaskPosition - 1 if iTaskPosition < 0 then iTaskPosition = iTaskCount-1 end --get the window class to test for excluded windows local sClass = acGetClassName(sp_all_windows[iTaskPosition],0,0) --exclude these windows if sClass ~= "SearchPane" and sClass ~= "Shell_CharmWindow" and sClass ~= "ImmersiveLauncher" and sClass ~= "Snapped Desktop" and sClass ~= "ImmersiveBackgroundWindow" and sClass ~= "NativeHWNDHost" and sClass ~= "MetroGhostWindow" then --if the window is minimized, restore it if aIsIconic(sp_all_windows[iTaskPosition]) ~= 0 then acRestoreWindow(sp_all_windows[iTaskPosition]) end --activate the window acActivateWindow(sp_all_windows[iTaskPosition]) else --the line below ensures the script won't get --stuck in a recursive loop --if there are only excluded windows present if iTaskPosition ~= iStartingPosition then goto top end end -------------------------------------------------------- -- Scroll Down Action: -------------------------------------------------------- if bTaskMode == 0 then bTaskMode = 1 acGetAllWindows(1) for num, handle in pairs(sp_all_windows) do iTaskCount = iTaskCount + 1 end end local iStartingPosition = iTaskPosition ::top:: iTaskPosition = iTaskPosition + 1 if iTaskPosition >= iTaskCount then iTaskPosition = 0 end --get the window class to test for excluded windows local sClass = acGetClassName(sp_all_windows[iTaskPosition],0,0) --exclude these windows if sClass ~= "SearchPane" and sClass ~= "Shell_CharmWindow" and sClass ~= "ImmersiveLauncher" and sClass ~= "Snapped Desktop" and sClass ~= "ImmersiveBackgroundWindow" and sClass ~= "NativeHWNDHost" and sClass ~= "MetroGhostWindow" then --if the window is minimized, restore it if aIsIconic(sp_all_windows[iTaskPosition]) ~= 0 then acRestoreWindow(sp_all_windows[iTaskPosition]) end --activate the window acActivateWindow(sp_all_windows[iTaskPosition]) else --the line below ensures the script won't get --stuck in a recursive loop --if there are only excluded windows present if iTaskPosition ~= iStartingPosition then goto top end end

 

Navigation

• Home
• Download
• Screenshots
• Forum
• Guides
• • Sample Scripts
    • Windows
    • Internet Browsers
    • Multimedia
    • Mouse
    • Keyboard
    • Miscellaneous
    • Advanced
• FAQ
• Help

 

Latest Releases

New Version
StrokesPlus.net
Version 2.8.6.4 (Mar 20, 2016)
[archived]

Change Log

 

Recent Posts

• Sticky: A New Era
• Sticky: Guides
• In: Version 2.8.6.4
• In: win + x
• In: Open sound setting on: app volume and device
• In: Save xml file
• In: WIN + TAB
• In: DYK: Maximizing Efficiency
• In: [COMPLETE] sp_init()

 

 

 

© 2011-2024 Rob Yapchanyk