[AHK]同花顺交易卖出填单工具

最近,华泰、国金相继关掉web交易接口,easytrader空间被压缩,重新寻找交易方向,翻出一年前写的试验代码,权当抛砖引玉,欢迎加qq群探讨交流:StockAuto 208740743

;同花顺交易卖出填单工具
;作者:sunwind
;时间:2015年10月16日15:45:40
;用法:需先启动同花顺的交易功能,然后运行本脚本,未完善,只是demo
DetectHiddenWindows,On
SetTitleMatchMode,2
SetTitleMatchMode RegEx
setbatchlines -1

winTitle:="ahk_class Afx:400000:b:10003:6:*"
IfWinExist,%winTitle%
ControlSend,ToolbarWindow321,{F2},%winTitle%
;全局变量
s_code_ctr:="Edit1"
s_price_ctr:="Edit2"
s_num_ctr:="Edit3"
stockList=%A_ScriptDir%\待卖出配置.txt

	FileRead,file,%stockList%
	ifwinexist %winTitle%
	{
		t1 := PrecisionTime()
		Loop,parse,file,`n
		{	
				; 把多个空格/TAB/换行替换成一个空格
			line := RegExReplace(A_LoopField, "\s+", " ")
			arr:=StrSplit(line,A_Space)
			code:=arr[1]
			price:=arr[2]
			num:=arr[3]
			sell(code,price,num)
		}
		t2 := PrecisionTime()
		t21 := t2 - t1
		t:=t21/1000000/30
		MsgBox 30张卖单用时%t21%微秒·`n 平均每张卖单%t%秒
	}
	else
	{
		MsgBox 未探测到下单窗体
	}
	
return

;辅助函数
sell(code,price,num)
{
	global
	WinActivate %winTitle%
	ControlSetText,%s_code_ctr%,%code%
	ControlSetText,%s_price_ctr%,%price%
	ControlSetText,%s_num_ctr%,%num%
	ControlSend,Button21,{Space},%winTitle%
}


PrecisionTime()
{
        DllCall("QueryPerformanceCounter", "Int64*", Time)
        return, Time
}

配置文件《待卖出配置.txt》示例,第一列是股票代码,第二列是卖出价,第三列是卖出股数:

600050 6.62 200




  • 1
    点赞
  • 17
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值