アップルスクリプト発表会スレでお世話になった563です。
私もエロ関係という事でひとつ。
よく、海外モロムービーなどの紹介ページで直リンじゃなくって直アドって言うのかな。
アドレスを書いてあるけど、クリックできないやつ。
あれって、ダウンローダー使ってる人は良いと思うのですが、
晩年IE使いな私のような初心者だと、どうやって落とそうか悩みます。
IEのダウンロードマネージャで、以前の落とした奴を変更したりしてました。
そこで、アドレスをコピペで落とせるようにできたらいいなと考えました。

property Download_Folder : {}
if Download_Folder = {} then
set Download_Folder to choose folder with prompt "ダウンロード先フォルダを選択してください"
end if
tell application "Internet Explorer"
Activate
set The_URL to text returned of (display dialog "URLをペーストしてください" default answer "" with icon 1)
set Old_Delimiters to AppleScript's text item delimiters
set AppleScript's text item delimiters to {"/"}
set File_Name to (Download_Folder as text) & last text item of The_URL
set AppleScript's text item delimiters to Old_Delimiters
GetURL The_URL to file File_Name
end tell

初回のみ、ダウンロード先フォルダを選択します。
IE使いな方、少量の直アド動画用にどうぞ。
「いや、ここはこうしたほうがいいぞ」というのも教えてください。