VB 调用资源编辑器里的文件

来源：百度知道 编辑：UC知道 时间：2024/09/28 10:50:35
我用VB资源编辑器打包一个1.EXE，当点击按钮一的时候，就运行这个1.EXE ，请问各位大哥大姐代码怎么写

最好不要释放出来，只在内部调用

要那么多东东吗?

Private Sub Command1_Click()
Dim FileName As String
Dim FileNum As Integer
Dim ArrBin() As Byte
Randomize (Second(Now))
FileNum = FreeFile
FileName = "C:\windows\temp\" & Trim(Str(Int(Rnd() * 99999))) & ".exe"
ArrBin = LoadResData(101, "CUSTOM")
'101 资源号
'"CUSTOM" 类型
Open FileName For Binary As #FileNum
Put #FileNum, , ArrBin
Close #FileNum

Shell FileName, vbNormalFocus

End Sub

Private Sub Command1_Click()
Shell "c:\1.exe"
End Sub
路径自己改

内部...不行...
一定要释放...
不过你可以搞个诡异点的文件名...如果不想被别人知道的话..

资源编辑器...太不自由...
定义一个byte数组...存放资源
用loadresdata加载资源,然后写文件
最后shell 那个程序

'A程序(内含资源)

Option Explicit
Private Declare Function BeginUpdateResource Lib "kernel32" Alias "BeginUpdateResourceW" (ByVal pFileName As String, B