我要从服务器上下载一个文件！！请给代码

Question

我的论坛，经常备份数据的，数据备份在一个固定目录下但我经常需要登陆服务器后下载，好麻烦我想知道用VB怎么做，直接对这个文件进行下载当然我知道用户名和密码的,给代码最好

Answer 1

Private Sub Command1_Click()
    
       Dim b() As Byte
       Dim strURL As String       strURL = "http://www.csdn.net/images/homeimage/csdn.gif"       b() = Inet1.OpenURL(strURL, icByteArray)       Open "c:\csdn.gif" For Binary Access _
       Write As #1
       Put #1, , b()
       Close #1
End Sub

Answer 2

添加Microsoft Internet Transfer Control控件Inet1即为此控件的名称