How to get faster then @SEC?

[huldu]

I was looking thru the date section and i couldnt find anything faster then @SEC (to get current time). Ive put a small piece of code together to see how fast i can read thru 100 lines, but since that is faster then 1 second i had to put 1000 lines instead.

But back to the question is there anyway to get the computer time on miliseconds?

Just posting the relevant code on the timer so you get the point

$a = 100
$oldtime = @sec
$checktime = 0
$currenttime = 0
While 1; Not StringInStr($test, "*** Chat Log Closed")
    
$currenttime = @sec
    If $currentline > $a Then
        $checktime = $currenttime - $oldtime
        $checktime = $checktime * 1000
        $a = $a + 100
        $oldtime = @sec
    EndIf
        
    $test = FileReadLine($file)
    GUICtrlSetData($prgProgress, 100 * ($CurrentLine / $TotalLines))
; Check how many lines are being read per second.
    $LinesPerSec = $CurrentLine / 1000
    
    ToolTip("At line: " & $CurrentLine & " Total Lines to read: " & $TotalLines & " Reading 100 lines @ " & $checktime & " ms",0,0)

Most of the code comes from smoke, wouter and neogia, that helped me alot earlier. Added a few things myself tho of course

<edit> Forgot to add now it barely shows 0 or 1000ms, change the lines to 1000 and remove the multiplier and seconds pop up. I could read 1000 lines @ 7 seconds. But id really like to figure out how to get miliseconds in an "exact" way. I noticed the TimerInit command, but it doesnt seem very reliable. </edit>

<edit> lol just noticed the topic i picked, i was meaning how to get more "precise" then a second, ie miliseconds </edit>

Edited March 2, 2006 by huldu

[huldu]

Added an estimated time aswell. But there is a problem when @sec i do $currenttime - $oldtime, can get erroneous. I thought my estimated time was off, but it was pretty much right on actually hehe. If i just could get miliseconds instead.. would be so much more easy, and more precise!.

[flyingboz]

someone - (i believe holger?) posted a dllcall() to get more precise times w/in the past week.

[huldu]

someone - (i believe holger?) posted a dllcall() to get more precise times w/in the past week.

Thank you found it!

While 1
    ToolTip(@Hour & ':' & @Min & ':' & @Sec & ':' & _MSec())
    Sleep(1)
WEnd

Exit

Func _MSec()
    Local $stSystemTime = DllStructCreate('ushort;ushort;ushort;ushort;ushort;ushort;ushort;ushort')
    DllCall('kernel32.dll', 'none', 'GetSystemTime', 'ptr', DllStructGetPtr($stSystemTime))

    $sMilliSeconds = StringFormat('%03d', DllStructGetData($stSystemTime, 8))
    
    $stSystemTime = 0
    
    Return $sMilliSeconds
EndFunc

Thanks to holger for this.