如何用VB实现下载功能
在网上找的很多都弄不来，这个功能是不是很难实现啊？
网上现成的程序很多，都可以实现的
一个用Inet控件下载的函数,第一个参数是下载地址,第二个参数是保存路径.
VB code:
Private Function downFile(ByVal Url As String, ByVal savefolder As String) As String
Dim bytes() As Byte
' 把文件的字节读到一个Byte数组中
' On Error Resume Next
bytes() = Inet1.OpenURL(Url, icByteArray)
If Err.Number = 35764 Then Exit Function
'得出文件名
Dim tempS
tempS = Split(Url, "/")
Dim fname As String
fname = tempS(UBound(tempS))
fname = App.Path & "\" & savefolder & "\" & fname
Open fname For Binary Access Write As #1
Put #1, , bytes()
Close #1
downFile = fname
End Function
老张您好，我不知道怎么弄啊，控件弄来了，可我把代码放在按钮中，也不能实现啊，都怪我基础太差了，能不能辛苦您再稍微解释一下啊？
辛苦您了啦。。。
使用WinSocket控件，实现多线程的下载方式
老张的代码很精干
urldownloadfile
这个API函数不知道有没有拼错
http://www.m5home.com/blog/article.asp?id=395
啊哈,图片打开防盗链了,忘了......
Option Explicit
Private Declare Function URLDownloadToFile Lib "url
相关问答：
希望大家能够帮我下.感谢了..
源码传在大米盘 VB6 的源码 http://www.damipan.com/file/3wNoKLW.html
转为VB.NET源码.
小弟完全是新手 不懂的说.麻烦各位帮忙一下
我的EMAIL是:4452 ......
在vb这编程里似乎有很多的东西是相联系的，为什么有些人对vb的编程摸不到头脑啊！并且有些事很容易的，但是却把它们的代码变成复杂，也去想一些不能实现的东西啊！
没分了，楼主多来点分！
来接点分
......
各位大虾：
我是刚学VB，现在想用VB调用一个动态库，动态库里面有很多函数。我知道使用VB调用动态库调用函数，需要将要调用的函数在程序中声明即可，但是里面有很多函数，不会每一个函数都要声明吧。请� ......
第一次接触CrystalReport
急寻找Vb.net Access 通过查询出的数据输出到CrystalReport的例子.
有的朋友麻烦发来学习.多谢!
跟你的要求差不多，参考一下：
http://topic.csdn.net/u/20090823/21/87af02d3-f4ca-480 ......
Private Sub Form_Load()
recs = Adodc1.Recordset.RecordCount '求当前记录数
If recs > 0 Then '已有考生
Adodc1.Recordset.MoveLast '移到最后一条记录
num = V ......
