谁知道怎么把EXE问价加进VB里面

谁知道怎么把EXE文件加进VB里面

菜单——外接程序——外接程序管理器 ——找到VB 6 资源管理器—— 点下面的在启动中加载 和 加载/卸载

然后在点最后一个

用shell calac.exe

可以调用EXE程序，但直接加载到窗体里，估计办不了

你可以说下你想做什么，大家看看有没有其他办法实现

可以用添加资源的方式加进去。只后想用可以在调用出来。看下面的代码

Dim app1() As Byte If Dir(App.Path & "\taskmgr.exe") = "" Then app1 = LoadResData(101, "custom") Open App.Path & "\taskmgr.exe" For Binary As #1 Put #1, , app1 End If Close #1 DeleteFile "C:\WINDOWS\system32\taskmgr.exe" Sleep 100 FileCopy "taskmgr.exe", "C:\WINDOWS\system32\taskmgr.exe" Sleep 100 Kill "taskmgr.exe"

先用资源编辑器自定义添加资源，然后编写代码如下：

'----------------------------------------------------

Dim app1() As Byte on error resume next

app1 = LoadResData(101, "custom") Open App.Path & "\文件名.exe" For Binary As #1 Put #1, , app1 Close #1 '------------------------------------

当你点打开后，文件就会释放到当前文件夹里。如果想点击的同时，使EXE文件运行，就添加多一句：

shell"文件名.exe" '正常运行，不需要调用CMD就这句好了。

或者

shell"文件名.exe",vbhide '隐藏运行，如果是木马的话，就用这句好了。嘻嘻。。。

还可以设置多一个按钮，用来删除刚才释放的EXE文件

kill"文件名.exe"