' Enumerate All Windows
' using Vbsedit's free Toolkit

Set toolkit = CreateObject("Vbsedit.Toolkit")

ForEach window In toolkit.TopLevelWindows
  enumWindows window,""
Next

Sub enumWindows(w,indent)
  WScript.Echo indent & "[" & w.Handle & "][" & w.windowtitle & "][" & w.ClassName & "][" & w.X & ":" & w.Y & ":" & w.width & ":" & w.height & "]"
  ForEach child In w.ChildWindows
    enumWindows child,indent & "  "
  next
EndSub


search for scripts

VbsEdit contains all these sample scripts!


Download Now!



Download   Home   Scripts

Copyright © 2001-2024 adersοft