разделение времени загрузки

[defens]

$timer = TimerInit()
For $i = A To Я
	_IENavigate($oIE, $sUrl)
Next

_TicksToTime(Int(TimerDiff($timer)), $Hour, $Mins, $Secs)
$sPTime = StringFormat("%02i:%02i:%02i", $Hour, $Mins, $Secs)

$hProx = FileOpen(@scriptdir "т.txt", 1)
FileWriteLine($hProx, $sPTime)

так считает общее время, а как сделать чтоб раздельно записывало?
для А=00:00:10 Б=00:00:12 ....Ю=00:00:14 Я=00:00:13


Добавлено:

Сообщение автоматически объединено: 24 Дек 2012

хотел так

#include <Date.au3>;~~~

Local $timer, $Hour, $Mins, $Secs, $sTime

$timer = TimerInit() ; Запускает таймер и хранит дескриптор в переменной
Sleep (8000)
_TicksToTime(Int(TimerDiff($timer)), $Hour, $Mins, $Secs)
$sTime = StringFormat("%02i:%02i:%02i", $Hour, $Mins, $Secs)

$iVrem = _NowTime()

$iTimer = $iVrem-$sTime

MsgBox(0,'',"Время: " &$iTimer)

но почему то всегда пишет 6 какой бы Sleep не писал

 

[madmasles]

defens,

#include <IE.au3>

Dim $aUrls[4] = [3, 'http://www.google.ru/', 'http://mail.ru/', 'http://www.yandex.ru/']
$iAllTime = 0

$oIE = _IECreate()
For $i = 1 To $aUrls[0]
	$iStart = TimerInit()
	_IENavigate($oIE, $aUrls[$i])
	$iTime = TimerDiff($iStart)
	$iAllTime += $iTime
	ConsoleWrite(StringFormat('%.2f sec\t%s\r\n', $iTime / 1000, $aUrls[$i]))
Next
_IEQuit($oIE)
ConsoleWrite(StringFormat('All time\t%.2f sec\r\n', $iAllTime / 1000))

 

[defens]

Огромное спасибо, то что надо. Даже больше чем хотел. :beer: