Лучшие макросы AutoHotKey?

Я использую макросы AutoHotKey для Windows. Чаще всего я использую его для определения горячих клавиш, которые запускают/фокусируют определенные приложения, и один, чтобы отправить мгновенное сообщение электронной почты в мой список ToDo. У меня также есть аварийный, который убивает все мои большие приложения для зависания памяти (Outlook, Firefox и т.д.).

Итак, есть ли у кого-нибудь хорошие макросы AHK?

Ответы

Ответ 1

Очень простой и полезный фрагмент:

SetTitleMatchMode RegEx ;
; Stuff to do when Windows Explorer is open
;
#IfWinActive ahk_class ExploreWClass|CabinetWClass
    ; create new folder
    ;
    ^!n::Send !fwf

    ; create new text file
    ;
    ^!t::Send !fwt

    ; open 'cmd' in the current directory
    ;
    ^!c::
        OpenCmdInCurrent()
    return
#IfWinActive

; Opens the command shell 'cmd' in the directory browsed in Explorer.
; Note: expecting to be run when the active window is Explorer.
;
OpenCmdInCurrent()
{
    WinGetText, full_path, A  ; This is required to get the full path of the file from the address bar

    ; Split on newline (`n)
    StringSplit, word_array, full_path, `n
    full_path = %word_array1%   ; Take the first element from the array

    ; Just in case - remove all carriage returns (`r)
    StringReplace, full_path, full_path, `r, , all  
    full_path := RegExReplace(full_path, "^Address: ", "") ;

    IfInString full_path, \
    {
        Run, cmd /K cd /D "%full_path%"
    }
    else
    {
        Run, cmd /K cd /D "C:\ "
    }
}

Ответ 2

Добавьте окружающие кавычки на выделенный текст/слово
Полезно при написании писем или во время кодирования...

Дважды щелкните слово, нажмите клавишу Win + X, введите кавычки вокруг

; Win + X
#x:: ; Attention:  Strips formatting from the clipboard too!
Send ^c
clipboard = "%clipboard%"
; Remove space introduced by WORD
StringReplace, clipboard, clipboard,%A_SPACE%",", All
Send ^v
return

Ответ 3

Вот так просто, но полезно script:

^SPACE::  Winset, Alwaysontop, , A

Используйте CTRL + Space, чтобы всегда устанавливать любое окно.

Ответ 4

; У меня это в моем стартовом меню, так что я не буду разрушать мои уши, когда я надеваю наушники после перезагрузки моего компьютера.

sleep, 5000
SoundSet, 1.5 ; really low volume

Ответ 5

Я создаю новые объекты Outlook с помощью AutoHotKey

; Win + Shift + M = новое электронное письмо

#+m::  Run "mailto:"

; Перспективы

#^M::  Run "%ProgramFiles%\Microsoft Office\Office12\OUTLOOK.EXE" /recycle

; Win + Shift + A = создать новое назначение календаря

#+A::  Run "%ProgramFiles%\Microsoft Office\Office12\OUTLOOK.EXE"/c ipm.appointment

; Win + Shift + T = создать новую задачу ; Win + Shift + K = Новая задача

#+T::  Run "%ProgramFiles%\Microsoft Office\Office12\OUTLOOK.EXE"/c ipm.task
#+K::  Run "%ProgramFiles%\Microsoft Office\Office12\OUTLOOK.EXE"/c ipm.task

Ответ 6

Здесь находится мертвый простой фрагмент, чтобы быстро закрыть текущее окно с помощью кнопки мыши.

Это одно из действий, которое вы чаще всего выполняете в Windows, и вы будете удивлены тому, сколько времени вы спасете, больше не нужно снимать для этого маленького X. С помощью 5-кнопочной мыши я нахожу это очень полезно переназначить кнопку "Вперед".

#IfWinActive  ;Close active window when mouse button 5 is pressed
  XButton2::
    SendInput {Alt Down}{F4}{Alt Up}
    Return
#IfWinActive

Чтобы принять во внимание программы, использующие вкладные документы (например, веб-браузеры), здесь более полная версия:

;-----------------------------------------------------------------------------
; Bind Mouse Button 5 to Close Tab / Close Window command
;-----------------------------------------------------------------------------

; Create a group to hold windows which will use Ctrl+F4 instead of Alt+F4
GroupAdd, CtrlCloseGroup, ahk_class IEFrame             ; Internet Explorer
GroupAdd, CtrlCloseGroup, ahk_class Chrome_WidgetWin_0  ; Google Chrome
; (Add more programs that use tabbed documents here)
Return

; For windows in above group, bind mouse button to Ctrl+F4
#IfWinActive, ahk_group CtrlCloseGroup
  XButton2::
    SendInput {Ctrl Down}{F4}{Ctrl Up}
    Return
#IfWinActive  

; For everything else, bind mouse button to Alt+F4
#IfWinActive
  XButton2::
    SendInput {Alt Down}{F4}{Alt Up}
    Return
#IfWinActive  

; In FireFox, bind to Ctrl+W instead, so that the close command also works
; on the Downloads window.
#IfWinActive, ahk_class MozillaUIWindowClass
  XButton2::
    SendInput {Ctrl Down}w{Ctrl Up}
    Return
#IfWinActive

Visual Studio 2010 не может быть легко добавлена ​​к CtrlCloseGroup выше, так как класс/заголовок окна нелегко предсказуемы (я думаю). Вот фрагмент, который я использую для его обработки, включая пару дополнительных полезных привязок:

SetTitleMatchMode, 2  ; Move this line to the top of your script

;-----------------------------------------------------------------------------
; Visual Studio 2010
;-----------------------------------------------------------------------------

#IfWinActive, Microsoft Visual Studio

  ; Make the middle mouse button jump to the definition of any token
  MButton::
    Click Left  ; put the cursor where you clicked
    Send {Shift Down}{F2}{Shift Up}
    Return

  ; Make the Back button on the mouse jump you back to the previous area
  ; of code you were working on.
  XButton1::
    Send {Ctrl Down}{Shift Down}{F2}{Shift Up}{Ctrl Up}
    Return

  ; Bind the Forward button to close the current tab
  XButton2::
    SendInput {Ctrl Down}{F4}{Ctrl Up}
    Return

#IfWinActive

Я также считаю полезным в Outlook сопоставить ALT + 1, ALT + 2 и т.д. с макросами, которые я написал, которые перемещают текущие выбранные сообщения в определенные папки (например, "Личные данные", "Работа с файлами", и т.д.), но это немного сложнее.

Ответ 9

Устраните проблему при копировании файла на FTP-сервер, когда в диалоговом окне "Подтвердить замену файлов" (очень раздражает) появляется диалоговое окно "Копирование":

SetTimer, FocusOnWindow, 500
return

FocusOnWindow:
IfWinExist, Confirm File Replace
    WinActivate
return

Один для деактивации бесполезного ключа Caps-lock:

Capslock::
return

CTRL + shift + c скопирует цвет под курсором в буфер обмена (в шестнадцатеричном формате)

^+c::
MouseGetPos,x,y
PixelGetColor,rgb,x,y,RGB
StringTrimLeft,rgb,rgb,2
Clipboard=%rgb%
Return

Напишите свой адрес электронной почты в активном поле (Win key + m)

#m::
Send, [email protected]{LWINUP}
Sleep, 100
Send, {TAB}
return