Dernière version du 6 mars 2024 à 14:39

Généralités

AutoHotKey
SciTE4AutoHotkey permet d'avoir la coloration syntaxique avec les fichiers ahk.

Links

Send

Send	les caractères spéciaux sont transformés
SendRaw	pas de transformation, envoie les caractères tels qu'ils sont écrits
SendInput	plus rapide et plus fiable que Send
SendPlay	similaire à SendInput, mais plus adapté pour les jeux vidéo

Clavier

#	Windows
!	Alt
^	Ctrl
+	Shift
<^>!	Alt Gr
*	Wildcard: Fire the hotkey even if extra modifiers are being held down.
$	This is usually only necessary if the script uses the Send command to send the keys that comprise the hotkey itself, which might otherwise cause it to trigger itself.

Capture de la Souris

`LButton`	clique gauche
`RButton`	clique droit
`MButton`	clique roulette
`XButton1`	bouton 4 (doit être assigné à Browser_Back)
`XButton2`	bouton 5 (doit être assigné à Browser_Forward)

XButton3 n'est pas implémenté car Windows ne supporte que 5 boutons.
Il faut donc mapper ce 6ème boutons à une combinaison de touches et remapper ces touches à une action.

Double-clique

C:\Windows\System32\drivers\etc\AutoHotkey.ahk

; Double click
~LButton:: 
If (A_TimeSincePriorHotkey<400) and (A_PriorHotkey="~LButton")
	MsgBox You double Left clicked on something 
Return

Générer des événements souris

C:\Windows\System32\drivers\etc\AutoHotkey.ahk

; Clique gauche
MouseClick, left

; Double clique
MouseClick, left, , , 2

Mapping pour une application spécifique

C:\Windows\System32\drivers\etc\AutoHotkey.ahk

; Si LibreOffice est actif, mapper le point du pavé numérique avec le point et non la virgule par défaut en FR
IfWinActive ahk_class SALFRAME
NumPadDot::SendInput .

; Si Firefox ou Notepad++ est actif
If WinActive("ahk_class MozillaWindowClass") or WinActive("ahk_class Notepad++") { }

; A window's title can contain WinTitle anywhere inside it to be a match.
SetTitleMatchMode, 2

SetTitleMatchMode

Désactiver / remapper les touches Caps Lock, Num Lock, Scroll Lock

C:\Windows\System32\drivers\etc\AutoHotkey.ahk

; set the default state of the lock keys
SetCapsLockState, off
SetNumLockState, on
SetScrollLockState, off

; disable them
$NumLock::Return
$ScrollLock::Return

; make the capslock key behave as menu/AppsKey
CapsLock::AppsKey

if else

C:\Windows\System32\drivers\etc\AutoHotkey.ahk

if Variable
    ...
else if (x > y) {
   ...
   ...
} else
   ...

Lire et écrire dans un fichier

; écriture dans %USERPROFILE%\AppData\Local\Temp\file.tmp
"text" > %A_Temp%\file.tmp
; écriture sans saut de ligne
"text" | Set-Content -NoNewline %A_Temp%\file.tmp

; lecture du fichier %USERPROFILE%\AppData\Local\Temp\file.tmp
FileRead, FileContent, %A_Temp%\file.tmp
; lecture de la ligne 1
FileReadLine, FileLineOne, %A_Temp%\file.tmp, 1

FileRead, FileReadLine

Exécuter du code PowerShell, Batch

; Batch, écriture du résultat dans %USERPROFILE%\AppData\Local\Temp\result.tmp
RunWait %Comspec% /c "commande batch" > %A_Temp%\result.tmp,,HIDE

; PowerShell, écriture du résultat dans %USERPROFILE%\AppData\Local\Temp\result.tmp
RunWait powershell.exe "commande powershell" > %A_Temp%\result.tmp,,HIDE

Run

ScanCode

Clique-droit sur l'icone → Open → View (Menu bar) → Key history and script info
Appuyer sur une touche → F5
Le code de la 2ème colonne correspond au ScanCode

VK	SC	Type	Up/Dn	Elapsed	Key	Window
C0	01B	h	d	1.72	¨

C:\Windows\System32\drivers\etc\AutoHotkey.ahk

*VKC0::! ; ¨ → !
$+VKC0::send {U+00A8} ; shift + ¨ (!) → ¨
$<^>!VKC0::] ; AltGr + ¨ → ]

