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