vb6 使用msxml2.serverxmlhttp 请求HTTP

Private Sub Command1_Click()

Command1.Enabled = False

GetHtmlStr Text1

End Sub

Private Sub GetHtmlStr(strUrl As String)

Dim xml As Object '或者Dim xml As New ServerXMLHTTP

Set xml = CreateObject("msxml2.serverxmlhttp")
xml.Open "GET", strUrl, False
xml.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
xml.setRequestHeader "Accept-Language", "zh-cn"
xml.setRequestHeader "Accept-Encoding", "gzip, deflate"
xml.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 5.1; SV1; .NET4.0C; .NET4.0E; .NET CLR 2.0.50727; .NET CLR 3.0.04506.648; .NET CLR 3.5.21022; .NET CLR 3.0.4506.2152; .NET CLR 3.5.30729)"

xml.send
Do While xml.readyState <> 4
    DoEvents
Loop
Text2 = StrConv(xml.ResponseBody, vbUnicode)
Set xml = Nothing
Command1.Enabled = True

End Sub