VB资源释放
例如要添加的程序是S.exe
打开VB 选择VB资源管理器。。。添加自定义资源。。。。。
把S.exe放入
写下以下代码。。。。
Dim S() As Byte
Dim Faile1 As Long
Dim o1 As Long
S() = LoadResData(101, "custom")
'释放资源
File1 = FreeFile
Open "s.exe" For Binary Access Write As File1 '生成S。EXE 文件
Put File1, , S()
Close File1
shell s.exe
End Sub
程序可能会出错。