使用导入时如何避免用户和密码验证？

Question

我试图在mathematica 8上制作网络抓取工具。

  webcrawler[rooturl_, depth_] :=    Flatten[Rest[
     NestList[
      Union[Flatten[
         Thread[# -> 
             Import[#, "Hyperlinks", 
              "ServerAuthentication" -> False ]] & /@ 
          Last /@ #]] &, {"" -> rooturl}, depth]]];

它的运行良好，唯一的问题是，当我有一个用户和密码验证的链接时，弹出一个框，我需要点击取消，有没有办法自动完成？