Autohotkey通过GUI来设置快捷键的实践

_Name=Hotkey实践
_Version=v1.0
_IniFile=Hotkey.ini
Author=sunwind
Date=2010年10月18日13:01:20
Email=1576157@qq.com
Blog=http://blog.csdn.net/liuyukuan

banquan=`;【版权声明】`n`; Author: %Author%`n`; Date:%Date% `n`; Email:%Email%`n`; Blog: %Blog%`n`n`; 本作品以“署名-非商业性使用-相同方式共享 3.0 Unported”的创作共用协议发布，http://creativecommons.org/licenses/by-nc-sa/3.0/deed.zh`n`; 您可以自由：`n`;    * 复制、发行、展览、表演、放映、广播或通过信息网络传播本作品`n`;    * 创作演绎作品`n`n`; 惟须遵守下列条件：`n`;     * 署名. 您必须按照作者或者许可人指定的方式对作品进行署名。`n`;     * 非商业性使用. 您不得将本作品用于商业目的。`n`;     * 相同方式共享. 如果您改变、转换本作品或者以本作品为基础进行创作，您只能采用与本协议相同的许可协议发布基于本作品的演绎作品。`n`n`;     * 对任何再使用或者发行，您都必须向他人清楚地展示本作品使用的许可协议条款。`n`;     * 如果得到著作权人的许可，您可以不受任何这些条件的限制。`n

yunxing=`n`;【运行环境】:`n`;目前只在简体中文WINXP测试过，其他系统未知。`n`;`n`;AutoHotkey`n`;This tool made using the powerful.`n`;www.AutoHotkey.com

shuoming=`n`;【使用说明】：`n`;本程序实现测试AHK设置快捷键的目的。`n`;快捷键提示：打开设置项为Ctrl+Shift+o`n`。

gengxin=`n`;【更新说明】：`n`;。

TODO=`n`;【TODO】`n`;

OPTIONS:
;再读一次配置因为可能已有数据在上面设置过程改变，这样可以正确同步显示在设置界面里。
;更新程序内存里的变量
Gosub,read_ini

Gui,1: Destroy

Gui, 1:Add, Button, x150 y360 w60 h20 vbtnSave gSETTINGSOK, 保存
Gui, 1:Add, Button, x250 y360 w60 h20 gCancel, 取消
Gui, 1:Add, Tab, x10 y10 w480 h350 Choose1, 快捷键|文件浏览|关于

Gui, 1:Tab, 1
Gui,1: Add, GroupBox, x16 y30 w440 h40 , 设置窗口
Gui,1: Add,Text,x26 y50,用于打开本窗口的快捷键:
Gui,1: Add,Hotkey,x316 y45  w120 vsoptionshotkey, %optionshotkey%

Gui, 1:Tab, 2
Gui, 1:Add, GroupBox, x16 y35 w465 h40 , 浏览文件夹测试
Gui, 1:Add, Edit, x26 y50 w360 h20 vtxtFilePath, %Filepath%

Gui, 1:Add, Button, x396 y50 w50 h20 gFind_File, 浏览

 

Gui, 1:Tab, 3
about=%_Name%`t版本:%_Version%`n`n%banquan%`n%yunxing%`n%shuoming%`n%gengxin%`n%TODO%
Gui, 1:Add, Edit, x16 y40 w460 H300 ,%about%

if optionshotkey<>
 HotKey,%optionshotkey%,Off

Gui, 1:Show, x466 y268 h390 w504, %_Name% %_Version%
Return
 ;查找 File 程序
Find_File:
Gui +OwnDialogs
FileSelectFile, FilePath, 3, , 查找 *.txt, *.txt
If FilePath<>
{

 GuiControl,,txtFilePath, %FilePath%
 IniWrite,%FilePath%,%_IniFile%,File,File_path

}

Gosub,OPTIONS
Return

; 设置
SETTINGSOK:  ;check GuiCofig
Gui,1:Submit
If soptionshotkey<>
{
  optionshotkey:=soptionshotkey
  Hotkey,%optionshotkey%,OPTIONS
  IniWrite,%optionshotkey%,%_IniFile%,HotKeys,Options
  HotKey,%optionshotkey%,On
}
else
{
 optionshotkey:=soptionshotkey
 IniWrite,%optionshotkey%,%_IniFile%,HotKeys,Options
}

Return

Read_ini:

 IfNotExist,%_IniFile% ;若没有配置文件则调用Create_ini并显示设置界面
 {
  ;TrayTip,,程序未检测到配置文件，新建了一个配置文件。,1000
  Gosub Create_ini

 }

 IniRead,optionshotkey,%_IniFile%,HotKeys,Options

 if optionshotkey <>
  Hotkey,%optionshotkey%,OPTIONS

Return
; 新建配置文件
Create_ini:
FileAppend,[Self]`n_Name=%_Name%`n_Version=%_Version%`n_IniFile=%_IniFile%`n[File]`nFile_path=`nFile_ver=`n[HotKeys]`nOptions=^+O`n,%_IniFile%

Return