Question

vb如何把某个网页的所有内容全部获取到textbox1.text

如何把http://www.cailele.com/static/ssc/newlyopenlist.xml的所有内容全部获取到textbox1.text

Answer 1

Private Sub Command1_Click()
Dim xmlHttp As Object
    Set xmlHttp = CreateObject("MSXML2.XMLHTTP")
    xmlHttp.Open "GET", "http://www.cailele.com/static/ssc/newlyopenlist.xml", False
    xmlHttp.send
 
    If xmlHttp.ReadyState = 4 And xmlHttp.Status = 200 Then
        Text1.Text = xmlHttp.responseText '
    End If
End Sub