home *** CD-ROM | disk | FTP | other *** search
/ PC Welt 2005 November / PCWELT_11_2005.ISO / pcwsoft / autoit-v3-setup.exe / Examples / calculator.au3 < prev    next >
Encoding:
Text File  |  2004-01-14  |  1.2 KB  |  48 lines
  1. ;
  2. ; AutoIt Version: 3.0
  3. ; Language:       English
  4. ; Platform:       Win9x/NT
  5. ; Author:         Jonathan Bennett (jon@hiddensoft.com)
  6. ;
  7. ; Script Function:
  8. ;   Plays with the calculator.
  9. ;
  10.  
  11.  
  12. ; Prompt the user to run the script - use a Yes/No prompt (4 - see help file)
  13. $answer = MsgBox(4, "AutoIt Example (English Only)", "This script will run the calculator and type in 2 x 4 x 8 x 16 and then quit.  Run?")
  14.  
  15.  
  16. ; Check the user's answer to the prompt (see the help file for MsgBox return values)
  17. ; If "No" was clicked (7) then exit the script
  18. If $answer = 7 Then
  19.     MsgBox(0, "AutoIt", "OK.  Bye!")
  20.     Exit
  21. EndIf
  22.  
  23.  
  24. ; Run the calculator
  25. Run("calc.exe")
  26.  
  27.  
  28. ; Wait for the calulator become active - it is titled "Calculator" on English systems
  29. WinWaitActive("Calculator")
  30.  
  31.  
  32. ; Now that the calc window is active type 2 x 4 x 8 x 16
  33. ; Use AutoItSetOption to slow down the typing speed so we can see it :)
  34. AutoItSetOption("SendKeyDelay", 400)
  35. Send("2*4*8*16=")
  36. Sleep(2000) 
  37.  
  38.  
  39. ; Now quit by sending a "close" request to the calc
  40. WinClose("Calculator")
  41.  
  42.  
  43. ; Now wait for calc to close before continuing
  44. WinWaitClose("Calculator")
  45.  
  46.  
  47. ; Finished!
  48.