home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1999 January / pcwk_01_1999.iso / Top100sh / Macro / GrounC / data1.cab / Example_Files / Sample1.gc < prev    next >
Text File  |  1998-08-20  |  512b  |  16 lines
  1. RunProgram("notepad")
  2. RunProgram("calc")
  3. Delay(1000)
  4. InputBox( "Please enter the first number" )
  5. SendInputToWindow("Calculator")
  6. SendKeysToWindow("Calculator", "*" )
  7.  
  8. InputBox( "Please enter the second number" )
  9. SendInputToWindow("Calculator")
  10. SendKeysToWindow("Calculator","=")
  11. // now get the number back, hmmmm...
  12. SendKeysToWindow("Calculator","^C")
  13. SendKeysToWindow("Untitled - Notepad","answer: ")
  14. SendKeysToWindow("Untitled - Notepad","^V, and don't forget to check it.")
  15. MessageBox("Done!")
  16.