XProfan

 $H windows.ph
declarar gMouse#,oGMPos&,counter&
dim gMouse#,8
imprimir usedll("ifkhook.dll"),external("ifkhook.dll","install",%hInstance,%hWnd)
mensajes de los usuarios 4444
setTimer 1000

whilenot %key=2

    waitinput
    caso %umessage=4444 : counter&=0

    if %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
        caso counter&>60*20 : exitWindows 6

    endif

wend

end

 {$cleq}
long oGMPos,counter
mem gMouse=point
imprimir usedll("ifkhook.dll"),external("ifkhook.dll","install",hInstance,hWnd)
mensajes de los usuarios 4444
setTimer 1000

do{

    waitinput
    caso uMessage==4444 : counter=0

    if wmtimer {

        getCursorPos(gMouse)

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

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

        }

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

    }

}

end