Mathematica 8 で Web クローラーを作成しようとしています。
webcrawler[rooturl_, depth_] := Flatten[Rest[
NestList[
Union[Flatten[
Thread[# ->
Import[#, "Hyperlinks",
"ServerAuthentication" -> False ]] & /@
Last /@ #]] &, {"" -> rooturl}, depth]]];
うまく機能していますが、唯一の問題は、ユーザーとパスワード認証のリンクがあるときはいつでも、ボックスがポップアップし、キャンセルをクリックする必要があることです。それを自動的に行う方法はありますか?