VISTA - TIMER RESOLUTION ET CPU CYCLE

    Public Shared Sub GetTimerResolution(ByRef MinRes As Long, ByRef MaxRes As Long, ByRef ActualRes As Long)

        Dim lMin As Long = 0
        Dim lMax As Long = 0
        Dim lActual As Long = 0

        Dim pLib As IntPtr = NativeMethods.LoadLibrary("ntdll.dll")
        If pLib <> IntPtr.Zero Then

            Dim pProc As IntPtr = NativeMethods.GetProcAddress(pLib, "NtQueryTimerResolution")
            If pProc <> IntPtr.Zero Then

                Dim del As DelNtQueryTimerRes = Marshal.GetDelegateForFunctionPointer(pProc, GetType(DelNtQueryTimerRes))

                Dim iret As UInteger = del.Invoke(lMin, lMax, lActual)

            End If

        End If

        MinRes = lMin
        MaxRes = lMax
        ActualRes = lActual

    End Sub

Télécharger le zip

02 janvier 2008 22:46:01 :

ras

02 janvier 2008 22:48:04 :

zip