[AHK]通达信联动到同花顺下单

上面无需热键，鼠标滚轮自动实现通达信到同花顺联动.。

以下为热键版，仅做示范

#Persistent
#SingleInstance,Force

tdxTitle:="华泰证券"
CodeTable:=initCodeTable()

;需按热键来调用，可多次运行，
#z::
StockName:=getStockName(tdxTitle)
MsgBox % "当前通达信上浏览的股票是: " . StockName
StockCode:=getStockCode(StockName,CodeTable)
MsgBox % "股票代码是: " .  StockCode
buy(StockCode) ;同花顺根据传入的股票代码来买入
return

buy(StockCode)
{
	;激活下单软件	
	IfWinExist 网上股票交易系统5.0
	{
		WinActivate
		send {F1}
		sleep 100
		ControlSetText, Edit1, %StockCode% 
		sleep 100 ;
		ControlSetText,Edit4,8800 
		sleep 100
		;未完成点击动作