Question

VB中如何把资源器的文件释放出来，并且运行

VB中如何把资源器的文件释放出来，并且允许。。如把1.bat载入资源编辑器，为101.如何点击command1运行1.bat

Answer 1

Dim bytdata() As Byte
intFile = FreeFile()
bytdata = LoadResData(101, "CUSTOM")
'101 为资源号，custom为资源类型
strtmpfile = "b.exe"
'临时文件的路径与文件名
Open strtmpfile For Binary Access Write As #intFile
Put #intFile, , bytdata
Close (intFile)

Call Shell("b.exe", 1)