[AHK]AutoHotKey 快速下单脚本，支持东方财富，大智慧，通达信，同花顺

http://www.55188.com/thread-7494086-1-1.html

支持F5键快捷卖出下单;by 无涨无跌;一、编译版使用方法;1、把附件解压到桌面，解压后桌面上有3个文件：快速下单-by无涨无跌.exe，SH.SNT, SZ.SNT。附件太大传不上论坛，可以到http://pan.baidu.com/s/1gfBCjvH下载;2、双击快速下单-by无涨无跌.ext 运行;3、其他参照源码版第5,6步;二、源码版使用方法;1、安装AutoHotKey，到http://www.ahkscript.org/下载最新版;2、将本帖内容保存为.ahk为后缀名的文件，放到桌面;3、大智慧-常用工具-数据管理中心-代码对照表-输出沪深股市的代码对照表到桌面;4、双击.ahk的文件;5、打开核新下单程序并登录，把核新-系统设置-界面设置-界面不操作超时时间（分）设置为0，防止下单程序锁定;6、在东方财富通、通达信、同花顺等股软个股界面下（当前活动窗口），或者大智慧已启动且在个股界面下（不要求是当前活动窗口）可快速下单，;按快捷键F3，即可调用下单软件下单，此时已自动输入股票代码。;by 无涨无跌;2016/4/23 初始版本;2016/4/24 [fixed]下单软件不在买入界面时不工作。使用下单软件默认快捷键[F1]切换进入买入界面;2016/4/24 [new] 支持通达信金融终端,不支持通赢,全赢等版本;2016/4/24 [new] 支持同花顺;2016/4/24 [fixed] 修正某些用户桌面文件路径不正确的问题;2016/4/25 [new] 支持F5快捷卖出,PS:下单软件会使用F1和F2快捷键,其他的Autohotkey脚本不要占用这两个键!#NoEnv  ; Recommended for performance and compatibility with future AutoHotkey releases.; #Warn  ; Enable warnings to assist with detecting common errors.SendMode Input  ; Recommended for new scripts due to its superior speed and reliability.;SetWorkingDir %A_ScriptDir%  ; Ensures a consistent starting directory.#SingleInstance forceF3::F5::Pressed_HotKey := A_ThisHotKeyTitle := ""GotName := 0IfWinActive, 东方财富终端{    ;发送快捷键ctrl+q，打开标记股票窗口，获取股票名称  send {Ctrl Down}  sleep 100  send q  sleep 100  send {Ctrl Up}  sleep 100    WinGetActiveTitle Title  send {Esc}  ;关闭标记股票窗口  sleep 100  GotName := 1  ;MsgBox, %Title%  ;return}IfWinActive, 通达信金融终端{  WinGetTitle, Title, 通达信金融终端  ;通达信金融终端V7.19 - [组合图-创业板指]  StringReplace, Title, Title, ]    StringSplit, TitleArray, Title, -,  Title = %TitleArray3%  Title := Trim(Title)  ;MsgBox, %Title%  GotName := 1}ifWinActive, 同花顺{  Click right 68,143 ;客户区点击右键,这里并不安全,如果发现出现"坐标曲线"等项,可适当修改这个值  sleep 100  Send J  sleep 300 ;如果没有正常获取到代码，适当加大这个值  WinGetTitle, Title, 持股机构  ;持股机构   （基金双击可以查看详细内容）- 烽火通信(600498)  send {Esc}  ;关闭标记股票窗口  sleep 100  StringSplit, TitleArray, Title, -,  StringSplit, TitleArray, TitleArray2, (,  Title = %TitleArray1%  Title := Trim(Title)  ;MsgBox, %Title%  GotName := 1}if(!GotName){  ;激活大智慧  IfWinExist 大智慧 -  {    WinActivate    ;通过窗口标题查找股票名称    WinGetTitle, Title, 大智慧    StringReplace, Title, Title, 大智慧 - [    StringReplace, Title, Title, ]    Title := Trim(Title)  }};MsgBox, %Title%;通过代码对照表查找股票代码Loop, 2{  if (A_Index = 1){    ;深圳股票对照表    FileName = %A_Desktop%\SZ.SNT  }else{    ;上海股票对照表    FileName = %A_Desktop%\SH.SNT  }  ;MsgBox, %FileName%  file := FileOpen(FileName, "r")  if !IsObject(file)  {        MsgBox Can't open "%FileName%" for searching.        return  }  ;检索股票对照表查找股票代码  Loop, read, %FileName%  {    IfInString, A_LoopReadLine, %Title%    {        StockCode := substr(A_LoopReadLine, 1, 6)        ;MsgBox, %StockCode%        ;激活下单软件        IfWinExist 网上股票交易系统        {          ;MsgBox, %Pressed_HotKey%          if (Pressed_HotKey = "F3"){              WinActivate            send {F1}            sleep 200            ControlSetText, Edit1, %StockCode%            sleep 300 ;如果可买数量没有刷新,适当增大这个值            Click, 167,47 ;点击工具栏刷新,刷新可买入股票数量          }         if (Pressed_HotKey = "F5"){              WinActivate            send {F2}            sleep 200            ControlSetText, Edit10, %StockCode%            sleep 300 ;如果可买数量没有刷新,适当增大这个值            Click, 167,47 ;点击工具栏刷新,刷新可买入股票数量          }        }        return            }  }}return