 |
AutoHotkey Community
Let's help each other out
|
| View previous topic :: View next topic |
| Author |
Message |
TheGood
Joined: 30 Jul 2007
Posts: 516
|
 Posted: Sun Mar 15, 2009 5:15 am Post subject: See running AutoHotkey scripts (and end them) |
 |
|
Very simple but useful script. It lists all the AutoHotkey scripts currently running, with a button to end any of them (or a doubleclick on the item).
It uses Titan's Anchor() function (thanks!).
| Code: | DetectHiddenWindows, On
Gui, +Resize -MaximizeBox
Gui, Add, ListView, w500 h200 vlvwList hwndhlvwList gListClick, PID|Script Path|Working Set|Peak Working Set|Page File|Peak Page File
Gui, Add, Button, y+6 xp w247 hwndhRefresh gRefresh, Refresh list
Gui, Add, Button, yp x+6 wp hwndhEndProc gEndProc, End associated process
Gui, Show
Sleep 200 ;Give time for Anchor to catch on
RefreshList()
Return
GuiClose:
ExitApp
GuiSize:
Anchor(hlvwList, "wh")
Anchor(hRefresh, "y w0.5")
Anchor(hEndProc, "x0.5 y w0.5")
Return
Refresh:
RefreshList()
Return
ListClick:
If (A_GuiEvent <> "DoubleClick")
Return
EndProc:
i := LV_GetNext()
WinKill, % "ahk_id " AHKWindows%i%
RefreshList()
Return
RefreshList() {
Global
LV_Delete()
WinGet, AHKWindows, List, ahk_class AutoHotkey
Loop %AHKWindows% {
;Get process ID
WinGet, AHKWindows%A_Index%_PID, PID, % "ahk_id " AHKWindows%A_Index%
GetProcessMemoryInfo(AHKWindows%A_Index%_PID)
;Get memory info
LV_Add(0, AHKWindows%A_Index%_PID, GetScriptPathFromHwnd(AHKWindows%A_Index%)
, Round(GetProcessMemoryInfo(0,12) / 1024) " K", Round(GetProcessMemoryInfo(0,8) / 1024) " K"
, Round(GetProcessMemoryInfo(0,32) / 1024) " K", Round(GetProcessMemoryInfo(0,36) / 1024) " K")
}
Loop 6
LV_ModifyCol(A_Index, "AutoHdr")
;Get columns width
iColWidth := 0
Loop 6 {
SendMessage, 4125, A_Index - 1, 0,, ahk_id %hlvwList%
iColWidth += ErrorLevel
}
;Set main width in accordance to column width
iWidth := iColWidth + 24
Gui, Show, w%iWidth%
}
GetScriptPathFromHwnd(hwnd) {
WinGetTitle, win, ahk_id %hwnd%
Return RegExMatch(win, ".*(?= - AutoHotkey v[0-9\.]+)", ret) ? ret : win
}
GetProcessMemoryInfo(pid, info=-1) {
Static uMemCounters := 0
;Check if we just want info from the struct
If (info <> -1)
Return NumGet(uMemCounters, info)
Else {
;Open the process with PROCESS_QUERY_INFORMATION and PROCESS_VM_READ
h := DllCall("OpenProcess", "UInt", 0x0410, "UInt", 0, "UInt", pid)
;Put info into struct
If Not uMemCounters ;Check if it hasn't already been initialized
VarSetCapacity(uMemCounters, 40)
DllCall("Psapi.dll\GetProcessMemoryInfo", "UInt", h, "UInt", &uMemCounters, "UInt", 40)
;Done
DllCall("CloseHandle", "UInt", h)
}
}
;Anchor() by Titan
;http://www.autohotkey.com/forum/viewtopic.php?t=4348
Anchor(i, a = "", r = false) {
static c, cs = 12, cx = 255, cl = 0, g, gs = 8, z = 0, k = 0xffff, gx = 1
If z = 0
VarSetCapacity(g, gs * 99, 0), VarSetCapacity(c, cs * cx, 0), z := true
If a =
{
StringLeft, gn, i, 2
If gn contains :
{
StringTrimRight, gn, gn, 1
t = 2
}
StringTrimLeft, i, i, t ? t : 3
If gn is not digit
gn := gx
}
Else gn := A_Gui
If i is not xdigit
{
GuiControlGet, t, Hwnd, %i%
If ErrorLevel = 0
i := t
Else ControlGet, i, Hwnd, , %i%
}
gb := (gn - 1) * gs
Loop, %cx%
If (NumGet(c, cb := cs * (A_Index - 1)) == i) {
If a =
{
cf = 1
Break
}
Else gx := A_Gui
d := NumGet(g, gb), gw := A_GuiWidth - (d >> 16 & k), gh := A_GuiHeight - (d & k), as := 1
, dx := NumGet(c, cb + 4, "Short"), dy := NumGet(c, cb + 6, "Short")
, dw := NumGet(c, cb + 8, "Short"), dh := NumGet(c, cb + 10, "Short")
Loop, Parse, a, xywh
If A_Index > 1
av := SubStr(a, as, 1), as += 1 + StrLen(A_LoopField)
, d%av% += (InStr("yh", av) ? gh : gw) * (A_LoopField + 0 ? A_LoopField : 1)
DllCall("SetWindowPos", "UInt", i, "Int", 0, "Int", dx, "Int", dy, "Int", dw, "Int", dh, "Int", 4)
If r != 0
DllCall("RedrawWindow", "UInt", i, "UInt", 0, "UInt", 0, "UInt", 0x0101) ; RDW_UPDATENOW | RDW_INVALIDATE
Return
}
If cf != 1
cb := cl, cl += cs
If (!NumGet(g, gb)) {
Gui, %gn%:+LastFound
WinGetPos, , , , gh
VarSetCapacity(pwi, 68, 0), DllCall("GetWindowInfo", "UInt", WinExist(), "UInt", &pwi)
, NumPut(((bx := NumGet(pwi, 48)) << 16 | by := gh - A_GuiHeight - NumGet(pwi, 52)), g, gb + 4)
, NumPut(A_GuiWidth << 16 | A_GuiHeight, g, gb)
}
Else d := NumGet(g, gb + 4), bx := d >> 16, by := d & k
ControlGetPos, dx, dy, dw, dh, , ahk_id %i%
If cf = 1
{
Gui, %gn%:+LastFound
WinGetPos, , , gw, gh
d := NumGet(g, gb), dw -= gw - bx * 2 - (d >> 16), dh -= gh - by - bx - (d & k)
}
NumPut(i, c, cb), NumPut(dx - bx, c, cb + 4, "Short"), NumPut(dy - by, c, cb + 6, "Short")
, NumPut(dw, c, cb + 8, "Short"), NumPut(dh, c, cb + 10, "Short")
Return, true
} |
Last edited by TheGood on Thu Mar 19, 2009 12:03 am; edited 3 times in total |
|
| Back to top |
|
 |
