Func zhui($text, $price) ;追涨的策略，固定只投6000块
If $zhuiflag = 0 Then ;判断是否追过了，控制追的股票个数
logoin()
Sleep(1000)
WinWaitActive("方正证券双密委托")
Sleep(1000)
$hWND = ControlGetHandle("方正证券双密委托 -", "", "[CLASS:msctls_statusbar32; INSTANCE:1]")
$zijing = _GUICtrlStatusBar_GetText($hWND, 4)
;MsgBox(0,"",$zijing)
If $zijing > 6000 Then
If (Int(60 / $price) * 100) = 0 Then
Sleep(1000)
WinClose("方正证券双密委托")
;下面退出前删除限制DZH点击刷新的flag文件
FileMove(@WorkingDir & "\dzhclickflag.txt", @WorkingDir & "\flag\")
Else
Send("{F1}") ;此处根据各个下单程序的快捷键来定，此处F1为买，要盖为卖单就F2
Send($text) ;输入预警的股票代码
Send("{tab}")
Send($price) ;输入预警的价格
Send("{tab}")
Send(Int(60 / $price) * 100) ;计算固定资金6000块可以买几手
Send("{enter}")
Sleep(500)
Send("{enter}")
Sleep(1000)
;Send("{enter}")
$zhuiflag = $zhuiflag + 1 ;追涨操作记录1次
EndIf
EndIf
Sleep(500)
WinClose("方正证券双密委托")
FileMove(@ScriptDir & "\dzhclickflag.txt", @ScriptDir & "\flag\") ;退出前删除限制DZH点击刷新的flag文件
Else
FileMove(@ScriptDir & "\dzhclickflag.txt", @ScriptDir & "\flag\")
EndIf
EndFunc ;==>zhui
---------------------------
上面是一个FUNCTION， 但是发现最后退出下单程序后移动flag文件这个动作不执行， 哪位帮看看是为什么呢？ |
|手机版|小黑屋|AUTOIT CN
( 鲁ICP备19019924号-1 )谷歌
百度
发表于 2009-9-17 00:33:53