VB 6中如何发送HTTP请求，并获取返回的字符

Question

VB 6中如何发送HTTP请求，并获取返回的字符我在C#中是这样实现如下:不知道VB是否也能这样实现，高手帮忙
,简单来说，这个函数就是给一个地址，返回一个HTTP地址响应的字符串
private string PostWebRequest(string str)
        {
            string _StrResponse = "";
            try
            {
                HttpWebRequest _WebRequest = (HttpWebRequest)WebRequest.Create("http://ditu.google.cn/maps/geo?output=csv&key=abcdef&q=" + str);
                _WebRequest.Method = "GET";
                WebResponse _WebResponse = _WebRequest.GetResponse();
                StreamReader _ResponseStream = new StreamReader(_WebResponse.GetResponseStream(), System.Text.Encoding.UTF8);
                _StrResponse = _ResponseStream.ReadToEnd();
                _WebResponse.Close();
                _ResponseStream.Close();
            }
            catch (Exception Ex)
            {            }
            textBox1.Text = _StrResponse;
            return _StrResponse;
        }

Answer 1

使用XMLHTTP，代码如下：Option ExplicitPrivate Sub Form_Load()
    Dim bytData() As Byte
    Dim objHTTP As Object
    
    Set objHTTP = CreateObject("MSXML2.XMLHTTP")
    objHTTP.open "GET", "http://www.baidu.com", False
    objHTTP.send
    If objHTTP.Status = 200 Then
        bytData = objHTTP.responseBody
        Debug.Print StrConv(bytData, vbUnicode)
    End If
    Set objHTTP = Nothing
End Sub