home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / sgwnd10 / enumtopm.js < prev    next >
Encoding:
JavaScript  |  1998-08-07  |  2.6 KB  |  79 lines
  1. //--------------------------------------------------------------------------
  2. // EnumTopMost.js - Enumerates all visible top most windows and prints 
  3. //                  window list to the standard output (when using CSCRIPT)
  4. //
  5. // This file is part of the sgWindow.
  6. // Copyright (C) 1998 Stinga
  7. // All rights reserved.
  8. //
  9. // This sample demonstrates usage of the sgWindow component
  10. // and it's window enumeration capabilities.
  11. //--------------------------------------------------------------------------
  12.  
  13.  
  14. var ws_OVERLAPPED           = 0x00000000;
  15. var ws_POPUP                = 0x80000000;
  16. var ws_CHILD                = 0x40000000;
  17. var ws_MINIMIZE             = 0x20000000;
  18. var ws_VISIBLE              = 0x10000000;
  19. var ws_DISABLED             = 0x08000000;
  20. var ws_CLIPSIBLINGS         = 0x04000000;
  21. var ws_CLIPCHILDREN         = 0x02000000;
  22. var ws_MAXIMIZE             = 0x01000000;
  23. var ws_CAPTION              = 0x00C00000;
  24. var ws_BORDER               = 0x00800000;
  25. var ws_DLGFRAME             = 0x00400000;
  26. var ws_VSCROLL              = 0x00200000;
  27. var ws_HSCROLL              = 0x00100000;
  28. var ws_SYSMENU              = 0x00080000;
  29. var ws_THICKFRAME           = 0x00040000;
  30. var ws_GROUP                = 0x00020000;
  31. var ws_TABSTOP              = 0x00010000;
  32. var ws_MINIMIZEBOX          = 0x00020000;
  33. var ws_MAXIMIZEBOX          = 0x00010000;
  34. var ws_TILED                = 0x00000000;
  35. var ws_ICONIC               = 0x20000000;
  36. var ws_SIZEBOX              = 0x00040000;
  37. var ws_OVERLAPPEDWINDOW     = 0x00CF0000;
  38. var ws_POPUPWINDOW          = 0x80880000;
  39. var ws_CHILDWINDOW          = 0x40000000;
  40. var ws_TILEDWINDOW          = 0x00CF0000;
  41.  
  42. var jsCrLf = "\r\n";
  43.  
  44. // Collect window list
  45. var sList = GetTopMostList();
  46.  
  47. WScript.Echo(sList);
  48. WScript.Echo("This list was generated with Stinga sgWindow component." + jsCrLf + "Copyright (C) 1998 Stinga");
  49.  
  50. WScript.Quit();
  51.  
  52. function GetTopMostList()
  53. {    
  54.     var sList = "";
  55.     var style = ws_OVERLAPPEDWINDOW | ws_VISIBLE;
  56.  
  57.     // Create window object
  58.     var g = new ActiveXObject("SGWindow.Globals");
  59.     
  60.     // Create JScript enumerator
  61.     var children = new Enumerator(g.DesktopWindow.Children);
  62.  
  63.     // Enumerate all topmost windows and extract 
  64.     // overlapped and visible windows
  65.     for (; !children.atEnd(); children.moveNext())    
  66.     {        
  67.         var child = children.item();        
  68.         if ((child.Style & style) == style)
  69.         {
  70.             sList = sList + child.Class + " - '" + child.Text 
  71.                                 //+ "' (" + child.HWND.toString() + " - "
  72.                                 //+ child.Style.toString() + ") " 
  73.                                 + jsCrLf;
  74.         }
  75.     }
  76.     return sList;
  77. }
  78.  
  79.