从资源中提取可执行文件并运行它

Question

Option Explicit
'在外接程序中调入VB资源文件编辑器
'单击加入自定义文件图标，选择要加入的程序，注意程序不要大于64k（否则你拆开你程序，分别加入，然后在合成）
Private Sub Command1_Click()
   Dim bytData() As Byte
   bytData = LoadResData(101, "custom")
   Open App.Path + "\aaa.exe" For Binary As #1
     Put #1, , bytData
   Close #1
   
   Shell App.Path + "\aaa.exe", vbNormalFocus
   
End Sub－－－－－－－
源码下载地址：
http://blog.csdn.net/yefanqiu
中的【叶帆程序】－从资源提取文件