[免費] AutoHotkey 特殊符號快速鍵

作者UndeadSion (UndeadSion)

看板EZsoft

標題[免費] AutoHotkey 特殊符號快速鍵

時間Tue Sep 25 03:32:13 2007

軟體名稱：AutoHotkey 特殊符號快速鍵官方網站：http://www.autohotkey.com/ 軟體分類：鍵盤快速鍵執行平台：MS-Windows 軟體特色：詳見程式碼說明推薦原因：取代螢幕小鍵盤的特殊符號輸入誰適合用：傳統注音輸入法使用者附註：將以下程式碼剪下來存成 .ahk 用 AutoHotkey 執行就可以了 ; -------------------------------------------------------------------- ; ; 《特殊符號快速鍵》 ; ; 【功能說明】 ; ; 使用經由剪貼簿送出字串的方式，在指定的應用程式中以快速鍵輸入特殊符號 ; ; -------------------------------------------------------------------- ; -------------------------------------------------------------------- ; 指定使用特殊符號快速鍵的應用程式 (可依需要自行增減或修改) ; ; * 指定應用程式的目的是為了避免切換應用程式時，必須經常 [開啟／關閉] ; 特殊符號快速鍵的麻煩 (特殊符號快速鍵開關：Win + P) ; ; * App1～App5 是應用程式的視窗標題或 ahk_class 屬性 ; (ahk_class 請用 AutoHotkey 的 Window Spy 工具查看) ; ; * AppCount 是應用程式的總數 ; -------------------------------------------------------------------- App1 := "ahk_class Notepad" ; 記事本 App2 := "ahk_class OpusApp" ; Word 2000 App3 := "ahk_class rctrl_renwnd32" ; Outlook 2000 App4 := "ahk_class ATH_Note" ; Outlook Express App5 := "ahk_class IMWindowClass" ; Windows Live Messenger AppCount = 5 ; -------------------------------------------------------------------- ; 設定特殊符號快速鍵 (可依需要自行修改) ; ; * 設定以 Alt + ＜按鍵＞來輸入特殊符號 ; 按鍵值請參考 AutoHotkey 的說明文件 ; -------------------------------------------------------------------- SetHotkey: 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/") SetKeyLabel("!Ins", "AltIns") SetKeyLabel("!Del", "AltDel") SetKeyLabel("!Home", "AltHome") SetKeyLabel("!End", "AltEnd") Return ; -------------------------------------------------------------------- ; 定義快速鍵輸出的特殊符號 (可依需要自行修改) ; ; * 特殊符號鍵位跟螢幕小鍵盤一樣，如果忘記了直接開螢幕小鍵盤看比較快 ; ; * 另外新增四個螢幕小鍵盤沒有對應的特殊符號 ; Alt + Ins ↖ ; Alt + Del ↙ ; Alt + Home ↗ ; Alt + End ↘ ; -------------------------------------------------------------------- Alt1: SendString("┌") Return Alt2: SendString("┬") Return Alt3: SendString("┐") Return Alt4: SendString("〝") Return Alt5: SendString("〞") Return Alt6: SendString("‘") Return Alt7: SendString("’") Return Alt8: SendString("“") Return Alt9: SendString("”") Return Alt0: SendString("『") Return Alt-: SendString("』") Return Alt=: SendString("「") Return Alt\: SendString("」") Return AltQ: SendString("├") Return AltW: SendString("┼") Return AltE: SendString("┤") Return AltR: SendString("※") Return AltT: SendString("〈") Return AltY: SendString("〉") Return AltU: SendString("《") Return AltI: SendString("》") Return AltO: SendString("【") Return AltP: SendString("】") Return Alt[: SendString("﹝") Return Alt]: SendString("﹞") Return AltA: SendString("└") Return AltS: SendString("┴") Return AltD: SendString("┘") Return AltF: SendString("○") Return AltG: SendString("●") Return AltH: SendString("↑") Return AltJ: SendString("↓") Return AltK: SendString("！") Return AltL: SendString("：") Return Alt;: SendString("；") Return Alt': SendString("、") Return AltZ: SendString("─") Return AltX: SendString("│") Return AltC: SendString("◎") Return AltV: SendString("§") Return AltB: SendString("←") Return AltN: SendString("→") Return AltM: SendString("。") Return AltComma: SendString("，") Return Alt.: SendString("‧") Return Alt/: SendString("？") Return AltIns: SendString("↖") Return AltDel: SendString("↙") Return AltHome: SendString("↗") Return AltEnd: SendString("↘") Return ; -------------------------------------------------------------------- ; 特殊符號快速鍵開關：Win + P ; -------------------------------------------------------------------- #P::Suspend ; -------------------------------------------------------------------- ; 設定特殊符號快速鍵執行區段標籤 ; -------------------------------------------------------------------- SetKeyLabel(key_press, key_label) { global AppCount Loop, %AppCount% { AppActive := App%A_Index% Hotkey, IfWinActive, %AppActive% Hotkey, %key_press%, %key_label% } } ; -------------------------------------------------------------------- ; 經由剪貼簿送出字串 ; -------------------------------------------------------------------- SendString(string) { Clipboard := string SendInput ^V } ---------------------------------------------------------------------- 已知的問題： * 因為是經由剪貼簿送出字串，剪貼簿原本的資料會被覆蓋過去，[複製／貼上] 資料時要留意一下 * 連續輸入同一特殊符號時，請不要壓住快速鍵不放，以免 AutoHotkey 來不及處理，建議先輸入一個特殊符號，再用貼上 (Ctrl + V) 來連續輸入如有其它問題，歡迎指教囧> 本著作依據 Creative Commons 姓名標示-非商業性-相同方式分享授權條款為授權 http://creativecommons.org/licenses/by-nc-sa/2.0/tw/ -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 60.248.159.124