VB怎样制作下载软件

【#文档大全网# 导语】以下是®文档大全网的小编为您整理的《VB怎样制作下载软件》，欢迎阅读！

代码啊…………我倒是有一个，但是忘记放在硬盘的什么地方了，也没关系，我给你说个方法

用inet控件，下面我给你个例子，基本上什么文件都能下， Private Sub Command1_Click()

Dim File2() As Byte

File2() = Inet1.OpenURL("http://img.baidu.com/img/logo-zhidao.gif", icByteArray) ' Download file

Open "d:\1.gif" For Binary Access Write As #1 ' Choose local path Put #1, , File2()

Close #1 End Sub

需要引用Internet Transfer Control控件上面的代码很简单，直接在vb中新建一个工程，在form1上放一个command1按钮，

然后把代码放到command1按钮的单击事件里面就ok了

上面的代码是下载百度知道的logo的。绝对不是病毒，如果不放心的话自己改网址也可以。^-^

"d:\1.gif" 是保存文件的地址，改成自己想保存的地方放j就ok了。

本文来源：https://www.wddqxz.cn/23a5b42cccbff121dd36830e.html