DaProgrammer Posted July 5, 2007 Posted July 5, 2007 (edited) expandcollapse popup; Script By DaProgrammer, for use as an autoit programming assistant #include <GUIConstants.au3> #include <Constants.au3> Opt("TrayMenuMode",1) ; $i=1 #region - Tray Opt("TrayOnEventMode", 1) TraySetOnEvent($TRAY_EVENT_PRIMARYDOWN, "Tray") TraySetOnEvent($TRAY_EVENT_SECONDARYDOWN, "Tray2") Func Tray() If $i=1 Then GUISetState(@SW_HIDE) $i=0 Return EndIf If $i=0 Then GUISetState(@SW_SHOW) $i=1 Return EndIf EndFunc Func Tray2() Exit EndFunc #endregion ; $Prog=GUICreate("", 68, 155, -1, -1, "", BitOR($WS_EX_TOPMOST, $WS_EX_TOOLWINDOW)) $b1 = GUICtrlCreateRadio("Absolute", 00, 00, 60, 15) $b2 = GUICtrlCreateRadio("Relative", 00, 15, 60, 15) $Label_mouse = GUICtrlCreateLabel("Mouse", 00, 30, 60, 15, BitOR($SS_CENTER, $SS_SUNKEN)) $Label_cords = GUICtrlCreateLabel("", 00, 45, 60, 15, $SS_CENTER) $Label_ID = GUICtrlCreateLabel("Control ID", 00, 60, 60, 15, BitOR($SS_CENTER, $SS_SUNKEN)) $Label_ID2 = GUICtrlCreateLabel("", 00, 75, 60, 15, $SS_CENTER) $Label_H = GUICtrlCreateLabel("Control Handle", 00, 90, 60, 30, BitOR($SS_CENTER, $SS_SUNKEN)) $Label_H2 = GUICtrlCreateLabel("", 00, 120, 60, 15, $SS_CENTER) GUISetState() While 1 $x = MouseGetPos(0) $y = MouseGetPos(1) GUICtrlSetData($Label_cords, $x & "/" & $y) $point = MouseGetPos() $hwnd = DllCall("user32.dll", "hwnd", "WindowFromPoint", "int", $point[0], "int", $point[1]) $hWIN = $hwnd[0] $ID = DllCall('User32.dll', 'int', 'GetDlgCtrlID', 'hwnd', $hWIN) GUICtrlSetData($Label_ID2, $ID[0]) GUICtrlSetData($Label_H2, $hWIN) $msg = GUIGetMsg() If $msg = $b1 Then Opt("MouseCoordMode", 1) If $msg = $b2 Then Opt("MouseCoordMode", 0) WEnd been using autoit for a while now and made this tool for myself, so why not share tell me how u like it and is there anything i should add ? P.S. left click to Hide/Show the tool, and right click to close it. Edited July 5, 2007 by DaProgrammer
Bert Posted July 5, 2007 Posted July 5, 2007 wrong forum. Can a Mod please move it? The Vollatran project My blog: http://www.vollysinterestingshit.com/
DaProgrammer Posted July 5, 2007 Author Posted July 5, 2007 wrong forum. Can a Mod please move it?i cant post in example scripts for some reason so i posted it here, if some1 can move it ill appritiate it
Developers Jos Posted July 5, 2007 Developers Posted July 5, 2007 wrong forum. Can a Mod please move it?OP can't post in the Examples yet since the post count is less than 10 ... SciTE4AutoIt3 Full installer Download page - Beta files Read before posting How to post scriptsource Forum etiquette Forum Rules Live for the present, Dream of the future, Learn from the past.
Generator Posted July 5, 2007 Posted July 5, 2007 Well, an alternative of AutoIt Windows Tool i guess.
DaProgrammer Posted July 5, 2007 Author Posted July 5, 2007 Well, an alternative of AutoIt Windows Tool i guess.yes it is but its smaller (doesnt take half the screen) and more conviniet to my sence.
martin Posted July 5, 2007 Posted July 5, 2007 yes it is but its smaller (doesnt take half the screen) and more conviniet to my sence.Yes, smaller is an advantage.Needs a slightly taller form for XP because the Control ID is not shown fully. (Another 5 pixels maybe?) Serial port communications UDF Includes functions for binary transmission and reception.printing UDF Useful for graphs, forms, labels, reports etc.Add User Call Tips to SciTE for functions in UDFs not included with AutoIt and for your own scripts.Functions with parameters in OnEvent mode and for Hot Keys One function replaces GuiSetOnEvent, GuiCtrlSetOnEvent and HotKeySet.UDF IsConnected2 for notification of status of connected state of many urls or IPs, without slowing the script.
Mast3rpyr0 Posted July 6, 2007 Posted July 6, 2007 I attempted to do something like that, its in my sig. My UDF's : _INetUpdateCheck() My Programs : GameLauncher vAlpha, InfoCrypt, WindowDesigner, ScreenCap, DailyRemindersPick3GeneratorBackupUtility! Other : Bored? Click Here!
DaProgrammer Posted July 6, 2007 Author Posted July 6, 2007 Yes, smaller is an advantage.Needs a slightly taller form for XP because the Control ID is not shown fully. (Another 5 pixels maybe?)i think u can manage to add 5 pixel's im not using any theme so it looks ok here.
DaProgrammer Posted July 13, 2007 Author Posted July 13, 2007 thats it no more responses ? common ppl
Klaatu Posted July 13, 2007 Posted July 13, 2007 Maybe if you had said in the first post what the heck it's supposed to do, you would have had more people trying it, and more responses. My Projects:DebugIt - Debug your AutoIt scripts with DebugIt!
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now