[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 force



F3::
F5::

Pressed_HotKey := A_ThisHotKey



Title := ""
GotName := 0

IfWinActive, 东方财富终端
{

  
  ;发送快捷键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