home *** CD-ROM | disk | FTP | other *** search
/ PC Welt 2006 January / PCWELT_1_2006.ISO / pcwsoft / autoit-v3-setup.exe / Examples / notepad1.au3 < prev    next >
Encoding:
Text File  |  2004-01-14  |  1.3 KB  |  55 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. ;   Opens Notepad, types in some text and then quits.
  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 Notepad type in some text 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 Notepad
  25. Run("notepad.exe")
  26.  
  27.  
  28. ; Wait for the Notepad become active - it is titled "Untitled - Notepad" on English systems
  29. WinWaitActive("Untitled - Notepad")
  30.  
  31.  
  32. ; Now that the Notepad window is active type some text
  33. Send("Hello from Notepad.{ENTER}1 2 3 4 5 6 7 8 9 10{ENTER}")
  34. Sleep(500)
  35. Send("+{UP 2}")
  36. Sleep(500)
  37.  
  38.  
  39. ; Now quit by pressing Alt-f and then x (File menu -> Exit)
  40. Send("!f")
  41. Send("x")
  42.  
  43.  
  44. ; Now a screen will pop up and ask to save the changes, the window is called 
  45. ; "Notepad" and has some text "Yes" and "No"
  46. WinWaitActive("Notepad", "No")
  47. Send("n")
  48.  
  49.  
  50. ; Now wait for Notepad to close before continuing
  51. WinWaitClose("Untitled - Notepad")
  52.  
  53.  
  54. ; Finished!
  55.