home *** CD-ROM | disk | FTP | other *** search
/ Info-Mac 3 / Info_Mac_1994-01.iso / Development / Source / SITcomm AppleScript Source < prev    next >
Encoding:
Internet Message Format  |  1994-01-10  |  921 b   |  [TEXT/EDIT]
  1. From: harrym@netcom.com (Harry Myhre)
  2. Subject: SITcomm AppleScript
  3. Date: Tue, 7 Dec 1993 18:13:15 -0800 (PST)
  4.  
  5. Language: AppleScript 1.0
  6. Author: Harry Myhre <harrym@netcom.com>
  7. Date Written: Tue, Dec 7, 1993
  8. Purpose: Start SITcomm, logon to Netcom, get into dl directory, 
  9.             ask user what to do next.
  10.  
  11. tell application "SITcomm"
  12.     activate
  13.     Connect "Netcom" -- dial into Netcom
  14.     Wait For Text "etcom" -- last part of command prompt
  15.     Send Text "go ~" -- first, go to home dir
  16.     Send Text return
  17.     Send Text "go dl" -- go to my download dir
  18.     Send Text return
  19. end tell
  20.  
  21. -- bring the script to the foreground
  22. tell me -- me is the script
  23.     activate
  24. end tell
  25.  
  26. -- ask user what to do next
  27. display dialog "Choose one" buttons {"cli", "nn", "elm"} default button 3
  28. set response to button returned of result
  29. if response not = "cli" then -- do nothing if cli
  30.     tell application "SITcomm"
  31.         Send Text response & return
  32.     end tell
  33. end if
  34.  
  35.