vb webserver,该怎么处理

vb webserver
请问以下代码为什么下载url1（url1中是图是不断变化的）中的图是总是会有时重复,有什么办法可以改进，谢谢
Private   Sub   NewProcess(Url1,   users,   id)
Web.Navigate   Url1
Sleep   (1000)
Web.Refresh
Sleep   (2000)

filepath   =   "e:\aa_files\showimg_pda.jpg "
R   =   URLDownloadToFile(0,   Url1,   filepath,   0,   0)
If   R   =   0   Then
  FileCopy   "e:\aa_files\showimg_pda.jpg ",   "E:\waps\ "   &   users   &   "\photo "   &   Photos(id)   &   ".jpg "
End   If
End   Sub

[解决办法]
可以用其他方式下载。
以前写的一个下载图片并更新桌面背景的代码。。。里面下载部分很简单。

'测试代码前，请在窗体中放入一个 PicBox 及一个Microsoft Internet Transfer Control，名称默认
Option Explicit

Private Declare Function SystemParametersInfo Lib "user32 " _
Alias "SystemParametersInfoA " _
(ByVal uAction As Long, ByVal uParam As Long, _
ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long

Const SPI_SETDESKWALLPAPER = 20
Const SPIF_UPDATEINIFILE = &H1
Const SPIF_SENDWININICHANGE = &H2


Private 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 #1
'显示图片,并转换存储格式（虽然用的还是原来的名字，但实际上。。。。。变BMP了）
Picture1.Picture = LoadPicture(TmpImg)
SavePicture Picture1.Picture, TmpImg

Call SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, TmpImg, SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE)
End Sub

Private Sub Form_Load()
SetDImg "http://zi.csdn.net/468_61.jpg ", "c:\mtemp.gif "
End Sub