VB 调用资源文件例子(打包与释放)

Option Explicit Dim AppEXE() As Byte Dim FileNum As Long Private Sub Test() '将自定义资源中101号资源读入数组 AppEXE = LoadResData(101, "CUSTOM") FileNum = FreeFile '以二进制方式写（生成）temp1.exe到当前目录 Open "C:\Test.exe" For Binary As #FileNum Put #1, , AppEXE Close #FileNum '运行Test.exe Shell "C:\Test.exe" End Sub