Post by NikitaXVV » 13 May 2021, 11:08
Voici ma macro qui me permet avec mon clic souris de passer d'une application a une autre sans utiliser alt tab et être obliger de conter le nombre de programme
sauf que avec cette macro les actions sont "ouvrir / abbaisser la page / ouvrir la suivant j'aimerais juste faire passer en premier plan la suivante et non passer par l'étape de l'abaissement cela me ferais gagner du temps dans l'ultilisation merci beaucoup de votre aide je n'ai pas envie de tout casser
Code: Select all
; This AutoHotkey script is to Open, Restore or Minimize the desires Apps using the configured shortcuts key (hotkeys) you want.
; There are three functions you can use for this:
;
;
; a) OpenOrShowAppBasedOnExeName(AppAddress) //Useful for regular Window Apps
; b) OpenOrShowAppBasedOnWindowTitle(WindowTitleWord, AppAddress) //Specially useful for Chrome Apps and Chrome Shortcuts
; c) OpenOrShowAppBasedOnAppModelUserID(AppTitle, AppModelUserID) //Useful for Windows Store Apps (contained in the "shell:AppsFolder\")
; Additionally, pressing Alt + ` (key above Tab key) you can switch between open Windows of the same "type" and same App (.exe)
; The "type" checking is based on the App's Title convention that stipulates that the App name should be at the end of the Window title (Eg: New Document - Word )
/* ;
*****************************
***** UTILITY FUNCTIONS *****
*****************************
*/
#WinActivateForce ; Prevent task bar buttons from flashing when different windows are activated quickly one after the other.
; AppAddress: The address to the .exe (Eg: "C:\Windows\System32\SnippingTool.exe")
OpenOrShowAppBasedOnExeName(AppAddress)
{
AppExeName := SubStr(AppAddress, InStr(AppAddress, "\", false, -1) + 1)
IfWinExist ahk_exe %AppExeName%
{
IfWinActive
{
WinMinimize
Return
}
else
{
WinActivate
Return
}
}
else
{
Run, %AppAddress%, UseErrorLevel
If ErrorLevel
{
Msgbox, File %AppAddress% Not Found
Return
}
else
{
WinWait, ahk_exe %AppExeName%
WinActivate ahk_exe %AppExeName%
Return
}
}
}
; WindowTitleWord: Usually the word at the end of the app window title (Eg: in: "New Document - Word" will be "Word")
; AppAddress: The address to the .exe (Eg: "C:\Windows\System32\SnippingTool.exe")
OpenOrShowAppBasedOnWindowTitle(WindowTitleWord, AppAddress)
{
SetTitleMatchMode, 2
IfWinExist, %WindowTitleWord%
{
IfWinActive
{
WinMinimize
Return
}
else
{
WinActivate
Return
}
}
else
{
Run, %AppAddress%, UseErrorLevel
If ErrorLevel
{
Msgbox, File %AppAddress% Not Found
Return
}
else
{
WinActivate
Return
}
}
}
; AppTitle: Usually the word at the end of the app window title(Eg: in: "New Document - Word" will be "Word")
; AppModelUserID: A comprehensive guide on how to find the AppModelUserID of a windows store app can be found here: https jcutrer.com /windows/find-aumid Broken Link for safety
OpenOrShowAppBasedOnAppModelUserID(AppTitle, AppModelUserID)
{
SetTitleMatchMode, 2
IfWinExist, %AppTitle%
{
IfWinActive
{
WinMinimize
Return
}
else
{
WinActivateBottom %AppTitle%
}
}
else
{
Run, shell:AppsFolder\%AppModelUserID%, UseErrorLevel
If ErrorLevel
{
Msgbox, File %AppModelUserID% Not Found
Return
}
}
}
ExtractAppTitle(FullTitle)
{
AppTitle := SubStr(FullTitle, InStr(FullTitle, " ", false, -1) + 1)
Return AppTitle
}
/* ;
***********************************
***** SHORTCUTS CONFIGURATION *****
***********************************
*/
; XButton1 - Open||Show "SnippingTool"
XButton1:: OpenOrShowAppBasedOnExeName("C:\Program Files (x86)\Gamepatron\Battle Of Sea\launcher.exe")
; F8 - Open||Show "Gmail as Chrome App"
F8:: OpenOrShowAppBasedOnWindowTitle("Gmail", "C:\Program Files\Google\Chrome\Application\chrome.exe --app=https mail.google.com /mail/") Broken Link for safety
/*
Use this if you have your chrome in the "Program Files (x86)" folder
F8:: OpenOrShowAppBasedOnWindowTitle("Gmail", "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe --app=https mail.google.com /mail/") Broken Link for safety
*/
; F9 - Open||Show "Windows store Calculator app"
F9:: OpenOrShowAppBasedOnAppModelUserID("Calculator", "Microsoft.WindowsCalculator_8wekyb3d8bbwe!App")
; p - Activate NEXT Window of same type (title checking) of the current APP
!`::
WinGet, ActiveProcess, ProcessName, A
WinGet, OpenWindowsAmount, Count, ahk_exe %ActiveProcess%
If OpenWindowsAmount = 1 ; If only one Window exist, do nothing
Return
Else
{
WinGetTitle, FullTitle, A
AppTitle := ExtractAppTitle(FullTitle)
SetTitleMatchMode, 2
WinGet, WindowsWithSameTitleList, List, %AppTitle%
If WindowsWithSameTitleList > 1 ; If several Window of same type (title checking) exist
{
WinActivate, % "ahk_id " WindowsWithSameTitleList%WindowsWithSameTitleList% ; Activate next Window
}
}
Return
Voici ma macro qui me permet avec mon clic souris de passer d'une application a une autre sans utiliser alt tab et être obliger de conter le nombre de programme :) sauf que avec cette macro les actions sont "ouvrir / abbaisser la page / ouvrir la suivant j'aimerais juste faire passer en premier plan la suivante et non passer par l'étape de l'abaissement cela me ferais gagner du temps dans l'ultilisation merci beaucoup de votre aide je n'ai pas envie de tout casser :x
[Codebox=autohotkey file=Untitled.ahk]
; This AutoHotkey script is to Open, Restore or Minimize the desires Apps using the configured shortcuts key (hotkeys) you want.
; There are three functions you can use for this:
;
;
; a) OpenOrShowAppBasedOnExeName(AppAddress) //Useful for regular Window Apps
; b) OpenOrShowAppBasedOnWindowTitle(WindowTitleWord, AppAddress) //Specially useful for Chrome Apps and Chrome Shortcuts
; c) OpenOrShowAppBasedOnAppModelUserID(AppTitle, AppModelUserID) //Useful for Windows Store Apps (contained in the "shell:AppsFolder\")
; Additionally, pressing Alt + ` (key above Tab key) you can switch between open Windows of the same "type" and same App (.exe)
; The "type" checking is based on the App's Title convention that stipulates that the App name should be at the end of the Window title (Eg: New Document - Word )
/* ;
*****************************
***** UTILITY FUNCTIONS *****
*****************************
*/
#WinActivateForce ; Prevent task bar buttons from flashing when different windows are activated quickly one after the other.
; AppAddress: The address to the .exe (Eg: "C:\Windows\System32\SnippingTool.exe")
OpenOrShowAppBasedOnExeName(AppAddress)
{
AppExeName := SubStr(AppAddress, InStr(AppAddress, "\", false, -1) + 1)
IfWinExist ahk_exe %AppExeName%
{
IfWinActive
{
WinMinimize
Return
}
else
{
WinActivate
Return
}
}
else
{
Run, %AppAddress%, UseErrorLevel
If ErrorLevel
{
Msgbox, File %AppAddress% Not Found
Return
}
else
{
WinWait, ahk_exe %AppExeName%
WinActivate ahk_exe %AppExeName%
Return
}
}
}
; WindowTitleWord: Usually the word at the end of the app window title (Eg: in: "New Document - Word" will be "Word")
; AppAddress: The address to the .exe (Eg: "C:\Windows\System32\SnippingTool.exe")
OpenOrShowAppBasedOnWindowTitle(WindowTitleWord, AppAddress)
{
SetTitleMatchMode, 2
IfWinExist, %WindowTitleWord%
{
IfWinActive
{
WinMinimize
Return
}
else
{
WinActivate
Return
}
}
else
{
Run, %AppAddress%, UseErrorLevel
If ErrorLevel
{
Msgbox, File %AppAddress% Not Found
Return
}
else
{
WinActivate
Return
}
}
}
; AppTitle: Usually the word at the end of the app window title(Eg: in: "New Document - Word" will be "Word")
; AppModelUserID: A comprehensive guide on how to find the AppModelUserID of a windows store app can be found here: https jcutrer.com /windows/find-aumid Broken Link for safety
OpenOrShowAppBasedOnAppModelUserID(AppTitle, AppModelUserID)
{
SetTitleMatchMode, 2
IfWinExist, %AppTitle%
{
IfWinActive
{
WinMinimize
Return
}
else
{
WinActivateBottom %AppTitle%
}
}
else
{
Run, shell:AppsFolder\%AppModelUserID%, UseErrorLevel
If ErrorLevel
{
Msgbox, File %AppModelUserID% Not Found
Return
}
}
}
ExtractAppTitle(FullTitle)
{
AppTitle := SubStr(FullTitle, InStr(FullTitle, " ", false, -1) + 1)
Return AppTitle
}
/* ;
***********************************
***** SHORTCUTS CONFIGURATION *****
***********************************
*/
; XButton1 - Open||Show "SnippingTool"
XButton1:: OpenOrShowAppBasedOnExeName("C:\Program Files (x86)\Gamepatron\Battle Of Sea\launcher.exe")
; F8 - Open||Show "Gmail as Chrome App"
F8:: OpenOrShowAppBasedOnWindowTitle("Gmail", "C:\Program Files\Google\Chrome\Application\chrome.exe --app=https mail.google.com /mail/") Broken Link for safety
/*
Use this if you have your chrome in the "Program Files (x86)" folder
F8:: OpenOrShowAppBasedOnWindowTitle("Gmail", "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe --app=https mail.google.com /mail/") Broken Link for safety
*/
; F9 - Open||Show "Windows store Calculator app"
F9:: OpenOrShowAppBasedOnAppModelUserID("Calculator", "Microsoft.WindowsCalculator_8wekyb3d8bbwe!App")
; p - Activate NEXT Window of same type (title checking) of the current APP
!`::
WinGet, ActiveProcess, ProcessName, A
WinGet, OpenWindowsAmount, Count, ahk_exe %ActiveProcess%
If OpenWindowsAmount = 1 ; If only one Window exist, do nothing
Return
Else
{
WinGetTitle, FullTitle, A
AppTitle := ExtractAppTitle(FullTitle)
SetTitleMatchMode, 2
WinGet, WindowsWithSameTitleList, List, %AppTitle%
If WindowsWithSameTitleList > 1 ; If several Window of same type (title checking) exist
{
WinActivate, % "ahk_id " WindowsWithSameTitleList%WindowsWithSameTitleList% ; Activate next Window
}
}
Return
[/Codebox]