XProfan

 $H windows.ph
declare gMouse#,oGMPos&,counter&
dim gMouse#,8
imprimer usedll("ifkhook.dll"),external("ifkhook.dll","install",%hInstance,%hWnd)
messages de l'utilisateur 4444
setTimer 1000

whilenot %clé=2

    waitinput
    cas %umessage=4444 : counter&=0

    si %wmtimer

        ~getCursorPos(gMouse#)

        ifnot (long(gMouse#,0)+long(gMouse#,4)*%maxx) = oGMPos&

            oGMPos&=(long(gMouse#,0)+long(gMouse#,4)*%maxx)
            counter&=0

        endif

        add Counter&,1
        cas counter&>60*20 : exitWindows 6

    endif

Wend

end

 {$cleq}
long oGMPos,counter
mem gMouse=point
imprimer usedll("ifkhook.dll"),external("ifkhook.dll","install",hInstance,hWnd)
messages de l'utilisateur 4444
setTimer 1000

do{

    waitinput
    cas uMessage==4444 : counter=0

    si wmtimer {

        getCursorPos(gMouse)

        ifnot (gMouse::x& + gMouse::y&*maxx) == oGMPos {

            oGMPos=(gMouse::x& + gMouse::y&*maxx)
            counter=0

        }

        counter++
        cas counter>60*20 : exitWindows 6

    }

}

end