Help with WM_TIMER

[WhyTea]

I tried to use the callback function with WM_TIMER, but couldn't get it to work. Could someone please help? Thanks.

/Why Tea

expandcollapse popup

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$MainGUI = GUICreate("Cron", 325, 142, 192, 124)
$OKBtn = GUICtrlCreateButton("OK", 48, 56, 75, 25)
$ExitBtn = GUICtrlCreateButton("Exit", 192, 56, 75, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

Global $handle

$handle = DLLCallbackRegister ("_My_WM_TIMER_Proc", "int", "hwnd;int;wparam;lparam") 
ConsoleWrite("Callback register " & @CRLF)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            DllCallbackFree($handle)
            ConsoleWrite("Callback cancel" & @CRLF)
            Exit

        Case $OKBtn
            DllCall("user32.dll", "ptr", "SetTimer", "hwnd", DllCallbackGetPtr($handle), "ptr", 0xab00, "uint", 10000, "ptr", 0)
            ConsoleWrite("Timer set" & @CRLF)
        Case $ExitBtn
            DllCallbackFree($handle)
            ConsoleWrite("Callback cancel" & @CRLF)
            Exit
    EndSwitch
WEnd

Func _My_WM_TIMER_Proc($hWnd, $Msg, $wParam, $lParam)
    Switch $Msg
        Case $WM_TIMER
            ConsoleWrite($X & @CRLF)
    EndSwitch       
    Return _WinAPI_DefWindowProc($hWnd, $Msg, $wParam, $lParam)
EndFunc

[Yashied]

You tried to read MSDN?

DllCall("user32.dll", "int", "SetTimer", "hwnd", $MainGUI, "int", 0, "int", 1000, "ptr", DllCallbackGetPtr($handle))

And that should do the _WinAPI_DefWindowProc() function?

Func _My_WM_TIMER_Proc($hWnd, $Msg, $wParam, $lParam)
    Switch $Msg
        Case $WM_TIMER
            ConsoleWrite($X & @CRLF)
    EndSwitch       
    Return _WinAPI_DefWindowProc($hWnd, $Msg, $wParam, $lParam)
EndFunc

[WhyTea]

You tried to read MSDN?

DllCall("user32.dll", "int", "SetTimer", "hwnd", $MainGUI, "int", 0, "int", 1000, "ptr", DllCallbackGetPtr($handle))

And that should do the _WinAPI_DefWindowProc() function?

Func _My_WM_TIMER_Proc($hWnd, $Msg, $wParam, $lParam)
    Switch $Msg
        Case $WM_TIMER
            ConsoleWrite($X & @CRLF)
    EndSwitch       
    Return _WinAPI_DefWindowProc($hWnd, $Msg, $wParam, $lParam)
EndFunc

Thanks Yashied. It's working now.

/Why Tea

[Yashied]

Func _My_WM_TIMER_Proc($hWnd, $Msg, $wParam, $lParam)
    Switch $Msg
        Case $WM_TIMER
            ConsoleWrite($X & @CRLF)
    EndSwitch       
    Return _WinAPI_DefWindowProc($hWnd, $Msg, $wParam, $lParam)
EndFunc

This is not WM_TIMER message handler, this is a TimerProc() function! Therefore, the following line is wrong.

_WinAPI_DefWindowProc($hWnd, $Msg, $wParam, $lParam)

Edited October 1, 2009 by Yashied