Re: iDisk
Re: iDisk
- Subject: Re: iDisk
- From: Michelle Steiner <email@hidden>
- Date: Wed, 22 Aug 2001 06:27:08 -0700
On 8/22/01 4:10 AM, Michael Ghilissen <email@hidden> wrote:
>
Where can I find the code for mounting and accessing the iDisk (with user
>
and password)?
--)2000 christian vick
-- email@hidden
property theUser : ""
property thePassword : ""
property ButtonResult : "" -- crazy: "remember" works also if this
property is missing
on run
try
if thePassword = "" then set {theUser, {ButtonResult, thePassword}} to ,
{text returned of (display dialog "Your user name @ mac.com:" default
answer theUser buttons {"ok"} default button 1), ,
{button returned, text returned} of (display dialog "Your password @
mac.com:" default answer "" buttons {"cancel", "ok", "ok & remember"}
default button 2)}
if not (theUser = "") and not (thePassword = "") then mount volume
"afp://" & theUser & ":" & thePassword & "@iDisk.Mac.com/" & theUser
on error ErrorMessage number ErrorNumber
activate
display dialog ErrorMessage & return & ErrorNumber buttons {"ok"}
default button 1
end try
if ButtonResult is not "ok & remember" then set thePassword to ""
end run
on open (myMind)
set {theUser, thePassword} to {"", ""}
activate
display dialog "The user name and password is no longer stored." buttons
{"ok"} default button 1
end open
----------------------------------------------------------------------
| Michelle Steiner | We're not human beings having a spiritual |
| | experience. We're spiritual beings |
| email@hidden | having a human experience. |
----------------------------------------------------------------------