#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]","")