AutoHotkey编写自己的Warkey

AutoHotkey编写自己的Warkey

zyl0462的空间

Just Do It！！

http://hi.baidu.com/zyl0462/blog/item/47fae38e4c1146e4f01f3612.html

2009年11月27日 星期五 12:07

认识和学习 AutoHotkey还是因为Dota（改键）。Dota？有些人可能还不知道，没关系，知道是个 游戏就照了，不过很好玩，推荐玩下，上瘾别怨我。照，继续讲，Auto Hotkey能做什么呢？能做的太多了，有兴趣自己体会。下面谈谈用它如何 制作Warkey，需要有点AutoHotkey基础，版权归AutoHotkey以及为之贡献的人所有，由本人理解拼凑。         显血就不说了，1.22之后版本可以勾选是否始终显血。主要就说下改键吧。先说不要 GUI的，最直接的一种方法：q::Numpad7(小 键盘7)，按q就是Numpad7了，很神奇吧，不过这就影响聊天啦，在AutoHotkey中在 热键前加~原来键的 功能不会被屏蔽，比如说~q::Numpad7，就会发送q7。所以我们这样改下，  ~q::  Send, {Numpad7}{BS}  return     这样就不影响聊天而且能达到改键的目的， 程序起始处加上#SingleInstance force（只 运行一次程序），#IfWinActive,  ahk_class Warcraft III（仅当war3为活动窗体热键有效）。然后根据自己的习惯，就可以制作个人的Warkey了。     再说下有GUI的，下面的是个单独的程序，就是没有标准 INI 文件存储用户 输入信息，贴下程序 代码：  #SingleInstance force  #NoEnv  #IfWinActive, ahk_class Warcraft III  SendMode Input                          SetMouseDelay, -1，-1  SetKeyDelay, -1，-1  Gosub, D_Window    ;进入主 界面子程序  Gosub, D_Tray          ;进入 托盘子程序  ;以下为显血部分;  Loop  {     IfWinActive, Warcraft III ahk_class Warcraft III     {  If (m_bIn == 0)  {      If (AllyHB == 1)     {         Send, {tab}         Sleep 200         Send, {[ Down}     }      If (EnemyHB == 1)     {         Send, {tab}         Sleep 200         Send, {] Down}     }      m_bIn := 1  }     }     Else     {  If (m_bIn == 1)     m_bIn := 0     }     Sleep 200  }  ;============================;  D_Window:     ;主界面  {  Menu, SetMenu, Add, 保存 设置 (&S), D_Define  Menu, SetMenu, Add  Menu, SetMenu, Add, 退出程序 (&X), D_AppExit  Menu, HelpMenu, Add, 关于 (&A), D_HelpAbout  Menu, MyMenu, Add, 程序设置 (&D), :SetMenu  Menu, MyMenu, Add, 帮助 (&H), :HelpMenu  Gui, Menu, MyMenu  Gui, Add, GroupBox, x16 y7 w180 h130 , 物品栏  Gui, Add, GroupBox, x16 y147 w180 h50 , 血条栏  Gui, Add, Text, x26 y32 w90 h30 , 物品栏1：  Gui, Add, Text, x26 y92 w90 h30 , 物品栏2：  Gui, Add, CheckBox, Checked x26 y167 w80 h20 vAllyHB, 友方血条  Gui, Add, CheckBox, Checked x106 y167 w80 h20 vEnemyHB, 敌方血条  Gui, Add, Hotkey, x86 y27 w90 h20 vItem7, Q  Gui, Add, Hotkey, x86 y87 w90 h20 vItem8, ~  Gui, Show,   x301 y147 h233 w217, MicrOperation  Gosub, D_Define                   ;进入 定义子程序  Return  }  ;============================;  D_Tray:  {     Menu, Tray, NoStandard     Menu, Tray, Add, 设置     Menu, Tray, Add, 退出     Menu, Tray, Default, 设置     Menu, Tray, Click, 1     Menu, Tray, Tip, MicrOperation     Menu, Tray, Icon, , , 1     Return  }  ;============================;  D_Define:  {   ;下面两句是为了取消先前定义的热键，要是没有后果很严重，很多键乱了套。当然只定义一次是没问题的，要是定义后再改就会出现问题。     if Item7  HotKey, ~%Item7%, D_Item7,Off     if Item8  HotKey, ~%Item8%, D_Item8,Off     Gui, Submit                                ;托盘程序，并使用户输入信息与相关 变量关联     if Item7  HotKey, ~%Item7%, D_Item7,On     if Item8  HotKey, ~%Item8%, D_Item8,On     Return  }  ;============================;  D_Item7:  {     Send, {Numpad7}{BS}                         ;这里出现一个退格键足矣，相信不会有人定义组合键的，dota讲的是速度和操作，按键越简单越好     return  }  ;============================;  D_Item8:  {     Send, {Numpad8}{BS}     return  }  ;================================;  设置:  {  Gui, Show, , MicrOperation  Return  }  ;============================;  D_HelpAbout:  {  Msgbox , 0, MicrOperation,AutoHotkey版权所有  Return  }  ;============================;  D_AppExit:  GuiClose:  退出:  {  ExitApp                            ;退出程序  Return  }  GuiSize:  {  If (A_EventInfo==1)          ;这里只是针对 窗口最小化事件处理，就是将程序托盘并关联变量  Gosub, D_Define  }  ;============================;  LWin::          ;屏蔽左Windows键  Return