VB高手帮忙改一下，谢谢了。 - VB6论坛

已结贴√ 问题点数：20 回复次数：3

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