Lexikos
Joined: 17 Oct 2006
Posts: 4726
Location: Australia
|
| Posted: Sun Mar 15, 2009 6:21 am Post subject: |
|
|
I have a few suggestions:
- Use ahk_class AutoHotkey instead of the regex " - AutoHotkey v[0-9\.]+$". This way should be more reliable, and also supports AutoHotkey_L (which appends ".Lrevision" to the version).
- Remove SetTitleMatchMode, RegEx as it is now unnecessary (otherwise you'd need to use ahk_class ^AutoHotkey$ to rule out AutoHotkeyGUI windows.) RegEx matching is less efficient.
- Don't require the assertion (?= - AutoHotkey v[0-9\.]+) to match - it won't for compiled scripts. For instance,
| Code: | if !RegExMatch(win, ".*(?= - AutoHotkey v[0-9\.]+)", ret)
ret := win |
AHKControl serves a similar purpose, but also provides many other shortcuts for each script. If you'd like to use any of the ideas or code from it, feel free. |
|
| Back to top |
|
|
TheGood
Joined: 30 Jul 2007
Posts: 516
|
| Posted: Sun Mar 15, 2009 3:50 pm Post subject: |
|
|
| Lexikos wrote: | | I have a few suggestions: |
Thanks for the suggestions! I incorporated all of them. |
|
| Back to top |
|
|
TheGood
Joined: 30 Jul 2007
Posts: 516
|
| Posted: Thu Mar 19, 2009 12:03 am Post subject: |
|
|
| I updated the script so that it gives memory info about the associated process of each script (Working Set, Peak Working Set, Page File, Peak Page File). |
|
| Back to top |
|
|
strictlyfocused02
Joined: 21 Jan 2009
Posts: 61
|
| Posted: Thu Mar 19, 2009 8:28 am Post subject: |
|
|
| This is awesome! Extremely useful! Thank you so much! |
|
| Back to top |
|
|
Laszlo
Joined: 14 Feb 2005
Posts: 4668
Location: Boulder, CO
|
| Posted: Thu Mar 19, 2009 5:54 pm Post subject: |
|
|
| It saved me a lot of time when guessing wrong in TaskManager, which entry corresponds to a hanging script, which script leaks memory. Thanks for sharing it! |
|
| Back to top |
|
|
trstone
Joined: 16 Mar 2009
Posts: 9
|
| Posted: Fri Mar 20, 2009 7:18 am Post subject: |
|
|
@thegood
fantastic program!
would you do me a solid and post an adjusted script that would allow this script to be executed from a hotkey (from another script) and go back to standby mode once the status page is closed?
thanks,
tom |
|
| Back to top |
|
|
trstone
Joined: 16 Mar 2009
Posts: 9
|
| Posted: Fri Mar 20, 2009 9:08 am Post subject: |
|
|
disregard my last ...
thanks,
tom |
|
| Back to top |
|
|
Metaxal
Joined: 04 Mar 2009
Posts: 25
|
| Posted: Fri Mar 20, 2009 11:13 am Post subject: |
|
|
Good script!
Suggestion: You could use a timer to automatically refresh the list every second or so. |
|
| Back to top |
|
|
|
|
You can post new topics in this forum
You can reply to topics in this forum
|
Powered by phpBB © 2001, 2005 phpBB Group
|
FAQ
Search
Memberlist
Register
Profile
Log in to check your private messages
Log in
