VB 怎样制作下载软件？要代码，最好不要跟网上的一样

代码啊…………我倒是有一个，但是忘记放在硬盘的什么地方了，也没关系，我给你说个方法
用inet控件，下面我给你个例子，基本上什么文件都能下，
Private Sub Command1_Click()
Dim File2() As Byte
File2() = Inet1.OpenURL("https://gss0.bdstatic.com/70cFsjip0QIZ8tyhnq/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了。