除了用资源文件的方法，还可以用winrar把你要启动的那个程序做成自解压的exe文件，设为解压后自动运行你的程序，而且整个解压和启动的过程都可以设为静默的（或者说是隐蔽的）。追问
我要的是能集成我电脑里面的一个exe文件，然后把我制作的程序放到别人的电脑上，别人的电脑上没有我的exe文件，但是能启动。意思就是把我的exe文件放到我要制作的程序之中
追答那你可以把A程序和B程序都放入同一个自解压文件中（假定是C程序），解压后自动运行A程序，然后A程序再用shell调用B程序。你可以把C程序的图标做成跟A程序一样的（Winrar是有这个功能的），这样用户虽然点击的是C程序，但他会认为自己运行的是A程序。
这个其实也是程序集成的一种技术。
这个我试过了，能制作成功，但是自动解压后，能解压出原文件，但是打不开，是什么情况。提示系统找不到1.exe
PS：1.exe就是我要启动的程序
Shell App.Path & "\1.exe"
温馨提示：内容为网友见解，仅供参考
第1个回答 2012-09-30
放到资源文件中先写到硬盘，再用SHELL调用
不过一般防火墙都不允许追问
不过一般防火墙都不允许追问
这位兄弟，我也在网上看过了，但是不能用。请问有什么好的方法吗？
追答防火墙都不允许当然不能用，没有好办法，VB让那些烂人糟蹋的都坏名声了。
追问那我在自己电脑上调试为什么都不行，也没有什么提示
追答没看见你的代码，俺又不是神仙，谁知道你怎么搞的。代码在你手里你都搞不清楚，还指望没代码的别人？
第2个回答 2012-09-30
下面的代码是启动 我的电脑上的QQ程序，当然不是指你的了，注意路径，你可以用相对路径，比如你的程序是和qq在一个目录下，你可以用 app.Path & "\QQ.exe"
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As LongPrivate Const SW_SHOWNORMAL = 1
Private Sub Form_Load()
'最好是一个无边框的窗口，修改窗口的BorderStyle属性为0
'加一个Timer和Label控件，设置大小，拖动位置等
Label1.Font.Size = 22
Label1.Caption = "欢迎您！"
'3秒后启动
Timer1.Enabled = True
Timer1.Interval = 3000
End Sub
Private Sub Timer1_Timer()
Dim result
'其他程序路径’你可以用相对的路径比如你的程序是和qq在一个目录下，你可以用 app.Path & "\QQ.exe"
lj = "D:\Program Files\Tencent\QQ\Bin\QQ.exe"
result = ShellExecute(0, vbNullString, lj, vbNullString, vbNullString, SW_SHOWNORMAL)
If result <= 32 Then
MsgBox "调用错误！", vbOKOnly + vbCritical, "错误：", 0
End If
Timer1.Enabled = False
Unload Me
End Sub
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As LongPrivate Const SW_SHOWNORMAL = 1
Private Sub Form_Load()
'最好是一个无边框的窗口，修改窗口的BorderStyle属性为0
'加一个Timer和Label控件，设置大小，拖动位置等
Label1.Font.Size = 22
Label1.Caption = "欢迎您！"
'3秒后启动
Timer1.Enabled = True
Timer1.Interval = 3000
End Sub
Private Sub Timer1_Timer()
Dim result
'其他程序路径’你可以用相对的路径比如你的程序是和qq在一个目录下，你可以用 app.Path & "\QQ.exe"
lj = "D:\Program Files\Tencent\QQ\Bin\QQ.exe"
result = ShellExecute(0, vbNullString, lj, vbNullString, vbNullString, SW_SHOWNORMAL)
If result <= 32 Then
MsgBox "调用错误！", vbOKOnly + vbCritical, "错误：", 0
End If
Timer1.Enabled = False
Unload Me
End Sub
相似回答
