AutoHotkey Community

Code: Select all

#SingleInstance force
#Persistent

#include CLR.ahk

asm := CLR_LoadLibrary("bin\debug\WaitableTimer.dll")

wt := asm.CreateInstance("WaitableTimer")
MyTimer := wt.Create(Func("Test"), 1)
MyTimer.Start()
Sleep, 10000
MyTimer.Stop()

return

Test(){
	ToolTip % A_TickCount
}

^Esc::
	ExitApp

Code: Select all

using Microsoft.Win32.SafeHandles;
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Linq;
using System.Runtime.InteropServices;
using System.Text;
using System.Threading;
using System.Threading.Tasks;

public class WaitableTimer
{
    public TimerInstance Create(dynamic _callback, int _period)
    {
        return new TimerInstance(_callback, _period);
    }

    public class TimerInstance
    {
        dynamic callback;
        int period;
        Thread timerThread;
        _WaitableTimer waitableTimer = new _WaitableTimer(false, "");

        public TimerInstance(dynamic _callback, int _period)
        {
            callback = _callback;
            period = _period;
        }

        public void Start()
        {
            timerThread = new Thread(new ThreadStart(TimerLoop));

            timerThread.Start();
        }

        public void Stop()
        {
            timerThread.Abort();
        }

        public void TimerLoop()
        {
            waitableTimer.Set(-0L, period);
            while (true)
            {
                waitableTimer.WaitOne();
                callback();
            }
        }
    }

    public class _WaitableTimer : WaitHandle
    {
        [DllImport("kernel32.dll")]
        static extern SafeWaitHandle CreateWaitableTimer(IntPtr lpTimerAttributes, bool bManualReset, string lpTimerName);

        [DllImport("kernel32.dll", SetLastError = true)]
        [return: MarshalAs(UnmanagedType.Bool)]
        static extern bool SetWaitableTimer(SafeWaitHandle hTimer, [In] ref long pDueTime, int lPeriod, IntPtr pfnCompletionRoutine, IntPtr lpArgToCompletionRoutine, [MarshalAs(UnmanagedType.Bool)] bool fResume);

        public _WaitableTimer(bool manualReset = true, string timerName = null)
        {
            this.SafeWaitHandle = CreateWaitableTimer(IntPtr.Zero, manualReset, timerName);
        }

        public void Set(long dueTime, int period)
        {
            if (!SetWaitableTimer(this.SafeWaitHandle, ref dueTime, period, IntPtr.Zero, IntPtr.Zero, false))
            {
                throw new Win32Exception();
            }
        }
    }
}

Code: Select all

#SingleInstance force
#Persistent
SetBatchLines,-1
asm := CLR_LoadLibrary(A_ScriptDir "\WaitableTimer.dll")
global period:=1
wt := asm.CreateInstance("WaitableTimer")
MyTimer := wt.Create(Func("Test"), period)
MyTimer.Start()
Sleep, 100000
MyTimer.Stop()

return

Test(){
	static ctr:=0, tic1:=0, periods:=10000
	if !ctr
		DllCall("QueryPerformanceCounter", "Int64P", tic1)
	ctr++
	if (ctr=periods){
		DllCall("QueryPerformanceCounter", "Int64P", tic2)
		DllCall("QueryPerformanceFrequency", "Int64P", f)
		MsgBox, % "Elapsed time:`t" round((tic2-tic1)*1000/f) " ms.`nExpected:`t`t" period*periods " ms."
		Exitapp
	}
	return
}

^Esc::
	ExitApp

Code: Select all

#Persistent
lpTimerAttributes:=0
lpTimerName:=0
dwFlags:=0
dwDesiredAccess:=0																; can be "str" to it seems. i.e., "str", "lpTimerName"
hTimer:=DllCall("Kernel32.dll\CreateWaitableTimerEx", "Uptr", lpTimerAttributes, "UPtr", lpTimerName, "Uint", dwFlags, "Uint", dwDesiredAccess)
MsgBox, % hTimer  "`n" ErrorLevel  "`n" A_LastError

ms:=35							; milliseconds
VarSetCapacity(lpDueTime,8,0)
NumPut(- 100 * 10000 * ms,lpDueTime,4,"Int")

lPeriod:= 0 					; 0 run once ?
pfnCompletionRoutine:= RegisterCallback("f")
lpArgToCompletionRoutine:=0		; Args to f() ?
WakeContext:=0					; Can be set to make the timer wake the computer from sleep it seems.
TolerableDelay:=0

