AutoHotkey Community

Code: Select all

WinAPI_timeBeginPeriod(1)
sleep 1000
buf := "-------------------`n"
loop 30
{
	tc := WinAPI_GetTickCount()
	loop
	{
		dt := WinAPI_GetTickCount() - tc
		if (dt >= 1)
		{
			buf .= A_Index . "  " . dt . "`n"
			break
		}
	}
}
buf .= "-------------------`n"
sleep 1000
loop 30
{
	tc := WinAPI_timeGetTime()
	loop
	{
		dt := WinAPI_timeGetTime() - tc
		if (dt >= 1)
		{
			buf .= A_Index . "  " . dt . "`n"
			break
		}
	}
}
WinAPI_timeEndPeriod(1)
MsgBox % buf
ExitApp


WinAPI_GetTickCount()    ; http://msdn.microsoft.com/en-us/library/ms724408.aspx
{
    return DllCall("kernel32.dll\GetTickCount", "UInt")
}

WinAPI_timeGetTime()    ; http://msdn.microsoft.com/en-us/library/dd757629.aspx
{
    return DllCall("Winmm.dll\timeGetTime", "UInt")
}

WinAPI_timeBeginPeriod(uPeriod)    ; http://msdn.microsoft.com/en-us/library/dd757624.aspx
{
    return DllCall("Winmm.dll\timeBeginPeriod", "UInt", uPeriod, "UInt")
}

WinAPI_timeEndPeriod(uPeriod)    ; http://msdn.microsoft.com/en-us/library/dd757626.aspx
{
    return DllCall("Winmm.dll\timeEndPeriod", "UInt", uPeriod, "UInt")
}

Code: Select all

s:=""
Loop, 50
{
  gtc:=DllCall("GetTickCount"), tgt:=DllCall("Winmm\timeGetTime")
  s.=gtc " `t " tgt " `t " gtc-tgt "`n" 
  sleep 1
}
msgbox % s
ExitApp

Code: Select all

var1 := A_TickCount
var2 := DllCall("kernel32.dll\GetTickCount", "UInt")
var3 := DllCall("kernel32.dll\GetTickCount64", "UInt64")
var4 := DllCall("winmm.dll\timeGetTime", "UInt")

MsgBox, % var1 "`n" var2 "`n" var3 "`n" var4 "`n"

Code: Select all

#include <windows.h>
f = (A_Is64bitOS ? GetTickCount64 : GetTickCount);

f(); //is the same as GetTickCount64() on a x64 OS and GetTickCount() on a x86 OS