辞書サイト等の検索結果と被検索ページを並べて表示するスクリプトの作成方法と解説
ここでは「辞書サイト等の検索結果と被検索ページを並べて表示する」で紹介したスクリプトの作成方法を解説します。
（目次）
１．スクリプトの記録
先ず、以下の手順で一連の操作をスクリプトに記録します。
（１）スクリプトパネルを表示してパネル内のツールバーの［スクリプトの記録］ボタンをクリックして選択（チェック ）状態にします。
（２）解説「辞書サイトの検索結果と被検索ページを並べて表示する」の「３．準備-2（ウィンドウの配置）」 の項目の一連の動作を実行します。
（３）再度スクリプトパネルの［スクリプトの記録］ボタンをクリックしてスクリプトの記録を終了します。
すると以下のようなスクリプトがスクリプトパネルの［記録されたスクリプト］欄に記録されます。 左側の括弧内の数字は行番号を表します。実際には表示されません。
（１） Dim Window1
（２） Set Window1 = NavigateNew("http://www2.alc.co.jp/ejr/index.php?word_in=test&word_in2=reedeirrf&word_in3=zJPa7DCxJ15687987t", "jisyo")
（３） Window1.SetFocus
（４） Window1.FloatingMode = 3
（５） Window1.ManualDock 4, 3
（６） DockRightWidth = 264
なおスクリプト実行時の状態によって上の例とは保存されたスクリプトが若干異なることもあります。
最後に、記録された内容を適当なファイルに保存してください。拡張子は.sbvです。［実行されるスクリプト］欄に内容をコピーしてからスクリプトパネル内の［スクリプトをファイルに保存］ボタンで保存することもできます。
２．保存されたスクリプトの解説
以下に、スクリプトの各行が何を行っているかを説明します。
（１） Dim Window1
Windows1という名前の変数を宣言しています。
（２） Set Window1 =
NavigateNew("http://www2.alc.co.jp/ejr/index.php?word_in=test&word_in2=reedeirrf&word_in3=zJPa7DCxJ15687987t", "jisyo")
ScriptBrowserオブジェクトのNavigateNewメソッドを呼び出して、辞書の検索結果を表示してます。変数Window1に検索結果ページ
を表示しているDocumentWindowオブジェクトが代入（保存）されます。これ以降、変数Window1を介して辞書の検索結果のページにアクセスすることができます。
（３） Window1.SetFocus
Window1のページをアクティブ（タブバーのタブを選択した状態）にします。
（４） Window1.FloatingMode = 3
DocumentWindowオブジェクトのFloatingModeプロパティを設定しています。Window1のフローティングモードを３（フローティング状態）に設定します。
（６） Window1.ManualDock 4, 3
Window1をScriptBrowserK本体のウィンドウの右側にドッキングします。ManualDockの引数についてはDocumentWindow
オブジェクトの解説を参照して下さい。
（７） DockRightWidth = 264
ScriptBrowser オブジェクトのDockRightWidthに代入することによって、右側のドッキング領域の幅を設定しています。この値（上の例では264）を変更することで、右側のドッキング領域の幅
（今回の例では検索結果ページの幅）を変更することができます。
３．スクリプトの修正（ブラッシュアップ）
保存されたスクリプトをそのまま使用することもできますが、無駄な部分を省いてより洗練されたスクリプトに修正してみます。
まず、 （３）行の最初の引数を"about:blank"に変更します。"about:blank"は空のページを表します。こうすることで、最初に辞書の検索結果のページが表示されなくなりスクリプトの動作が速くなります。
次の（４）行は今回のスクリプトには必要ない（無くても動作する）ので削除します。
上でも説明しましたが、（７）行で代入する数字を変更することで右側のドッキング領域の幅を変更することができます。
以上です。
2007.01.26