r:=DllCall("Kernel32.dll\SetWaitableTimerEx", "Uptr", hTimer, "UPtr", &lpDueTime, "Int", lPeriod, "Ptr", pfnCompletionRoutine, "Ptr", lpArgToCompletionRoutine, "Ptr", WakeContext, "Uint", TolerableDelay)
MsgBox, % r  "`n" ErrorLevel  "`n" A_LastError

f(){
	MsgBox, % "hi from setwaitabletimer."
	exitapp
}

Code: Select all

TIMER_ALL_ACCESS   := 0x1F0003
TIMER_MODIFY_STATE := 0x0002
TIMER_QUERY_STATE  := 0x0001

if !(hTimer := DllCall("CreateWaitableTimerEx", "ptr", 0, "ptr", 0, "uint", 0, "uint", TIMER_ALL_ACCESS, "ptr"))
    MsgBox % "CreateWaitableTimerEx failed with Error: " A_LastError
MsgBox % "Handle to timer object: " hTimer

/*
; stuff here...

if !(DllCall("SetWaitableTimerEx", "ptr", hTimer, "int64*", DueTime, "int", Period, "ptr", CompletionRoutine, "ptr", ArgToCompletionRoutine, "ptr", WakeContext, "uint", TolerableDelay))
    MsgBox % "SetWaitableTimerEx failed with Error: " A_LastError

; more stuff here...
*/

DllCall("CloseHandle", "ptr", hTimer)

Code: Select all

; NOTE: While a script like this is running, the entire operating system and all applications are
; affected by timeBeginPeriod below.

SetBatchLines -1  ; Ensures maximum effectiveness of this method.
ntchs:=2
SleepDuration = 1  ; This can sometimes be finely adjusted (e.g. 2 is different than 3) depending on the value below.
TimePeriod = 3 ; Try 7 or 3.  See comment below.
; On a PC whose sleep duration normally rounds up to 15.6 ms, try TimePeriod=7 to allow
; somewhat shorter sleeps, and try TimePeriod=3 or less to allow the shortest possible sleeps.

;~ DllCall("Winmm\timeBeginPeriod", uint, TimePeriod)  ; Affects all applications, not just this script's DllCall("Sleep"...), but does not affect SetTimer.

~Right::
loop
{
	DllCall("user32.dll\mouse_event", "UInt", 0x0001, "UInt", 1*ntchs, "UInt", 0, "UInt", 0, "UPtr", 0)
    DllCall("Sleep", UInt, SleepDuration)  ; Must use DllCall instead of the Sleep command.
	if !GetKeyState("Right", "P")
	break
}
DllCall("Winmm\timeEndPeriod", UInt, TimePeriod)  ; Should be called to restore system to normal.
return
~Left::
loop
{
	DllCall("user32.dll\mouse_event", "UInt", 0x0001, "UInt", -1*ntchs, "UInt", 0, "UInt", 0, "UPtr", 0)
    DllCall("Sleep", UInt, SleepDuration)  ; Must use DllCall instead of the Sleep command.
	if !GetKeyState("Left", "P")
	break
}
DllCall("Winmm\timeEndPeriod", UInt, TimePeriod)  ; Should be called to restore system to normal.
return
~Down::
loop
{
	DllCall("user32.dll\mouse_event", "UInt", 0x0001, "UInt", 0, "UInt", 1*ntchs, "UInt", 0, "UPtr", 0)
    DllCall("Sleep", UInt, SleepDuration)  ; Must use DllCall instead of the Sleep command.
	if !GetKeyState("Down", "P")
	break
}
DllCall("Winmm\timeEndPeriod", UInt, TimePeriod)  ; Should be called to restore system to normal.
return
~Up::
loop
{
	DllCall("user32.dll\mouse_event", "UInt", 0x0001, "UInt", 0, "UInt", -1*ntchs, "UInt", 0, "UPtr", 0)
    DllCall("Sleep", UInt, SleepDuration)  ; Must use DllCall instead of the Sleep command.
	if !GetKeyState("Up", "P")
	break
}
DllCall("Winmm\timeEndPeriod", UInt, TimePeriod)  ; Should be called to restore system to normal.
return


^Esc::
DllCall("Winmm\timeEndPeriod", UInt, TimePeriod)  ; Should be called to restore system to normal.
ExitApp
return

Code: Select all

 sleep (t) {
DllCall("MicroTimer.dll\Sleep", "UInt",t)
}