need quickfix script to get mouse coordinates

[Hojima]

Can someone wrire me very simple code inorder to find the coordinate of the mouse with a GUI? By that I mean that I want to click a button, then click anywhere else on the screen for it to give me the coordinates. Please make it simple to follow. This is what I've tried so far:

#include <GUIConstants.au3>

GUICreate("My GUI")

GUISetState (@SW_SHOW)

$pressed=GUICtrlCreateButton ("Find Coordinate", 10, 30, 100)

While 1

$msg = GUIGetMsg()

if $pressed = $msg then

while 1

$msg = GUIGetMsg()

if $msg = $GUI_EVENT_PRIMARYDOWN Then

$pos = MouseGetPos()

MsgBox(0, "Mouse x,y:", $pos[0] & "," & $pos[1])

EndIf

If $msg = $GUI_EVENT_CLOSE Then ExitLoop

WEnd

EndIf

If $msg = $GUI_EVENT_CLOSE Then ExitLoop

Wend

What I basically need is a function that doesn't require a loop inorder to work, and a meathod to get coordinates out of the GUI

Edited October 18, 2006 by Hojima