放假三天,闲来无事,编一个热键启动飞狐交易师和交易软件的小程序。编完了,想再加上预警后自动下单功能,就改了改。程序源码粗糙,望见谅。
刚拿AUTOIT V3编软件,几乎每个问题、每个函数都要网上搜索很久。很感谢网友的帖子,学了不少。有需要的复制源码后自己改改,添加功能吧。

#include <Array.au3>
$g_szVersion = "monitoringfh"
If WinExists($g_szVersion) Then Exit ;防止程序重复运行
AutoItWinSetTitle($g_szVersion)
Opt("WinTitleMatchMode", 4)
HotKeySet("{ESC}", "Terminate") ;退出程序
HotKeySet("^{F1}", "ShowMessageCtrlF1") ;Ctrl+F1启动飞狐交易师,打开预警设置和预警弹窗,并重新启动预警
HotKeySet("^{F2}", "ShowMessageCtrlF2") ;Ctrl+F2启动股票交易软件并初始化
HotKeySet("^{F5}", "ShowMessageCtrlF5") ;Ctrl+F5开始自动监视预警并自动发出委托交易
HotKeySet("^{F6}", "ShowMessageCtrlF6") ;Ctrl+F6中止监控和下单功能

Global $monclip=""
Global $i=0
Global $jgxxh[9999]
Global $jgxxha[9999]
Global $jgxxhb[9999]
Global $jgxxhc1[9999]
Global $jgxxhc2[9999]
Global $jgxxhc3[9999]
Global $jgxxhc4[9999]
Global $jgxxhc5[9999]
Global $jgxxhc6[9999]
Global $jgxxhc7[9999]
Global $jgxxhc8[9999]
Global $jgxxhc9[9999]
Global $monalert[9999]
Global $jgxxhcnum=0
Global $monitoring=False
Global $CtrlF1test=False
Global $CtrlF2test=False
Global $foxtraderpath=""
Global $foxtradername="FoxTrader.exe"
Global $xiadanpath=""
Global $xiadanname="xiadan.exe"
Global $gpjcrjbcz=""
Global $hqjyrjbcz=""
Global $foxtradernametemp=""
Global $xiadannametemp=""
Global $wtzdzh=""
Global $wtmm=""
Global $wttxmm=""
Global $wtmm=""
Global $wtmmenc=""
Global $wttxmm=""
Global $wttxmmenc=""
Global $gZFs=1
Global $mahour=""
Global $mamin=""
Global $masec=""
Global $maday=""
Global $mamon=""
Global $yjzsfirst=""
Global $yjxzsfirst=""
Global $yjzssec=""
Global $yjxzssec=""
Global $monsleep=0
Global $yjzs=""
Global $yjzsa=""
Global $yjzsb=""
Global $yjzsc=""
Global $yjzsd=""
Global $yjzse=""
Global $yjzsf=""

$setfile=FileOpen("setfile.ini",0)
if $setfile=-1 Then
MsgBox(0,"错误","飞狐预警自动下单程序所在目录下没有配置文件:setfile.ini"&@CR&@LF&@CR&@LF&"按确定后,程序将询问相关信息后创建并保存此文件。")
Inputini()
;Run("notepad.exe setfile.ini")
Else
$foxtraderpath=FileReadLine("setfile.ini",1)
$foxtradername=FileReadLine("setfile.ini",2)
$xiadanpath=FileReadLine("setfile.ini",3)
$xiadanname=FileReadLine("setfile.ini",4)
$wtzdzh=FileReadLine("setfile.ini",5)
$wtmmenc=FileReadLine("setfile.ini",6)
$wtmm = _StringEncryptW(0,$wtmmenc,"CA3F454E85F63DDC2698344289FDEEDDAA294BB",1)
$wttxmmenc=FileReadLine("setfile.ini",7)
$wttxmm = _StringEncryptW(0,$wttxmmenc,"CA3F454E85F63DDC2698344289FDEEDDAA294BB",1)
checkini()
EndIf


Func Inputini()
while Not FileExists($foxtraderpath&"stkblock")
$foxtraderpath=InputBox("请输入相关信息","飞狐交易师路径")
If StringRight($foxtraderpath,1)=""" Then
$foxtraderpath=StringMid($foxtraderpath,1,StringLen($foxtraderpath)-1)
EndIf
WEnd
while Not FileExists($foxtraderpath&"""&$foxtradername)
$foxtradernametemp=""
while $foxtradernametemp=""
$foxtradernametemp=InputBox("请输入相关信息","飞狐交易师文件名")
WEnd
$foxtradername=$foxtradernametemp
if StringRight($foxtradername,4)=".exe" Then
Else
$foxtradername=$foxtradername&".exe"
EndIf
WEnd
While Not FileExists($xiadanpath&"xiadan.ini")
$xiadanpath=InputBox("请输入相关信息","网上委托交易软件路径")
If StringRight($xiadanpath,1)=""" Then
$xiadanpath=StringMid($xiadanpath,1,StringLen($xiadanpath)-1)
EndIf
WEnd
While Not FileExists($xiadanpath&"""&$xiadanname)
$xiadannametemp=""
while $xiadannametemp=""
$xiadannametemp=InputBox("请输入相关信息","网上委托交易软件名")
WEnd
$xiadanname=$xiadannametemp
if StringRight($xiadanname,4)=".exe" Then
Else
$xiadanname=$xiadanname&".exe"
EndIf
WEnd
$wtzdzh=InputBox("请输入相关信息","请输入交易软件缺省设置"&@CR&@LF&"账号类型对应的账号:","","",289,132)
while $wtzdzh=""
$wtzdzh=InputBox("请输入相关信息","请输入交易软件缺省设置"&@CR&@LF&"账号类型对应的账号:","","",289,132)
WEnd
$wtmm=InputBox("请输入相关信息","交易密码:"&@CR&@LF&"(此处使用MD5加密后存储)","","*",289,132)
while $wtmm=""
$wtmm=InputBox("请输入相关信息","交易密码:"&@CR&@LF&"(此处使用MD5加密后存储)","","*",289,132)
WEnd
$wtmmenc = _StringEncryptW(1,$wtmm,"CA3F454E85F63DDC2698344289FDEEDDAA294BB",1)
$wttxmm=InputBox("请输入相关信息","通信密码:"&@CR&@LF&"(此处使用MD5加密后存储)","","*",289,132)
while $wttxmm=""
$wttxmm=InputBox("请输入相关信息","通信密码:"&@CR&@LF&"(此处使用MD5加密后存储)","","*",289,132)
WEnd
$wttxmmenc = _StringEncryptW(1,$wttxmm,"CA3F454E85F63DDC2698344289FDEEDDAA294BB",1)
;如果账号和密码要更改,请将飞狐预警自动下单程序所在目录下的配置文件 setfile.ini 删除(或者将其中的飞狐软件名、网上委托软件名更改一下),让程序提示输入各种信息。这里就不做的太复杂了。



本文Tags: 飞狐,预警,自动,下单,原型,要的,自己,改吧