VB高手帮忙改一下，谢谢了。
本人想提取http://www.网页中以下内容，提取后链接不好用了，高手帮忙改一下。谢谢了。·甘肃3000万元投资啤酒花生产加工
2010-4-20
·4元中档啤酒引领郑州夜市消费市场
2010-4-20
。
。
。
·泰山黑麦黑啤酒受热捧
2010-4-9
·青岛四方啤酒民俗文化街竣工
2010-4-9
·大富豪啤酒将在开发区新建工厂
Private Sub Command1_Click()
Dim s As String
With CreateObject("Msxml2.XMLHTTP")
.Open "GET", "http://www., False
.Send
s = .responsetext
s = Split(Split(s, "<div id=""ArticleList1_Panel1"">", -1, 1)(1), "尾页", -1, 1)(0) & "</a> </div>"
End With
Open "c:\temp.htm" For Output As #1
Print #1, "<HTML>" & s & "</html>"
Close #1
WebBrowser1.Navigate "c:\temp.htm", False
End Sub
