在VS。NET，选择“添加引用”，找到MSXML3.0组件，添加进来
并引入命名空间
代码如下
Dim myxmlhttp As MSXML2.XMLHTTP = New MSXML2.XMLHTTPClass
url = "http://www.7to.net"
myxmlhttp.open("GET", url, False, "", "")
myxmlhttp.send("")
TextBox1.Text = myxmlhttp.responseText