本文介绍了一段使用VBA编写的代码，该代码可以将自定义资源中的101号资源读取到数组中，并将其生成为一个名为temp1.exe的文件。随后，这段代码还会运行生成的exe文件。涉及的关键步骤包括使用LoadResData函数加载资源、通过FreeFile获取可用文件号、使用Open语句以二进制方式创建文件、利用Put语句将数据写入文件以及通过Shell函数运行文件。
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
扫一扫
1743
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
