#include <Date.au3>
Dim $timeA=@YEAR & "/" & @MON & "/" & (@MDAY+1) & " 00:30:00"
$iDateCalc = _DateDiff('s', _NowCalc(), $timeA)
Dim $leftHour= $iDateCalc-1800
Dim $workHour= Int(0.67*$leftHour)
Dim $freeHour= Int(0.33*$leftHour)
Dim $var = IniRead("E:\FreeCountdownTimerPortable\Data.ini", "Main", "AlarmsList1", "NotFound")
Dim $IndexOfVar=StringInStr($var," ",0,1);
Dim $var2=StringLeft($var, $IndexOfVar-1)
Dim $longorshort=1
if(StringInStr($var," ",0,1,$IndexOfVar+1,1)>0) Then
$longorshort=0
;MsgBox(4096,"longorshort","$longorshort is 0")
EndIf
Dim $result = StringTrimRight($var2,StringLen($var2)-10)
Dim $ccc=$result & ($workHour)
Dim $finalStr
;MsgBox(4096,"debug","workHour="&$workHour&" longorshort="&$longorshort&" $var="&$var&" $var2="&$var2&" $ccc="&$ccc)
if $workHour>9999 And $longorshort=0 Then
$finalStr=StringReplace($var,$var2 & " ",$ccc)
;MsgBox(4096,"enter else","enter else $finalStr="&$finalStr )
ElseIf $workHour<9999 And $longorshort=1 Then
$ccc=$result & ($workHour)& " "
$finalStr=StringReplace($var,$var2,$ccc)
;MsgBox(4096,"enter else","enter else $cc and &$finalStr=" & $ccc &"--"& $finalStr )
Else
$finalStr=StringReplace($var,$var2,$ccc)
EndIf
Dim $varOther = IniRead("E:\FreeCountdownTimerPortable\Data.ini", "Main", "AlarmsList0", "NotFound")
Dim $IndexOfVarOther=StringInStr($varOther," ",0,1);
Dim $varOther2=StringLeft($varOther, $IndexOfVarOther-1)
Dim $longorshortOther=1
if(StringInStr($varOther," ",0,1,$IndexOfVarOther+1,1)>0) Then
$longorshortOther=0
;MsgBox(4096,"longorshortOther","$longorshortOther is 0")
EndIf
Dim $result2=StringTrimRight($varOther2,StringLen($varOther2)-10)
Dim $cccOther=$result2 & ($freeHour)
Dim $finalStr2
if $freeHour>9999 And $longorshortOther=0 Then
$finalStr2=StringReplace($varOther,$varOther2 & " ",$cccOther)
;MsgBox(4096,"enter else","enter else $finalStr2="&$finalStr2 )
ElseIf $freeHour<9999 And $longorshortOther=1 Then
$cccOther=$result2 & ($freeHour)& " "
$finalStr2=StringReplace($varOther,$varOther2,$cccOther)
Else
$finalStr2=StringReplace($varOther,$varOther2,$cccOther)
EndIf
IniWrite("E:\FreeCountdownTimerPortable\Data.ini","Main","AlarmsList1",$finalStr)
IniWrite("E:\FreeCountdownTimerPortable\Data.ini","Main","AlarmsList0",$finalStr2)
Run("E:\FreeCountdownTimerPortable\FreeCountdownTimer.exe","",@SW_HIDE )
ProcessWait("FreeCountdownTimer.exe")
;Sleep(1000)
$wins = WinList("[CLASS:TFloatingForm]","")
Dim $firstWin=$wins[1][1]
Dim $secondWin=$wins[2][1]
Dim $firstWinPos=WinGetPos($firstWin)
Dim $secondWinPos=WinGetPos($secondWin)
If $firstWinPos[1]>$secondWinPos[1] Then
$firstWin=$wins[2][1]
$secondWin=$wins[1][1]
EndIf
BlockInput(1)
WinActivate($firstWin)
WinWaitActive($firstWin)
ControlClick($firstWin,"",$firstWin,"left",1,10,50)
BlockInput(0)
Sleep($workHour*1000+2000000)
BlockInput(1)
WinActivate($secondWin)
WinWaitActive($secondWin)
ControlClick($secondWin,"",$secondWin,"left",1,10,50)
BlockInput(0)
;WinActivate("[CLASS:TFloatingForm]","")
