如果读取htt://www.sss.com/test.txt文本的内容?

Question

如果获取htt://www.sss.com/test.txt文本的内容
不用 webbrowser控件
谢谢

Answer 1

用XML来实现,看看我的博客里有范例：
http://blog.csdn.net/SupermanKing/archive/2008/10/16/3082860.aspx

Answer 2

整个过程其实很简单
Set XMLObject = CreateObject("Microsoft.XMLHTTP")   '创建对象
XMLObject.Open "GET", "http://www.sss.com/test.txt", False   '指定用GET方式提交HTTP头
XMLObject.setRequestHeader "CONTENT-TYPE", "application/x-www-form-urlencoded"   '向HTTP头添加信息
SendStr=""
XMLObject.send SendStr    '开始发送数据HTML = XMLObject.responseText  '取得返回的文本
我一楼给你的范例看起来好像过程比较多，但是主要是因为读取的是网页代码，而且目标网页还是UTF-8编码的，
所以还要进行UTF-8编码的转换,如果只是普通的文本的话用responseText就可以读出内容了，如果包含中文或
目标编码不是GB2312，最好用responseBody读出字节流(可以返回到字节数组中),然后将数组进行转换或处理
一下。如   Dim ReturnText As String, ReturnByte() As Byte   ...   XMLObject.send SendStr    '开始发送数据
   ReturnByte = XMLObject.responseBody   '读出字节流到ReturnByte这个字节数组中
   ReturnText = StrConv(ReturnByte, vbUnicode)   '将字节流转换为文本，这样支持中文了   ...