>>28の腐れさんのスクリプトを
勉強のつもりでおこがましくも拡張してみたのですが、
ボタンとelse if文をもう一つ増やして4っつにしようとおもったら
IEの変数エラーとか何とかいわれて、駄目でした。
以下がボタンが3っつまでの正常に動くスクリプトです。
IEの一番上のウィンドウのURLを3っつの翻訳サイトから選んで翻訳します。
---
tell application "Internet Explorer"
set q to item 1 of (GetWindowInfo (item 1 of (ListWindows)))

set theButton to button returned of (display dialog "どこで翻訳する？" buttons {"nifty", "worldlingo", "exite"} default button "nifty")
if theButton = "nifty" then
OpenURL "http://nifty.amikai.com/amiweb/browser.jsp?url=" & q & "&langpair=1,2&toolbar=no&lang=JA&c_id=nifty" toWindow 0
else if theButton = "worldlingo" then
OpenURL "http://www.worldlingo.com/wl/Translate?wl_lp=EN-JA&wl_fl=2&wl_url=" & q & "&wl_g_table=-3" toWindow 0
else
OpenURL "http://www.excite.co.jp/world/url/body/?disp_type=3&wb_url=" & q & "&wb_lp=ENJA&wb_dis=3&wb_co=excitejapan" toWindow 0
end if
end tell
---
あまりにも厨な質問だったらごめんなさい。