過去ログ

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　Ｐａｇｅ      11
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
　　　通常モードに戻る　　┃　　ＩＮＤＥＸ　　┃　　≪前へ　　│　　次へ≫　　　
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
　▼エキサイト翻訳(英日)(vbs)  YAma(作成Omapi氏) 02/8/1(木) 9:51

　───────────────────────────────────────
　■題名 ： エキサイト翻訳(英日)(vbs)
　■名前 ： YAma(作成Omapi氏)
　■日付 ： 02/8/1(木) 9:51
　-------------------------------------------------------------------------
   
'エキサイト翻訳(英日)

'

'閲覧中のURLをExciteで英日翻訳

'　　　　　　　　　　 by Omapi

'

　　Dim BugWeb

　　Dim View

　　Dim URL



　　Set BugWeb = CreateObject("BugWeb.BugBrowserAPI")

　　Set View = BugWeb.CreateDocumentViewObject(BugWeb.ActiveView)

　　URL = BugWeb.EncodeToURLString(View.URL)

　　BugWeb.NavigateNew("http://www.excite.co.jp/world/url/?wb_lp=enja-ATL&wb_url=" & URL)



　　Set View = Nothing

　　Set BugWeb = Nothing


				  
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
　　　通常モードに戻る　　┃　　ＩＮＤＥＸ　　┃　　≪前へ　　│　　次へ≫　　　
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　Ｐａｇｅ      11