Menubar revisited

[Scott Rossi]

I've had a couple of reports of this kind of goURL script failing on Win98
and WinMe.  Apparently some (but not all) versions of these OSes do not
accept this line:

get shell("start" && theTitle && tURL)

It would be great if there was some way to format the title/URL string such
that this code would work, but unless someone on the list can reproduce the
problem, it's doubtful there's any way to fix it.  The two workarounds I
know of are:

1) go back to the old pull the default browser from the registry, etc etc.

2) write a simple HTML "jump file" to the temp directory

Neither of these is a great solution; it would be better to find out how to
make the shell command usable on the problem systems.  The lame thing is,
the code works fine on Win95 and 98 over here...


Recently, "Shari"  wrote:

> Apparently the script to go to an URL
> fails on some.  Printing too.
> 
> Error:
> 
> Did not work to go to website---had to force quit, then it asked me
> if I was set up for internet access. Was connected via DSL.
> 
> -- She's testing on system 9.x.  Another fella with 9.x succeeded
> with no troubles.
> 
> on goURL
>  global tURL
>  if tUrl is empty then
>    exit goURL
>  end if
>  if tURL contains "@" then put "mailto:" before tURL
>  if (the platform) is "MacOS" then
>    get the systemversion
>    set the itemdel to "."
>    if item 1 of it >= 10 then # OS X
>      put "open location" && quote & tURL & quote into s
>      do s as AppleScript
>    else # MacOS
>      send tUrl to program "Finder" with "GURLGURL"
>    end if
>  else if (the platform) is "Win32" then
>   
>    set the hideConsoleWindows to true
>    put empty into theTitle
>    if "NT" is in the systemVersion then
>      set the shellCommand to "cmd.exe"
>      put quote & quote into theTitle
>    end if
>    get shell("start" && theTitle && tURL)
>   
>   
>    # local intApp
>    # local EXE_off
>    # put 
> queryRegistry("hkey_local_machine\software\classes\http\shell\open\command\")
> into intApp
>    # if char 1 of intApp is quote then clear char 1 of intApp  #
> strip leading quote
>    # put offset("EXE",intApp) into EXE_off
>    # put char 1 to (EXE_off+2) of intApp into intApp
>    # launch tURL with intApp
>   
>  end if
>  put empty into tUrl
>  set the itemDel to comma
> end goURL


Regards,

Scott Rossi
Creative Director
Tactile Media, Multimedia & Design
-----
E: scott at tactilemedia.com
W: http://www.tactilemedia.com