2008-09-19 3 views
21

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

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

+4

Посмотрите http://superuser.com/questions/7271/most-useful-autohotkey-scripts – Jay 2010-08-24 14:11:19

+4

Эта ссылка больше не похоже, работает: -/ – Evildonald 2011-11-16 15:35:09

ответ

13

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

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:\ " 
    } 
} 
6

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

sleep, 5000 
SoundSet, 1.5 ; really low volume 
4

создать новые Перспективы объектов с AutoHotKey

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

#+m:: Run "mailto:" 

; Outlook

#^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 
8

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

DoubleClick слово, нажмите 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

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

Это одно из действий, которое вы чаще всего выполняете в 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 

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

7

Вот так простой, но полезный скрипт:

^SPACE:: Winset, Alwaysontop, , A 

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

2

Исправлена ​​проблема при копировании файла на FTP-сервер, когда «Копирование» на верхней части появится диалоговое окно «Confirm File Replace» диалог (очень раздражает):

SetTimer, FocusOnWindow, 500 
return 

FocusOnWindow: 
IfWinExist, Confirm File Replace 
    WinActivate 
return 

Один дезактивировать бесполезный Caps-замок ключ:

Capslock:: 
return 

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

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

Записывать ваш адрес электронной почты в активном поле (Win ключ + м)

#m:: 
Send, [email protected]{LWINUP} 
Sleep, 100 
Send, {TAB} 
return 
Смежные вопросы