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


 
目前有0条回应
Comment
Trackback
你目前的身份是游客,请输入昵称和电邮!