DKT 自動下單機使用的 Auto IT 原始碼

最近剛好有朋友來信提到要這二個 Auto IT 的原始碼，方便自行修改，所以就順便放上來讓大家參考了。
這兩個 Auto IT 用到一些參數，是直接由下單機送進參數的方式去執行，包含了 hts 的登入密碼、hts api 的登入密碼和下單選擇條件等。


如需自行修改者，請注意參數需保留，否則下單機在呼叫時會有錯誤產生。

首先是 DKTHTS.au3 這個檔案的程式碼內容：(直接使用 HTS 的程式碼側邊圖啦~)

$passwd = $CmdLine[1]
$HTSpath = $CmdLine[2]
$SleepTime = $CmdLine[3]

while 1

IF not ProcessExists("JSCOM.EXE") or not WinExists("JIHSUN HTS", "") Then
WinClose("JIHSUN HTS", "")
ProcessClose("JSCOM.exe")
WinClose("API Trade Manager","")
WinActivate("訊息", "")
Sleep(1000)
ControlFocus("訊息", "是(&Y)","[CLASS:Button; INSTANCE:1]")
ControlClick("訊息", "是(&Y)","[CLASS:Button; INSTANCE:1]")
Sleep(1000)
ProcessClose("APITradeMgr.exe")
Sleep(1000)
ProcessClose("JSHTSMain.exe")
Sleep(1000)
Run($HTSpath & "\JSCOM.EXE", $HTSPath,"")
WinWait("Connetor")
WinActivate("Connetor", "")
ControlSend( "Connetor", "", "[CLASS:TEdit; INSTANCE:1]", $passwd)
ControlSend( "Connetor", "", "[CLASS:TEdit; INSTANCE:1]", "{Enter}")
WinWait("Version Update","",3)
if WinExists("Version Update") Then
WinWaitClose("Version Update")
WinClose("Connetor", "")
Sleep($mousestoptime)
ProcessClose("JSCOM.exe")
Sleep($mousestoptime)
ProcessClose("JSHTSMain.exe")
endif
Sleep(20000)
Endif
IF WinExists("訊息") THEN
WinActivate("訊息")
Sleep(1000)
ControlFocus("訊息", "再次連線(倒數30秒後自動執行)","[CLASS:TButton; INSTANCE:2]")
ControlClick("訊息", "再次連線(倒數30秒後自動執行)","[CLASS:TButton; INSTANCE:2]")
ENDIF

sleep($SleepTime*60*1000)
wend


接著是 DKTHTSAPI.au3 的程式碼內容：

$TradeMode = $CmdLine[1]
$passwd = $CmdLine[2]
$HTSpath = $CmdLine[3]
$SleepTime = $CmdLine[4]

while 1

IF not ProcessExists("APITradeMgr.exe") or not WinExists("API Trade Manage", "") Then
IF ProcessExists("JSCOM.exe") and WinExists("JIHSUN HTS", "") Then
ProcessClose("APITradeMgr.exe")
Run($HTSpath & "\APITradeMgr.exe", $HTSpath,"")
WinWait("API Trade Manager")
WinActivate("API Trade Manager")
IF $TradeMode = 0 Then
ControlFocus("API Trade Manager", "模擬下單 ->","[CLASS:TRadioButton; INSTANCE:1]")
ControlClick("API Trade Manager", "模擬下單 ->","[CLASS:TRadioButton; INSTANCE:1]")
Sleep(1000)
EndIf
IF $TradeMode = 1 Then
ControlFocus("API Trade Manager", "正式下單 ->","[CLASS:TRadioButton; INSTANCE:2]")
ControlClick("API Trade Manager", "正式下單 ->","[CLASS:TRadioButton; INSTANCE:2]")
Sleep(1000)
EndIf
ControlSend( "API Trade Manager", "", "[CLASS:TEdit; INSTANCE:7]", $passwd)
Sleep(1000)
ControlFocus("API Trade Manager", "關閉確認視窗","TCheckBox1")
ControlClick("API Trade Manager", "關閉確認視窗","TCheckBox1")
Sleep(1000)
EndIf
EndIf

sleep($SleepTime*60*1000)
wend


有興趣對這兩個 auto it 自行修改的就參考看看吧。