|
Local $vT = IniRead('vT.ini', 'TS', 'LK', '15:11')
$n=InputBox("设置清仓时间", "雷凯清仓时间", '15:11', "",200,120, 500, 200)
$dayq = StringSplit($n, ":")
$aDatepc = $dayq[1] & $dayq[2]
IniWrite('vT.ini', 'TS', 'LK', $n)
MsgBox(0, '', $aDatepc)
Sleep(100)
Spqpc()
Func Spqpc();收盘前清仓
While 1
tooltip(@HOUR&':'&@MIN&':'&@SEC,500,0,"收盘前清仓",0,0)
If @HOUR & @MIN = $aDatepc Then
tooltip("")
WinActivate("雷凯投资期货交易")
SLEEP(200)
send("!q")
SLEEP(200)
EndIf
WEnd
EndFunc
感觉用AdlibRegister 来定时不是很好用,所以换了个写法,但为啥CPU还是占用那么厉害呢?
请各位老大指教,谢谢了! |
|