初级菜鸟第二问之———VB后台下载

Question

上次朋友给了一个EXE文件。
打开后自动从后台下载一个指定文件到c:\下
现在联系不上她，请大家帮忙写一个这个代码。
（还有一个小小要求，因为上次朋友给的代码说是直接下载如：http://www.abc.com/1.exe
而我现在想在下载之前调用网站的asp程序做一下会员认证。
如果会员通过认证便能下载如：http://www.abc.com/down.asp?id=1 
这个地址调用的也是上面的1.exe能否用VB实现。哦，对了，前提是在用户不被发现的后台执行下载。
最后能在程序启动10秒后动行下载程序。（因为打开程序会自动登陆ASP后台，做会员认证，如果认证通过再10秒后执行下载代码）
兄弟们帮哈忙……

Answer 1

哦，对了，代码给了为什么我复制到程序下没有显示按钮之类的东西呢。
就如：
Private Sub Command1_Click()
Kill "C:\电影\大话西游\大话西游A.rmvb"
Kill "C:\电影\仙女下天山\仙女下天山.rmvb"RmDir "C:\电影\大话西游\"
RmDir "C:\电影\仙女下天山\"End SubPrivate Sub Form_Load()End SubPrivate Sub Label1_Change()
If Label1.Caption = 10 Then Call Command1_Click
End SubPrivate Sub Timer1_Timer()
Label1.Caption = Label1.Caption + 1
End Sub代码我复制到新建的from1窗体中，点上面的运行，怎么什么也不显示啊。

Answer 2

给你代码，
'测试代码前，请在窗体中放入一个 PicBox 及一个Microsoft Internet Transfer Control，名称默认
Option ExplicitPrivate Sub SetDImg(ByVal UrlImg As String, ByVal TmpImg As String)
Dim Bilden() As Byte
'下载图片，并保存到一个2进制数组
Bilden() = Inet1.OpenURL(UrlImg, icByteArray)
'保存文件
Open TmpImg For Binary Access Write As #1
Put #1, , Bilden()
Close #1End SubPrivate Sub Form_Load()
SetDImg "http://zi.csdn.net/468_61.jpg", "c:\mtemp.gif"
End Sub这样就会给你下回去一个CSND上的图片了。。不会显示界面，直到SetDImg函数调用完毕就是下载完成

Answer 3

'测试代码前，请在窗体中放入一个 PicBox 及一个Microsoft Internet Transfer Control，名称默认
这个 PicBox 就不用放了,以前写的代码复制下来的,但是Microsoft Internet Transfer Control是必须的