控件INET在有使用代理的情况下如何获取HTTP下载文件的大小

feng8103 2004-09-03 09:59:13
控件INET
在有使用代理的情况下如何获取HTTP下载文件的大小
...全文
108 2 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
feng8103 2004-09-03
  • 打赏
  • 举报
回复
不行
Inet1.GetHeader("content-length")
这里老是出现无法完成要求

online 2004-09-03
  • 打赏
  • 举报
回复
没有测试
这样试试
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 Sub

1,502

社区成员

发帖
与我相关
我的任务
社区描述
VB 网络编程
社区管理员
  • 网络编程
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