Exemples

; ctrl-w -> ctrl-z
^w::^z
; ctrl-q -> ctrl-a
^q::^a

$F1::Send ^c ; copy
$F2::Send ^v ; paste

F12::Send !{F4} ; fermer fenêtre avec F12

; clique-milieu -> clique gauche + ctrl-v
MButton::
MouseClick
SendInput ^v
Return

; Alt-A select the whole line
!a::
Send {Home}
Send +{End}
Return

; dans LibreOffice
#IfWinActive ahk_class SALFRAME
NumPadDot::SendInput .

Copie la sélection dans le presse-papier

~Lshift::
TimeButtonDown = %A_TickCount%
; Wait for it to be released
Loop
{
	Sleep 10
	GetKeyState, LshiftState, Lshift, P
	if LshiftState = U  ; Button has been released.
		break
	elapsed = %A_TickCount%
	elapsed -= %TimeButtonDown%
	if elapsed > 200  ; Button was held down long enough
	{
		x0 = A_CaretX
		y0 = A_CaretY
		Loop
		{
			Sleep 20                    ; yield time to others
			GetKeyState keystate, Lshift
			IfEqual keystate, U, {
				x = A_CaretX
				y = A_CaretY
				break
			}
		}
		if (x-x0 > 5 or x-x0 < -5 or y-y0 > 5 or y-y0 < -5)
		{                             ; Caret has moved
			clip0 := ClipBoardAll      ; save old clipboard
			;ClipBoard =
			Send ^c                    ; selection -> clipboard
			ClipWait 1, 1              ; restore clipboard if no data
			IfEqual ClipBoard,, SetEnv ClipBoard, %clip0%
		}
		return
	}
}

~LButton::
MouseGetPos, xx
TimeButtonDown = %A_TickCount%
; Wait for it to be released
Loop
{
	Sleep 10
	GetKeyState, LButtonState, LButton, P
	if LButtonState = U  ; Button has been released.
	{
		If WinActive("Crimson Editor") and (xx < 25) ; Single Click in the Selection Area of CE
		{
			Send, ^c
			return
		}
		break
	}
	elapsed = %A_TickCount%
	elapsed -= %TimeButtonDown%
	if elapsed > 200  ; Button was held down too long, so assume it's not a double-click.
	{
		MouseGetPos x0, y0            ; save start mouse position
		Loop
		{
			Sleep 20                    ; yield time to others
			GetKeyState keystate, LButton
			IfEqual keystate, U, {
				MouseGetPos x, y          ; position when button released
				break
			}
		}
		if (x-x0 > 5 or x-x0 < -5 or y-y0 > 5 or y-y0 < -5)
		{                              ; mouse has moved
			clip0 := ClipBoardAll      ; save old clipboard
			;ClipBoard =
			Send ^c                    ; selection -> clipboard
			ClipWait 1, 1              ; restore clipboard if no data
			IfEqual ClipBoard,, SetEnv ClipBoard, %clip0%
		}
		return
	}
}

; Otherwise, button was released quickly enough. Wait to see if it's a double-click
TimeButtonUp = %A_TickCount%
Loop
{
	Sleep 10
	GetKeyState, LButtonState, LButton, P
	; Button has been pressed down again.
	if LButtonState = D
		break
	elapsed = %A_TickCount%
	elapsed -= %TimeButtonUp%
	; No click has occurred within the allowed time, so assume it's not a double-click.
	if elapsed > 350
		return
}

; Button pressed down again, it's at least a double-click
TimeButtonUp2 = %A_TickCount%
Loop
{
	Sleep 10
	GetKeyState, LButtonState2, LButton, P
	; Button has been released a 2nd time, let's see if it's a tripple-click.
	if LButtonState2 = U
		break
}

; Button released a 2nd time
TimeButtonUp3 = %A_TickCount%
Loop
{
	Sleep 10
	GetKeyState, LButtonState3, LButton, P
	if LButtonState3 = D  ; Button has been pressed down a 3rd time.
		break
	elapsed = %A_TickCount%
	elapsed -= %TimeButtonUp%
	if elapsed > 350  ; No click has occurred within the allowed time, so assume it's not a tripple-click.
	{  ;Double-click
		Send, ^c
		return
	}
}

; Tripple-click
Sleep, 100
Send, ^c
return

; Ctl+A = Select All, then Copy
~^a::Send, ^c

