作者UndeadSion (UndeadSion)
看板EZsoft
標題[免費] AutoHotkey_L 特殊符號快速鍵 (更新)
時間Wed Sep 21 22:59:37 2011
1F：推 chang0206:注音可以用~或者ctrl+alt+標點來輸入09/18 02:19
2F：推 CHCOOBOO:安裝autohotkey吧 有懶人包09/18 09:16
AutoHotkey 的作者已經停止開發新版本了，建議改用 AutoHotkey_L。的
特殊符號快速鍵有剪貼簿覆蓋的問題，在 AutoHotkey_L 中可以獲得解決。
AutoHotkey_L
http://www.autohotkey.net/~Lexikos/AutoHotkey_L/
程式碼分為兩種版本，請以 UTF-8 格式存成 .ahk 用 AutoHotkey_L 執行。
程式使用 Alt 及下列按鍵來輸入特殊符號，鍵位配置與螢幕小鍵盤相同，可依
需要自行修改。
┌─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─────┐
│` │1 │2 │3 │4 │5 │6 │7 │8 │9 │0 │- │= │BackSpace │
│ │┌│┬│┐│〝│〞│‘│’│“│”│『│』│「│ │
├─┴┬┴┬┴┬┴┬┴┬┴┬┴┬┴┬┴┬┴┬┴┬┴┬┴┬────┤
│Tab │Q │W │E │R │T │Y │U │I │O │P │[ │] │ \ │
│ │├│┼│┤│※│〈│〉│《│》│【│】│﹝│﹞│ 」 │
├──┴┬┴┬┴┬┴┬┴┬┴┬┴┬┴┬┴┬┴┬┴┬┴┬┴────┤
│ Caps │A │S │D │F │G │H │J │K │L │; │' │ Enter │
│ Lock │└│┴│┘│○│●│↑│↓│！│：│；│、│ │
├───┴┬┴┬┴┬┴┬┴┬┴┬┴┬┴┬┴┬┴┬┴┬┴─────┤
│ Shift │Z │X │C │V │B │N │M │, │. │/ │ Shift │
│ │─│││◎│§│←│→│。│，│‧│？│ │
├──┬─┴┬┴─┼─┴─┴─┴─┴─┴┬┴─┼─┴┬──┬──┤
│Ctrl│Win │Alt │ Space │Alt │Win │Menu│Ctrl│
│ │ │ │ │ │ │ │ │
└──┴──┴──┴──────────┴──┴──┴──┴──┘
; --------------------------------------------------------------------
; 《特殊符號快速鍵》版本一
;
; Win + P [開啟／關閉] 特殊符號快速鍵
; --------------------------------------------------------------------
!1::Send, ┌
; Alt + 1
!2::Send, ┬
; Alt + 2
!3::Send, ┐
; Alt + 3
!4::Send, 〝
; Alt + 4
!5::Send, 〞
; Alt + 5
!6::Send, ‘
; Alt + 6
!7::Send, ’
; Alt + 7
!8::Send, “
; Alt + 8
!9::Send, ”
; Alt + 9
!0::Send, 『
; Alt + 0
!-::Send, 』
; Alt + -
!=::Send, 「
; Alt + =
!\::Send, 」
; Alt + \
!Q::Send, ├
; Alt + Q
!W::Send, ┼
; Alt + W
!E::Send, ┤
; Alt + E
!R::Send, ※
; Alt + R
!T::Send, 〈
; Alt + T
!Y::Send, 〉
; Alt + Y
!U::Send, 《
; Alt + U
!I::Send, 》
; Alt + I
!O::Send, 【
; Alt + O
!P::Send, 】
; Alt + P
![::Send, ﹝
; Alt + [
!]::Send, ﹞
; Alt + ]
!A::Send, └
; Alt + A
!S::Send, ┴
; Alt + S
!D::Send, ┘
; Alt + D
!F::Send, ○
; Alt + F
!G::Send, ●
; Alt + G
!H::Send, ↑
; Alt + H
!J::Send, ↓
; Alt + J
!K::Send, ！
; Alt + K
!L::Send, ：
; Alt + L
!;::Send, ；
; Alt + ;
!'::Send, 、
; Alt + '
!Z::Send, ─
; Alt + Z
!X::Send, │
; Alt + X
!C::Send, ◎
; Alt + C
!V::Send, §
; Alt + V
!B::Send, ←
; Alt + B
!N::Send, →
; Alt + N
!M::Send, 。
; Alt + M
!,::Send, ，
; Alt + ,
!.::Send, ‧
; Alt + .
!/::Send, ？
; Alt + /
#p::Suspend
; Win + P
; --------------------------------------------------------------------
; 《特殊符號快速鍵》版本二
;
; Win + P [開啟／關閉] 特殊符號快速鍵
;
; 在指定的應用程式裡才使用特殊符號快速鍵，避免因為切換應用程式而要經常
; [開啟／關閉] 快速鍵的困擾。
; --------------------------------------------------------------------
SetTitleMatchMode, RegEx
; 設定應用程式，可依需要自行修改
App =
(c
^MadEdit ahk_class wxWindowClassNR
; MadEdit
ahk_class Notepad
; Notepad (記事本)
OneNote ahk_class Framework::CFrame
; OneNote 2007
ahk_class rctrl_renwnd32
; Outlook 2007
ahk_class PCMan
; PCMan Lite
ahk_class PieTTY
; PieTTY
ahk_class IMWindowClass
; Windows Live Messenger 2009
^WinMerge ahk_class WinMergeWindowClassW
; WinMerge
ahk_class OpusApp
; Word 2007
)
StringSplit, App, App, `n
; 設定快速鍵
SetKeyLabel("!1", "Alt1")
SetKeyLabel("!2", "Alt2")
SetKeyLabel("!3", "Alt3")
SetKeyLabel("!4", "Alt4")
SetKeyLabel("!5", "Alt5")
SetKeyLabel("!6", "Alt6")
SetKeyLabel("!7", "Alt7")
SetKeyLabel("!8", "Alt8")
SetKeyLabel("!9", "Alt9")
SetKeyLabel("!0", "Alt0")
SetKeyLabel("!-", "Alt-")
SetKeyLabel("!=", "Alt=")
SetKeyLabel("!\", "Alt\")
SetKeyLabel("!Q", "AltQ")
SetKeyLabel("!W", "AltW")
SetKeyLabel("!E", "AltE")
SetKeyLabel("!R", "AltR")
SetKeyLabel("!T", "AltT")
SetKeyLabel("!Y", "AltY")
SetKeyLabel("!U", "AltU")
SetKeyLabel("!I", "AltI")
SetKeyLabel("!O", "AltO")
SetKeyLabel("!P", "AltP")
SetKeyLabel("![", "Alt[")
SetKeyLabel("!]", "Alt]")
SetKeyLabel("!A", "AltA")
SetKeyLabel("!S", "AltS")
SetKeyLabel("!D", "AltD")
SetKeyLabel("!F", "AltF")
SetKeyLabel("!G", "AltG")
SetKeyLabel("!H", "AltH")
SetKeyLabel("!J", "AltJ")
SetKeyLabel("!K", "AltK")
SetKeyLabel("!L", "AltL")
SetKeyLabel("!;", "Alt;")
SetKeyLabel("!'", "Alt'")
SetKeyLabel("!Z", "AltZ")
SetKeyLabel("!X", "AltX")
SetKeyLabel("!C", "AltC")
SetKeyLabel("!V", "AltV")
SetKeyLabel("!B", "AltB")
SetKeyLabel("!N", "AltN")
SetKeyLabel("!M", "AltM")
SetKeyLabel("!,", "AltComma")
SetKeyLabel("!.", "Alt.")
SetKeyLabel("!/", "Alt/")
Return
; 設定特殊符號，可依需要自行修改
Alt1:
Send, ┌
Return
Alt2:
Send, ┬
Return
Alt3:
Send, ┐
Return
Alt4:
Send, 〝
Return
Alt5:
Send, 〞
Return
Alt6:
Send, ‘
Return
Alt7:
Send, ’
Return
Alt8:
Send, “
Return
Alt9:
Send, ”
Return
Alt0:
Send, 『
Return
Alt-:
Send, 』
Return
Alt=:
Send, 「
Return
Alt\:
Send, 」
Return
AltQ:
Send, ├
Return
AltW:
Send, ┼
Return
AltE:
Send, ┤
Return
AltR:
Send, ※
Return
AltT:
Send, 〈
Return
AltY:
Send, 〉
Return
AltU:
Send, 《
Return
AltI:
Send, 》
Return
AltO:
Send, 【
Return
AltP:
Send, 】
Return
Alt[:
Send, ﹝
Return
Alt]:
Send, ﹞
Return
AltA:
Send, └
Return
AltS:
Send, ┴
Return
AltD:
Send, ┘
Return
AltF:
Send, ○
Return
AltG:
Send, ●
Return
AltH:
Send, ↑
Return
AltJ:
Send, ↓
Return
AltK:
Send, ！
Return
AltL:
Send, ：
Return
Alt;:
Send, ；
Return
Alt':
Send, 、
Return
AltZ:
Send, ─
Return
AltX:
Send, │
Return
AltC:
Send, ◎
Return
AltV:
Send, §
Return
AltB:
Send, ←
Return
AltN:
Send, →
Return
AltM:
Send, 。
Return
AltComma:
Send, ，
Return
Alt.:
Send, ‧
Return
Alt/:
Send, ？
Return
; 特殊符號快速鍵開關
#p::Suspend
; 設定特殊符號快速鍵
SetKeyLabel(KeyName, KeyLabel)
{
global
Loop, %App0%
{
Hotkey, IfWinActive, % App%A_Index%
Hotkey, %KeyName%, %KeyLabel%
}
}
若有任何問題，歡迎指教。 :)
本著作係採用 Creative Commons 姓名標示-非商業性-相同方式分享 台灣 授權條款授權
http://creativecommons.org/licenses/by-nc-sa/3.0/tw/
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 60.248.159.124
※ 編輯: UndeadSion 來自: 60.248.159.124 (09/22 00:21)
3F：推 Holocaust123:這篇文章好漂亮 09/22 12:30
4F：推 mars90226:這篇應該轉錄到Ezhotkey XD 09/22 13:54
5F：→ mars90226: EzHotKey 09/22 13:55