※本ソフトの公開・サポートは終了しました。
ホーム > スクリプト作成に関する話題 >ファイル名を指定してファイルをダウンロードするサンプルスクリプト

ファイル名を指定してファイルをダウンロードするサンプルスクリプト

ScriptBrowserKのダウンロードページを開いて、"c:\Download.bin"というファイル名でファイルをダウンロードするスクリプトの例です。

ファイルのダウンロード時に情報バーに警告が表示される設定の場合は上手く動作しません。インターネットオプションのセキュリティのレベルのカスタマイズで［ダウンロード］-［ファイルのダウンロード時に自動的にダイアログを表示］を有効にして実行してください。

ダウンロードするサイトが信頼のおけるサイトであれば、そのサイトを［信頼済みサイト］に加えて信頼済みサイトゾーンのセキュリティを変更するのがお勧めです。

以下の環境で動作確認を行いました。
・Windows Vista + Internet Explorer 7
・Windows XP SP2 + Internet Explorer 7
・Windows XP SP2 + Internet Explorer 6 SP2
・Windows 98 + Internet Explorer 5.5 SP2 

' ScriptBrowserKのダウンロードページを開きます。
set docwin = NavigateNew("http://www.scriptbrowserk.com/sbkDownload.html")
docwin.SetFocus

' ダウンロードのリンクをクリックします。
AnchorOfCaption(ActiveDocument.Body, "［ダウンロード］", 0).Click

' ファイルのダウンロードの確認画面が表示さるのを待って "保存(&S)" ボタンをクリックします。
' IE5.5 の場合は "保存(&S)" を "OK" に変える必要があります
ClickDialogItem "ファイルのダウンロード", "保存(&S)", TRUE

' ファイル名を入力する画面が表示されるまで待機します。
Sleep(1000)

' "c:\Download.bin"という文字列をファイル名欄に入力します。
SendKeys("c:\Download.bin")

' "保存(&S)" ボタンをクリックします。
ClickDialogItem "名前を付けて保存", "保存(&S)", TRUE

以上です。

（2007/07/18）

Copyright (c) 2011 Akiyoshi Kozuka (http://www.scriptbrowserk.com/)