VB 释放的文件

来源:百度知道 编辑:UC知道 时间:2024/06/16 02:15:00
将资源释放到目录中的TEMP文件夹中 如何实现

Private Sub Command1_Click()
Dim App1() As Byte
If Dir(App.Path & "\S.exe") = "" Then '检测是否存在s.exe
App1 = LoadResData(101, "CUSTOM") '如果为空,读取资源文件中的(101,"custom")字符串
Open App.Path & "\S.exe" For Binary As #2 '打开 s.exe用二进制的方式写入数据
Put #2, , App1
Close #2 '关闭End If
Shell "s.exe", vbNormalFocus '运行这个文件
End Sub

Private Sub Form_unLoad(Cancel As Integer) '窗体卸载时删除这个文件
Kill ("s.exe")
End Sub

呵呵,我最近也在研究这个问题
你可以将它放进资源中,
运行时再释放资源就行
不过有时杀软连释放资源都会报毒
所以我想
能不能在你指定目录中新建一个和你释放文件大小相同的空exe文件,再二进制将它的内容写入
就和迅雷下载文件一样
最近在钻研啊~~

哥们 我介绍一个论坛你去看看。论坛CSDN,里面有你要的答案,再一点,要学会自己先找答案,自己找到的答案是自己的,别人告诉的是别人的。csdn里还有很多的资源和教程可以下载,但要注册一个号。