Inet1 按字节下载文件!!

转载 2006年06月05日 14:57:00

因为用到了 就抄了过来 .

程序文件升级时,很有用的 :)

 

http://www.cndevx.com/club/printpage.asp?BoardID=30&ID=47949

文件地址

Private Sub Command1_Click()
Inet1.Execute , "Get"
End Sub

Private Sub Form_Load()
Inet1.URL = http://1122.122.221/aaa.exe

End Sub

Private Sub Form_Unload(Cancel As Integer)
Inet1.Execute , "QUIT"
End Sub

Private Sub Inet1_StateChanged(ByVal State As Integer)
    Dim aa As Variant
    Dim vtData()   As Byte   '数据变量。

    Dim TotalLength As Variant
    If State = 12 Then
   
        TotalLength = Val(Inet1.GetHeader("Content-length"))
        psb.Max = TotalLength
        Open "d:/cat.exe" For Binary Access Write As #1
        vtData = Inet1.GetChunk(1024, icByteArray)
        Do While UBound(vtData) > 0
        DoEvents
            Put #1, , vtData
            If (psb.Value + 1024) > psb.Max Then
                psb.Value = psb.Max
            Else
                            
                psb.Value = psb.Value + 1024
            End If
            vtData = Inet1.GetChunk(1024, icByteArray)
                            
        Loop
        Put #1, , vtData
        Close #1
        MsgBox "下载完毕"
    End If

End Sub

相关文章推荐

JAVA字节码文件操作技巧(1)

http://developer.51cto.com  2010-09-25 10:20  admin  qa.taobao.com  我要评论(0) 本文将介绍与操作Java字节码有关的基本知识和...
  • oyx2007
  • oyx2007
  • 2011年01月10日 11:49
  • 285

搜索引擎会通过日志文件把用户每次检索使用的所有检索串都记录下来,每个查询串的长度为1-255字节。

说明:本文分为三部分内容,     第一部分为一道百度面试题Top K算法的详解;第二部分为关于Hash表算法的详细阐述;第三部分为打造一个最快的Hash表算法。 ----------------...

Java文件字节码内容总结1

1. 特点:     java字节码文件(即类文件)是编译后生成的,特点1:就是java的类文件文件不像C文件编译时经过链接阶段,所以java的类文件不包含对象在内存中的状态。特点2:java的字节...

实验 5.2.8-3 对文件的任意部分加锁 1. 用 fcntl()对文件进行锁操作。 2. 完善课件中的示例程序,给出程序运行结果及分析。 给b.txt中的前10个字节加写锁

实验 5.2.8-3 对文件的任意部分加锁 1. 用 fcntl()对文件进行锁操作。 2. 完善课件中的示例程序,给出程序运行结果及分析。 给b.txt中的前10个字节加写锁...

vb通过inet控件实现FTP文件上传

来自:http://hi.baidu.com/jiangdbna/item/b8177de997933b275a7cfb1e Private Sub YdFileUp(sUpfile...
  • hlzs_01
  • hlzs_01
  • 2013年05月13日 16:41
  • 636

arpa/inet.h所引起的Segmentation fault及网络编程常见的头文件

最近在学习Linux网络编程方面的知识,感觉还是有些困难。主要是对协议过程的理解,还有socket的API的理解不够深刻。今天复习编写了一个TCP的服务端和客户端的程序实现client.c从命令行参数...

实验 4.2.4 实现文件复制 1. 用文件流的 I/O 函数实现一个文件拷贝程序,将一个文件拷贝到另一个文件。 2. 分别用字节读,行读,任意大小读的方式。

实验 4.2.4 实现文件复制 1. 用文件流的 I/O 函数实现一个文件拷贝程序,将一个文件拷贝到另一个文件。 2. 分别用字节读,行读,任意大小读的方式。...

Response对象、HttpServletResponse简介、处理字节编码问题、实现动态文件下载

Web服务器收到客户端的http请求,会针对每一次请求,分别创建一个用于代表请求的request对象、和代表响应的response对象。 request和response对象即然代表请求和响应,...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:Inet1 按字节下载文件!!
举报原因:
原因补充:

(最多只允许输入30个字)