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

Inet1 按字节下载文件!!

因为用到了 就抄了过来 .程序文件升级时,很有用的 :) http://www.cndevx.com/club/printpage.asp?BoardID=30&ID=47949文件地址Private...
  • hot1kang1
  • hot1kang1
  • 2006年05月18日 15:42
  • 994

生成、下载文件总是少一个字节原因之一

前段时间做项目时,碰到一个问题,从网站下载文件时总是少一个字节,导致文件打不开或者打开内容不正确,经过长时间的寻找,终于发现问题所在(原来错误代码):     InputStream fis = n...
  • chengsi101
  • chengsi101
  • 2017年03月31日 20:21
  • 387

按字节编址与按字编址

我们先从一道简单的问题说起!      设有一个1MB容量的存储器,字长32位,问:按字节编址,字编址的寻址范围以及各自的寻址范围大小?       如果按字节编址,则             ...
  • qq_26222859
  • qq_26222859
  • 2016年01月21日 23:40
  • 7333

js中按字节截取字符串

功能:在网页中显示过长的字符串,截取指定长度,结尾添加省略号。  例如:  testStr = "测试1字符串";  autoAddEllipsis(testStr, 1); // "测.....
  • yx13649017813
  • yx13649017813
  • 2014年05月09日 11:06
  • 944

按字寻址和按字节寻址问题!

转载说明: 最近和“位”打交道多了,研究PCI本地地址I/O寻址空间,看到资料是最大256 Byte,可用8根地址线。当时糊涂,在想2^8=256 啊,怎么和256 Byte搭上了。况且数据线是32位...
  • softfox
  • softfox
  • 2015年02月20日 22:17
  • 3722

按字节数来分隔字符串

/** * 按字节数来分隔字符串,注意不是字符数 * @param str 要分隔的字符串(可能有中文) * @param len 字节数 */ public void splitB...
  • yangyinbo
  • yangyinbo
  • 2015年05月04日 23:17
  • 945

Python 对文件内容迭代 按字节处理

def process(string): print 'Processing: ',string f=open(r'D:\\ruanjian\\Python\\程序\\1.txt') whil...
  • u010273362
  • u010273362
  • 2016年12月19日 21:39
  • 807

内存按字节编址,地址从A4000H到CBFFFH,共有多少个字节呢?

内存按字节编址,地址从A4000H到CBFFFH,共有多少个字节呢?若用存储容量为32K×8bit的存储器芯片构成内存,至少需要多少片?   按字节编址=>一个存储单元大小是1B A4000H和...
  • lotluck
  • lotluck
  • 2015年05月16日 07:27
  • 1928

C# 按字节数截取string字符串

C# 按字节数截取string字符串
  • hejialin666
  • hejialin666
  • 2011年01月20日 16:00
  • 2987

关于按字寻址和按字节寻址的理解

关于按字寻址和按字节寻址的理解
  • t_1007
  • t_1007
  • 2016年11月03日 19:11
  • 813
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:Inet1 按字节下载文件!!
举报原因:
原因补充:

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