释放删除EXE文

 程序完整代码如下：
//

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

http://download.youkuaiyun.com/source/1313676