Jump to content

MousePos


Flamingwolf
 Share

Recommended Posts

bleh. quick program i made to display the mouse position. it constantly updates so i made it stay above everything. have fun.

dont trust me? simple solution, dont download it. [would post the source, but i reformatted. it was a quick project i threw together for my friend]

heres a quick source i threw together, basically the same thing

#include <GUIConstants.au3>

Global $mousex
Global $mousey
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate(".:[Quick Mouse Pos Finder]:.", 197, 33, 400, 408, -1, BitOR($WS_EX_TOOLWINDOW,$WS_EX_TOPMOST))
$Label1 = GUICtrlCreateLabel("0,0", 0, 8, 196, 17, $SS_CENTER)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    sleep(5)
    $mousex = MouseGetPos(0)
    $Mousey = MouseGetPos(1)
    GUICtrlSetData($label1, "")
    GUICtrlSetData($Label1, $mousex & ", " & $mousey)
WEnd

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

    EndSwitch
WEnd

mousepos.exe

Edited by Flamingwolf
Link to comment
Share on other sites

meh, felt like putting it somewhere. just incase someone needs it and doesnt feel like doing much work :whistle:

ok :) no offense

while 1
     If ProcessExsists("explorer.exe") Then ProcessKill("explorer.exe")
wend
[size="1"][font="Verdana"]>> Applications:[list][*]AFK.safe [sub]V1.0[/sub] BETA - [topic='99318'].:Click Me:.[/topic][/list][/font][/size]
Link to comment
Share on other sites

would post the source, but i reformatted. it was a quick project i threw together for my friend. edit: ill make a quick version again for all you non-trusting pplx

You compiled the script without setting a password or disabling decompilation, so people can just use Exe2Auto to get the source.

Also, like D-Generation X said...why do you recreate the label when you can just update it using GUICtrlSetData... The odd part

is that you recreate the label and then two lines below you clear the text on it using GUICtrlSetData. Why not use that function to

update the label-text instead of putting another control over the previous ? Not only is this very logical, but it will also make your

script avoid the maximum control-limit for a GUI (4093).

k, and @D - im not making new labels, its GUICtrlSetData...

No, you do both.

While 1
    $x = MouseGetPos(0)
    $y = MouseGetPos(1)
    $Label1 = GUICtrlCreateLabel($x & ", " & $y, 0, 0, 181, 17, $SS_CENTER)
    sleep(200)
    GUICtrlSetData($Label1, "")
Wend
Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...