不知道错在什么地方啊，请求解决！

ilike

Dim objstream_r As New Stream
Dim i As Long
Dim file_info(3) As String

With objstream_r
    .Mode = adModeRead
    .Type = adTypeText
    .Charset = "GB2312"
    .Open "URL=http://192.168.1.3/software/file_version.txt"  "显示错误之处
    For i = 0 To 3
        file_info(i) = .ReadText(adReadLine)
        Debug.Print file_info(i)
    Next

End With<IMG>

sgrshh29

这里：    .Mode = adModeRead      
改为：    .Mode = adModeReadWrite      
这里：    .Open "URL=http://192.168.1.3/software/file_version.txt"
改为：    .Open
          .LoadFromFile "URL=http://192.168.1.3/software/file_version.txt"
          .Position=0
试试吧，不过这个URL=http://192.168.1.3/software/file_version.txt好像不存在。用其它的替代测试过了。

ilike

呵呵，谢谢了啊！“URL=http://192.168.1.3/software/file_version.txt”不是不存在，192.168.1.3是内网ip地址！

ilike

很感谢你，不过程序好像还有问题！晕……，你有qq吗？我的是415865399