怎么取得WebBrowser控件中加载的网页中由脚本生成的链接

如何取得WebBrowser控件中加载的网页中由脚本生成的链接？
比如说这样一个网页：
http://www.llzjw.cn/bd/france.htm
现在在窗体中放一个WebBrowser中加载它：

Private Sub Form_Load()
  WebBrowser1.navigate "http://www.llzjw.cn/bd/france.htm"
End Sub

加载后可以看到，网页上有一些链接是由JavaScript生成的。现在我想通过程序取得这些链接的URL，不知有什么办法？

用下面的办法也无法提取这些用JavaScript脚本生成的链接的URL
Private Sub Command1_Click()
  Dim Doc As MSHTML.HTMLDocument
  Dim A As MSHTML.HTMLAnchorElement
  Set Doc = WebBrowser1.document
  Dim Acollection As IHTMLElementCollection
  Set Acollection = Doc.All.tags("a")
  For i = 0 To Acollection.length - 1
  List1.AddItem Acollection.Item(i).toString
  Next
End Sub

谁能解决这个问题？


[解决办法]
google广告里的连接？
[解决办法]
你对链接的定义是什么？
<A>元素的枚举上面已经说了，不过可能要枚举所有框架才能得到页面上全部链接。