home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1999 January / pcwk_01_1999.iso / Top100sh / Macro / GrounC / data1.cab / Example_Files / Sample4.gc < prev    next >
Text File  |  1998-08-20  |  811b  |  22 lines
  1. // This sample demonstrate various window commands
  2. RunProgram("Notepad")
  3. RunProgram("Calc")
  4. Delay(2000)
  5. ActivateWindow("Untitled - Notepad")
  6. Delay(2000)
  7. ActivateWindow("Calculator")
  8. Delay(2000)
  9. If(FindWindow("Untitled - Notepad"),MessageBox("Notepad was found"),MessageBox("Notepad was not found"))
  10. ActivateWindow("Untitled - Notepad")
  11. Delay(2000)
  12. If(WindowActive("Untitled - Notepad"),MessageBox("Notepad is the active window"),MessageBox("Notepad is not the active window"))
  13. MaximizeWindow("Untitled - Notepad")
  14. Delay(2000)
  15. MinimizeWindow("Untitled - Notepad")
  16. Delay(2000)
  17. NormalizeWindow("Untitled - Notepad")
  18. Delay(2000)
  19. CloseWindow("Untitled - Notepad")
  20. If(FindWindow("Untitled - Notepad"),MessageBox("Notepad was found"),MessageBox("Notepad was not found"))
  21. QuitProgram("Calculator")
  22.