*BSD News Article 69749


Return to BSD News archive

Newsgroups: alt.fan.bill-gates,comp.os.ms-windows.nt.misc,comp.os.ms-windows.win95.misc,comp.os.os2.advocacy,comp.sys.mac.advocacy,alt.org.team-os2,alt.destroy.microsoft,comp.os.linux.advocacy,comp.unix.bsd.freebsd.misc
Path: euryale.cc.adfa.oz.au!newshost.anu.edu.au!harbinger.cc.monash.edu.au!news.rmit.EDU.AU!news.unimelb.EDU.AU!munnari.OZ.AU!spool.mu.edu!howland.reston.ans.net!newsfeed.internetmci.com!in2.uu.net!mail2news.alias.net!myriad!mylinuxbox!suck!netcom.com!petrich
From: petrich@netcom.com (Loren Petrich)
Subject: Re: Why no M$ AppleScript or Rexx imitations?
Message-ID: <petrichDs78Mx.6G0@netcom.com>
Organization: NETCOM On-line Communication Services (408 261-4700 guest)
References: <4mlpnf$d4p@sidhe.memra.com> <petrichDs5Fv9.5Cr@netcom.com> <4ohcuv$772@ari.ari.net> <4oi5m1$5un@orion.cybercom.net>
Date: Thu, 30 May 1996 03:35:21 GMT
Lines: 83
Sender: petrich@netcom10.netcom.com
Xref: euryale.cc.adfa.oz.au alt.fan.bill-gates:22740 comp.os.ms-windows.nt.misc:108088 comp.os.ms-windows.win95.misc:143320 comp.os.os2.advocacy:206089 comp.sys.mac.advocacy:110000 comp.os.linux.advocacy:50495 comp.unix.bsd.freebsd.misc:20333

In article <4oi5m1$5un@orion.cybercom.net>,
Jerry Shekhel <jerry@cybercom.net> wrote:

>I guess Cory's never seen VB in conjunction with OLE Automation.  "This
>can't be scripting, there's no text screen, no Emacs, no pipes???  I'm
>soooo confused!!!  Time to think of a clever way to bash Microsoft!!!"

	What's Visual Basic? And what exactly is OLE Automation? VB is 
not included in any variety of Windoze, as far as I know. And is VB 
*anything* like the old computer language "BASIC"? The one that still 
gets included with DOS?

	Does VB work like AppleScript? Here's an example of an AppleScript
I just recorded with Apple's Script Editor; I set it to "Record" and
performed all the actions you see recorded below, and even some that did
not get recorded :-) Note: there are some special characters that will
come out right with a MacOS-specific font, but not necessarily others,
such as my terminal emulator's font. 

tell application "Finder"
	activate
	select disk "Niki Harris"
	open selection
	select folder "Marathon Stuff" of disk "Niki Harris"
	open selection
	select folder " Marathon 2 Ä" of folder "Marathon Stuff" of disk 
"Niki Harris"
	open selection
	select {file "Marathon 2" of folder " Marathon 2 Ä" of folder 
"Marathon Stuff" of disk "Niki Harris", file "Map" of folder " Marathon 2 
Ä" of folder "Marathon Stuff" of disk "Niki Harris", file "Shapes" of 
folder " Marathon 2 Ä" of folder "Marathon Stuff" of disk "Niki Harris", 
file "Sounds" of folder " Marathon 2 Ä" of folder "Marathon Stuff" of 
disk "Niki Harris", file "Music" of folder " Marathon 2 Ä" of folder 
"Marathon Stuff" of disk "Niki Harris", file "Images" of folder " 
Marathon 2 Ä" of folder "Marathon Stuff" of disk "Niki Harris"}
	open information window of selection
	close information window of file "Images" of folder " Marathon 2 
Ä" of folder "Marathon Stuff" of disk "Niki Harris"
	close information window of file "Music" of folder " Marathon 2 
Ä" of folder "Marathon Stuff" of disk "Niki Harris"
	close information window of file "Sounds" of folder " Marathon 2 
Ä" of folder "Marathon Stuff" of disk "Niki Harris"
	close information window of file "Shapes" of folder " Marathon 2 
Ä" of folder "Marathon Stuff" of disk "Niki Harris"
	close information window of file "Map" of folder " Marathon 2 Ä" 
of folder "Marathon Stuff" of disk "Niki Harris"
	close information window of file "Marathon 2" of folder " 
Marathon 2 Ä" of folder "Marathon Stuff" of disk "Niki Harris"
	select disk "Audio CD 1"
	open information window of selection
	close information window of disk "Audio CD 1"
	select file "infinity.html" of folder "Marathon Stuff" of disk 
"Niki Harris"
	open selection
	activate
	select file "M2_Preview.sit" of folder "Marathon Stuff" of disk 
"Niki Harris"
	open selection
	set position of file "Absolutely DO NOT Read This!" of folder 
"Marathon Stuff" of disk "Niki Harris" to {386, 396}
end tell
tell application "StuffIt Deluxeª"
	activate
	close archive 1
	quit
end tell
tell application "Finder"
	activate
	copy file "Absolutely DO NOT Read This!" of folder "Marathon 
Stuff" of disk "Niki Harris" to folder " Marathon 2 Ä" of folder 
"Marathon Stuff" of disk "Niki Harris"
	empty trash
	select item "Absolutely DO NOT Read This!" of folder "Marathon Stuff" 
of disk "Niki Harris"
	set name of selection to "Absolutely DO NOT Read This!!!"
end tell

-- 
Loren Petrich				Happiness is a fast Macintosh
petrich@netcom.com			And a fast train
My home page: http://www.webcom.com/petrich/home.html
Mirrored at: ftp://ftp.netcom.com/pub/pe/petrich/home.html