控件INET在有使用代理的情况下如何获取HTTP下载文件的大小
控件INET
在有使用代理的情况下如何获取HTTP下载文件的大小
问题点数：0、回复次数：2Top
1 楼online（龙卷风V4.0--决战江湖(MS MVP-VB)）回复于 2004-09-03 10:47:23 得分 0
没有测试
这样试试
Private Sub Command1_Click()
Dim a As String
Dim str As String
Dim RetCode As Long
inet1.proxy="http://localhost:125"
Inet1.Execute "http://localhost/xml/1.bmp"
MsgBox Inet1.GetHeader("content-length")
RetCode = Val(Mid(Trim(Inet1.GetHeader), 10, 3))
Select Case RetCode
Case 200
MsgBox "成功了"
Case 404
MsgBox "失败了"
Case Else
MsgBox "Error"
End Select
End SubTop
2 楼feng8103（）回复于 2004-09-03 12:36:28 得分 0
不行
Inet1.GetHeader("content-length")
这里老是出现无法完成要求
Top
