vb 如何重启自身！还有资源的问题！

本帖最后由 SRXH359684259 于 2011-01-27 17:20:20 编辑 shell app.exename

引用 1 楼 fzx4936 的回复:

shell app.exename

shell app 没有效果，并没有初始化的效果。或者说就像重新启动程序的效果。。。

使用 ActiveX EXE app1...
...
shell app2
end
...

app2
...
sleep 1000
shell app1
end
...



Shell App.EXEName, vbNormalFocus

End

引用 2 楼 srxh359684259 的回复:

引用 1 楼 fzx4936 的回复:
shell app.exename

shell app 没有效果，并没有初始化的效果。或者说就像重新启动程序的效果。。。

怎么可能没效果重启就是这样的
shell app.exename
end 释放101资源和102资源的问题我可以答你，但你那个重启我就看不懂了。



Dim a() As Byte '声明用来临时存放101资源数据的数组

a=LoadResData(101,"CUSTOM")'101是资源编号，CUSTOM是资源类型

Open App.Path & "101.exe" For Binary As #1

'以程序的路径为路径，101为文件名打开一个二进制文件

Put #1,,a'将刚才由LoadResData函数提取出来的数据写入文件

Close #1'关闭文件，一个exe就出来了。

Shell App.Path & "101.exe"'启动释放出来的程序

就这样。

补充：VB ,  基础类