_ie = IE.new() IE.show( _ie ) IE.jump( _ie, "http://cakeforge.org/frs/download.php/730/cake_1.3-dev.zip/donation=false" ) // ファイルへのリンク IE.click( _ie, _ie.document.getElementsByTagName("a").Item(2) ) // ダウンロードダイアログを処理 IE.save_downloaded_file( _ie ) procedure wait_for_dialog( dialog_title, timeout_sec ) interval_sec = 0.2 total_wait_sec = 0 loop_flag = True while loop_flag // ダイアログは現れたか ifb getid( dialog_title, "#32770", -1 ) > -1 then loop_flag = false else sleep( interval_sec ) total_wait_sec = total_wait_sec + interval_sec endif // タイムアウトか ifb total_wait_sec > timeout_sec then msgbox( "dialog '" + dialog_title + "' did not appear." ) exitexit endif wend fend