Old

C:\Windows\System32\drivers\etc\AutoHotkey.ahk

CopyToClipboard2()
{
	ClipSaved := ClipboardAll 		; Save the entire clipboard to a variable of your choice.
	Send ^c               			; Copy the highlighted text to the clipboard 
	ClipWait, 2				; Wait for the clipboard to contain text.
	if ErrorLevel
	{
		MsgBox, The attempt to copy text onto the clipboard failed.
		return
	}
	;MsgBox Control-C copied the following contents to the clipboard:`nüClipboardü
	global SecondClipboard
	SecondClipboard := Clipboard	    ; Assign the clipboard content to the variable 
	sleep, 100
	Clipboard := ClipSaved    	    ; Restore the original clipboard
	ClipSaved :=             	    ; Free the memory in case the clipboard was very large 
}

~LButton::
if not (WinActive("ahk_class CabinetWClass") or WinActive("ahk_class Shell_TrayWnd") or WinActive("ahk_class Progman"))
{
	MouseGetPos, cos_mousedrag_x, cos_mousedrag_y
	KeyWait LButton
	MouseGetPos, cos_mousedrag_x2, cos_mousedrag_y2
	if (abs(cos_mousedrag_x2 - cos_mousedrag_x) > 10 or abs(cos_mousedrag_y2 - cos_mousedrag_y) > 10)
	{
		CopyToClipboard2()
	}
	else if (A_TimeSincePriorHotkey < 400) and (A_PriorHotkey = "~LButton")
	{
		if (A_TimeSincePriorHotkey < 400) and (A_PriorHotkey = "~LButton")
		{
			;MsgBox You triple Left clicked on something 
			CopyToClipboard2()
		}
		else
		{
			;MsgBox You double Left clicked on something		
			CopyToClipboard2()
		}
	}
}
Return

XButton2::
StringReplace, SecondClipboard, SecondClipboard, `r, , All
;SendInput {LButton}
SendInput {Click left}
SendInput {Raw}üSecondClipboardü	; plus rapide que Send et SendRaw
Return

Alt Tab

C:\Windows\System32\drivers\etc\AutoHotkey.ahk

; AltTab avec Ctrl + Backspace
ctrl & backspace::AltTab

C:\Windows\System32\drivers\etc\AutoHotkey.ahk

; AltTab avec CapsLock
CapsLock::AltTabAndMenu
!LButton::    ; The ! prefix makes it fire while the Alt key is down (which it is if the alt-tab menu is visible).
	MouseClick, left
        Send {Alt up}
return
!Enter::
	Send {Enter}
	Send {Alt up}
return

Contrôle du son avec la molette

!WheelUp::Send "{Volume_Up 1}"
!WheelDown::Send "{Volume_Down 1}"

Verrouiller

C:\Windows\System32\drivers\etc\AutoHotkey.ahk

; Windows + Esc
#Escape::DllCall("LockWorkStation")

Print Screen

C:\Windows\System32\drivers\etc\AutoHotkey.ahk

; Lancer SnippingTool avec la touche Print Screen
PrintScreen::Run SnippingTool.exe

Mot de passe sous Windows

C:\Windows\System32\drivers\etc\AutoHotkey.ahk

#a::
RunWait, powershell.exe "pm get key1" | Set-Content -NoNewline %A_Temp%\pm.tmp,,HIDE
FileReadLine, Result, %A_Temp%\pm.tmp, 1
FileDelete, %A_Temp%\pm.tmp
SendRaw %Result%
SendInput {Enter}
Return

%UserProfile%\Documents\WindowsPowerShell\Microsoft.PowerShell_profile.ps1

New-Alias pm "C:\Users\[USER]\Documents\WindowsPowerShell\Scripts\PasswordsManager.ps1"

C:\Users\[USER]\Documents\WindowsPowerShell\Scripts\PasswordsManager.ps1

[CmdletBinding()]
Param (
  [string] $Action = "help",
  [string] $Key
)

$PasswordFilesPath = "$home\passwords"

switch ($Action)
{
    "help"
    {
        "Password Manager:
        
> pm store <key>
> pm get <key>
> pm list"
    }
    "store"
    {
        if ([String]::IsNullOrEmpty($Key))
        {
            "Merci de renseigner une clé pour le stockage du mot de passe."
        }
        else
        {
            $Credential = Get-Credential -Message "Enter password for $Key" -Username "-"
            $SecurePassword = $Credential.Password
            $SecureStringAsPlainText = $SecurePassword | ConvertFrom-SecureString
            
            $FilePath = Join-Path "$PasswordFilesPath" "$Key.txt"
            Set-Content $FilePath $SecureStringAsPlainText
            "Mot de passe enregistré pour la clé $Key."
        }
    }
    "get"
    {
        $FilePath = Join-Path "$PasswordFilesPath" "$Key.txt"
        if ([String]::IsNullOrEmpty($Key))
        {
            "Merci de renseigner une clé pour le récupération du mot de passe."
        }
        elseif (Test-Path("$FilePath"))
        {
            $SecureStringAsPlainText = Get-Content "$FilePath"
            $SecurePassword = $SecureStringAsPlainText | ConvertTo-SecureString
            $Credential = New-Object PSCredential "-", $SecurePassword
            $PlainPassword = $Credential.GetNetworkCredential().Password
            $PlainPassword
        }
        else
        {
            "La clé $Key ne correspond à aucun mot de passe."
        }
    }
    "list"
    {
        #"Stored passwords:
        #"
        ls $PasswordFilesPath | % BaseName
    }
    default { "$Action is not a valid parameter." }
}

Stocker et récupérer un mot de passe

Switch Shift for number keys

#requires AutoHotkey v2.0

1::+
2::"
3::*
4::ç ; send "{U+00E7}"
5::%
6::&
7::/
8::(
9::)
0::=

+1::send 1
+2::send 2
+3::send 3
+4::send 4
+5::send 5
+6::send 6
+7::send 7
+8::send 8
+9::send 9
+0::send 0

; allow Ctrl+N to send Ctrl+N instead of Ctrl+Shift+N
^1::^1
^2::^2
^3::^3
^4::^4
^5::^5
^6::^6
^7::^7
^8::^8
^9::^9
^0::^0

<^>!1::|
<^>!2::@
<^>!3::#
<^>!4::Ç
<^>!5::send "{U+2030}" ; ‰
<^>!7::|
<^>!0::send "{U+2260}" ; ≠

$^::send "{U+0060}" ; `
+^::^ ; send "{U+005E}"
<^>!^::send "{U+223C}" ; ∼

-::_
+-::-
<^>!-::send "{U+2192}" ; →

;;; CH keyboard
ä::À
ö::É
ü::È

VKC0::!
+VKC0::¨ ; send "{U+00A8}"
<^>!VKC0::]

VKBF::send "{BackSpace}" ; §
+VKBF::send "{Delete}" ; °
;;; CH keyboard

Installation

après l'installation, redémarrer pour mettre à jour le menu contextuel New
créer un script: clique-droit dans un dossier → New → AutoHotkey Script
modifier le script
double-cliquer sur le fichier pour l'associer, l’icône AutoHotKey apparaît dans la zone de notification

Exécuter un script au démarrage

Copier le script
Coller le raccourci (Paste shortcut) dans %AppData%\Microsoft\Windows\Start Menu\Programs\Startup

Exécuter AutoHotKey au démarrage

Menu Start → AutoHotKey → copier le raccourci
Coller le raccourci (Paste shortcut) dans %AppData%\Microsoft\Windows\Start Menu\Programs\Startup

Définir Notepad++ comme éditeur par défaut

HKEY_CLASSES_ROOT\AutoHotkeyScript\Shell\Edit\Command
(Default) = "C:\Program Files\Notepad++\notepad++.exe" "%1"

Coloration syntaxique

Language → Define your language → Import → Notepad++ AutoHotKey Syntax Highlighting Dark.xml
redémarrer

@@ Ligne 4 : / Ligne 4 : @@
 [http://fincs.ahk4.net/scite4ahk SciTE4AutoHotkey] permet d'avoir la coloration syntaxique avec les fichiers ahk.
-= Liens =
+= Links =
 * [https://autohotkey.com/docs/Variables.htm#BuiltIn Built-in Variables]
+* [https://www.autohotkey.com/docs/KeyList.htm List of Keys]
 = [http://www.autohotkey.com/docs/commands/Send.htm Send] =
@@ Ligne 156 : / Ligne 157 : @@
 <filebox fn="C:\Windows\System32\drivers\etc\AutoHotkey.ahk" lang=ahk>
 *VKC0::! ; ¨ → !
-$+VKC0::send {U+00A8} ; ! → ¨
+$+VKC0::send {U+00A8} ; shift + ¨ (!) → ¨
-$<^>!VKC0::]
+$<^>!VKC0::] ; AltGr + ¨ → ]
 </filebox>
@@ Ligne 402 : / Ligne 403 : @@
 == Contrôle du son avec la molette ==
 <kode lang=ahk>
-+WheelUp::Send {Volume_Up 1}
+!WheelUp::Send "{Volume_Up 1}"
-+WheelDown::Send {Volume_Down 1}
+!WheelDown::Send "{Volume_Down 1}"
 </kode>
@@ Ligne 501 : / Ligne 502 : @@
 [[PowerShell#Stocker_et_r.C3.A9cup.C3.A9rer_un_mot_de_passe|Stocker et récupérer un mot de passe]]
-== reverse Shift for number keys ==
+== Switch Shift for number keys ==
-<kode lang='ahk'>
+<kode lang='ahk' collapsed>
-*1::+
+#requires AutoHotkey v2.0
-*2::"
-*3::*
+::+
-*4::send {U+00E7} ; ç
+::"
-*5::send `%
+::*
-*6::&
+::ç ; send "{U+00E7}"
-*7::/
+::%
-*8::(
+::&
-*9::)
+::/
-*0::=
+::(
+::)
+::=
++1::send 1
++2::send 2
++3::send 3
++4::send 4
++5::send 5
++6::send 6
++7::send 7
++8::send 8
++9::send 9
++0::send 0
+; allow Ctrl+N to send Ctrl+N instead of Ctrl+Shift+N
+^1::^1
+^2::^2
+^3::^3
+^4::^4
+^5::^5
+^6::^6
+^7::^7
+^8::^8
+^9::^9
+^0::^0
+<^>!1::|
+<^>!2::@
+<^>!3::#
+<^>!4::Ç
+<^>!5::send "{U+2030}" ; ‰
+<^>!7::|
+<^>!0::send "{U+2260}" ; ≠
+$^::send "{U+0060}" ; `
++^::^ ; send "{U+005E}"
+<^>!^::send "{U+223C}" ; ∼
+-::_
++-::-
+<^>!-::send "{U+2192}" ; →
+;;; CH keyboard
+ä::À
+ö::É
+ü::È
-$+1::send 1
+VKC0::!
-$+2::send 2
++VKC0::¨ ; send "{U+00A8}"
-$+3::send 3
+<^>!VKC0::]
-$+4::send 4
-$+5::send 5
-$+6::send 6
-$+7::send 7
-$+8::send 8
-$+9::send 9
-$+0::send 0
-*^::send {U+0060} ; `
+VKBF::send "{BackSpace}" ; §
-$+^::send {U+005E} ; ^
++VKBF::send "{Delete}" ; °
+;;; CH keyboard
 </kode>

« AutoHotKey » : différence entre les versions

Dernière version du 6 mars 2024 à 14:39

Sommaire

Généralités

Links

Send

Clavier

Capture de la Souris

Double-clique

Générer des événements souris

Mapping pour une application spécifique

Désactiver / remapper les touches Caps Lock, Num Lock, Scroll Lock

if else

Lire et écrire dans un fichier

Exécuter du code PowerShell, Batch

ScanCode

Exemples

Copie la sélection dans le presse-papier

Old

Alt Tab

Contrôle du son avec la molette

Verrouiller

Print Screen

Mot de passe sous Windows

Switch Shift for number keys

Installation

Exécuter un script au démarrage

Exécuter AutoHotKey au démarrage

Définir Notepad++ comme éditeur par défaut

Coloration syntaxique

Actions de la page

Actions de la page

Outils personnels

Menu de navigation

Navigation

Rechercher

Outils

« AutoHotKey » : différence entre les versions

Dernière version du 6 mars 2024 à 14:39

Généralités

Links

Capture de la Souris

Double-clique

Désactiver / remapper les touches Caps Lock, Num Lock, Scroll Lock

Lire et écrire dans un fichier

Exécuter du code PowerShell, Batch

Exemples

Old

Contrôle du son avec la molette

Verrouiller

Print Screen

Mot de passe sous Windows

Switch Shift for number keys

Installation

Exécuter AutoHotKey au démarrage

Menu de navigation

Rechercher

« AutoHotKey » : différence entre les versions