Search the Community

A very rough script which needs more work on the time roll over, but I noticed that stringformat prints odd characters sometimes, Run("notepad.exe") $hWnd = WinWaitActive("[CLASS:Notepad]") $hrs = 0 $mins = 0 $secs = 0 $StartCount = 0 For $iCount = 1 To 120 ControlSend($hWnd, "", "Edit1", StringFormat("%02i", $iCount)) ControlSend($hWnd, "", "Edit1", "{ENTER}") ;Sends 00:00:00:000 ---> 00:00:01:000 ControlSend($hWnd, "", "Edit1", StringFormat("%02i:%02i:%02i:%03i", $hrs, $mins, $secs, 000)) ControlSend($hWnd, "", "Edit1"," ---> " &StringFormat("%02i:%02i:%02i:%03i", $hrs, $mins, $secs+1, 000)) ControlSend($hWnd, "", "Edit1", "{ENTER}") ControlSend($hWnd, "", "Edit1", StringFormat("%02i:%02i", $mins, $secs)) ControlSend($hWnd, "", "Edit1", "{ENTER}") ControlSend($hWnd, "", "Edit1", "{ENTER}") $StartCount += 1 $secs += 1 if $secs > 59 then $secs = 0 $mins = $secs/60 EndIf If $mins > 59 then $secs = 0 $mins = $secs/60 $hrs = $mins/60 EndIf Next ControlSend($hWnd, "", "Edit1", "Finished!") #cs 1 00:00:00,000 --> 00:00:01,000 1:00:00 #ce