如何用VB6.0获取远程txt的内容

Question

假如要编辑一个VB的程序,需要获取一个来自www.123.com/text.txt的内容,然后按照行添加进一个listbox,（一行一个来自www.123.com/text.txt的行内容）我该怎么写这段代码？急救！

Answer 1

Private Sub Form_Load()
Dim a
a = Split(GetBody("http://www.123.com/123.txt"), vbCrLf)
For i = 0 To UBound(a)
List1.AddItem a(i)
Next
End Sub

'============================
'XmlHttp函数
'============================
Function GetBody(ByVal URL$, Optional ByVal Coding$ = "GB2312")
Dim ObjXML
On Error Resume Next
Set ObjXML = CreateObject("Microsoft.XMLHTTP")
With ObjXML
.Open "Get", URL, False, "", ""
.setRequestHeader "If-Modified-Since", "0"
.SEnd
GetBody = .ResponseBody
End With
GetBody = BytesToBstr(GetBody, Coding)
Set ObjXML = Nothing
End Function

Public Function BytesToBstr(strBody, CodeBase)
Dim ObjStream
Set ObjStream = CreateObject("Adodb.Stream")
With ObjStream
.Type = 1
.Mode = 3
.Open
.Write strBody
.Position = 0
.Type = 2
.Charset = CodeBase
BytesToBstr = .ReadText
.Close
End With
Set ObjStream = Nothing
End Function