home *** CD-ROM | disk | FTP | other *** search
/ Boot Disc 1 / boot-disc-1996-08.iso / bootcd.dir / 00256_Script_256 < prev    next >
Text File  |  1996-07-02  |  774b  |  33 lines
  1. global gURL
  2. on mouseUp
  3.   set gURL = the text of cast "URL"
  4.   set the visible of sprite 5 = FALSE
  5.   set the visible of sprite 10 = TRUE
  6.   updatestage
  7.   
  8.   openxlib "http"
  9.   
  10.   --download the homepage at www.somewhere.com to local file "tmp.html"
  11.   --note that the "http://" is omitted in the URL
  12.   
  13.   set httpXObj to http(mNew)
  14.   
  15.   if not objectP(httpXObj) then
  16.     put "Error initializing the HTTP XObject"
  17.   end if
  18.   
  19.   put httpXObj(mGet1_0, gURL, the pathname & "tmp.htm", 1, 2)
  20.   
  21.   httpXObj(mDispose)
  22.   
  23.   closexlib "http"
  24.   
  25.   readFile(the pathname & "tmp.htm")
  26.   
  27.   set the visible of sprite 8 = FALSE
  28.   set the visible of sprite 7 = TRUE
  29.   set the visible of sprite 5 = TRUE
  30.   set the visible of sprite 10 = FALSE
  31.   updateStage
  32.   
  33. end