Подсчет времени запуска программы

[Salnikov.sv]

Добрый день. Мне нужно поставить на мониторинг время запуска определенной программы. Количество секунд, в течение которых происходил запуск, должно записываться в файл.
Запуск программы и закрытие его окна реализовал, а подсчет времени запуска не понимаю как. Можете помочь?

[Oleg]

You have two values of date-time.
See the example below how to calculate the difference of two date-time values

Code: Select all

;*****************************
;* RoboTask Task file
;* Do not edit in text editor!
;*****************************
 
[Root]
ActionAfterRun=INTEGER|0
Actions=FOLDER
Automat=INTEGER|-1
CatID=INTEGER|1416408852
Comment=STRINGLIST
ContinueOnError=INTEGER|0
ExternalName=STRING|"Task151"
Hide=INTEGER|0
ID=INTEGER|1981151426
LogOnAsUser=INTEGER|1
Name=STRING|"date-time subtracting (2)"
OnErrorTaskID=INTEGER|-1
Priority=INTEGER|3
RunOnClose=INTEGER|0
RunOnStartup=INTEGER|0
ToLog=INTEGER|3
WriteGeneralLog=INTEGER|0

[Actions]
Action1=FOLDER
Action2=FOLDER
Action3=FOLDER
Action4=FOLDER
Action5=FOLDER

[Actions\Action1]
ActionID=STRING|"A_VARIABLES_CREATE"
Enabled=INTEGER|-1
Name=STRING|"Create local variable ""DT1"" with value ""{DateTime}"""
Params=FOLDER

[Actions\Action1\Params]
expand=STRING|"1"
varkind=STRING|"1"
varname=STRING|"DT1"
varvalue=STRING|"{DateTime}"

[Actions\Action2]
ActionID=STRING|"A_GENERAL_PAUSE"
Enabled=INTEGER|-1
Name=STRING|"Delay 20 sec"
Params=FOLDER

[Actions\Action2\Params]
delay=STRING|"20"
dimension=STRING|"1"

[Actions\Action3]
ActionID=STRING|"A_VARIABLES_CREATE"
Enabled=INTEGER|-1
Name=STRING|"Create local variable ""DT2"" with value ""{datetime}"""
Params=FOLDER

[Actions\Action3\Params]
expand=STRING|"1"
varkind=STRING|"1"
varname=STRING|"DT2"
varvalue=STRING|"{datetime}"

[Actions\Action4]
ActionID=STRING|"A_SCRIPT_VBEVALUATE"
Enabled=INTEGER|-1
Name=STRING|"VB Evaluate (dt1-dt2)"
Params=FOLDER

[Actions\Action4\Params]
expression=STRING|"datesubtract(""{dt1}"", ""{dt2}"")"
line00000000=STRING|"function DateSubtract(d1, d2)"
line00000001=STRING|"  'd1 and d2 are strings"
line00000002=STRING|"  dt1 = cdate(d1)"
line00000003=STRING|"  dt2 = cdate(d2)"
line00000005=STRING|"  'convert the result back to string"
line00000006=STRING|"  DateSubtract = cstr(cdate(dt1-dt2))"
line00000007=STRING|"end function"
line00000009=STRING|"'aaa = DateSubtract(""12.02.2016 10:41:00"", ""00:45:10"")"
line0000000A=STRING|"'logmessage(aaa)"
linecount=STRING|"11"
loadfromfile=STRING|"1"
variable=STRING|"dt3"

[Actions\Action5]
ActionID=STRING|"A_DIALOG_MESSAGE"
Enabled=INTEGER|-1
Name=STRING|"Show ""date-time1  = {dt1}"""
Params=FOLDER

[Actions\Action5\Params]
icon=STRING|"1"
msg0=STRING|"date-time1  = {dt1}"
msg1=STRING|"date-time2  = {dt2}"
msg2=STRING|"-----------------------"
msg3=STRING|"result = {dt3}"
msgcount=STRING|"4"
playsound=STRING|"0"
showmessage=STRING|"1"

Save the text of the task to a file and use menu Task->Import to import the task into RoboTask.

Also see the similar topic: http://robotask.com/forum/viewtopic.php?f=1&t=1842

[Salnikov.sv]

что не так делаю?

[Oleg]

You have to upgrade software up to 6.3 (at least) of full version of RoboTask.
RoboTask lite doesn't contain loops and flows actions (Loops, if..then, else etc)
Also it doesn't support any scripting (VB script and Javascript)