如何用控件（如webbrowser)取得CSDN论坛右下角的“最新：300篇 1 2 3 4 5 6 7 8 9 10 ”的各个页码的网址？

Question

<tr align="right" bgcolor="#ffffff"><td colspan="2">最新：300篇&nbsp;&nbsp; <a href='ForumList.asp?typenum=1&amp;Roomid=5101&amp;whichpage=1'>1</a>&nbsp; <a href='ForumList.asp?typenum=1&amp;Roomid=5101&amp;whichpage=2'>2</a>&nbsp; <a href='ForumList.asp?typenum=1&amp;Roomid=5101&amp;whichpage=3'>3</a>&nbsp; <font color=red>4</font>&nbsp; <a href='ForumList.asp?typenum=1&amp;Roomid=5101&amp;whichpage=5'>5</a>&nbsp; <a href='ForumList.asp?typenum=1&amp;Roomid=5101&amp;whichpage=6'>6</a>&nbsp; <a href='ForumList.asp?typenum=1&amp;Roomid=5101&amp;whichpage=7'>7</a>&nbsp; <a href='ForumList.asp?typenum=1&amp;Roomid=5101&amp;whichpage=8'>8</a>&nbsp; <a href='ForumList.asp?typenum=1&amp;Roomid=5101&amp;whichpage=9'>9</a>&nbsp; <a href='ForumList.asp?typenum=1&amp;Roomid=5101&amp;whichpage=10'>10</a>&nbsp;&nbsp;</td></tr>
</table>就是上面的那些网址，如何取得？
谢谢先！

Answer 1

我用winsock取得过。winsock构造一个http请求，获得返回的html源代码，从中查找关键字，比如这里就可以查找'ForumList.asp?'，然后在判断后面结束的地方就可以提取出来了。

Answer 2

用Webbrowser.Document对象吧
Dim O As Object
For Each O In Webbrowser.Document.All
  If Lcase(O.TagName)="a" Then
    Select Case O.href
...

Answer 3

不是吧！！XML里面怎么有<a href>呢？CSDN标题列表是HTML，每个帖子都是XML。

Answer 4

再up一下
兄弟们，帮up一下哦

Answer 5

你想取得这些吗？？其实csdn是有接口的，在这里2、帖子列表索引：
http://expert.csdn.net/expert/Rooms/small/5101/Forum_5101_3.xml
上面的3表示精华
改为1表示最新
改为2表示已经结帖
取得这个xml文件分析就可以了~~
5101是分类的编号~~