Question

求一段VB代码(急急急在线等)

求这样一段代码：当打开A程序时，点击A程序上面的运行按钮后，把B程序释放到C盘根目录，并运行B程序。

Answer 1

1：打开VB-外接程序-外接程序管理器-VB6资源编辑器，将“在启动中加载”和“加载/卸载”都打勾；
2：在“工具”菜单中打开“资源编辑器”后选择“自定义资源-选择你的b.exe文件”，然后点击保存！

A程序代码：
Private Sub Command1_Click()
Dim bytdata() As Byte
intFile = FreeFile()
bytdata = LoadResData(101, "CUSTOM") '101 为资源号，custom为资源类型
strtmpfile = "b.exe" '临时文件的路径与文件名
Open strtmpfile For Binary Access Write As #intFile
Put #intFile, , bytdata
Close (intFile)
Call Shell("b.exe", 1)
End Sub

追问

还要问你下 比如说同时添加几个文件，然后让他释放到C盘，再运行其中的一个 这个样的要怎么写代码

追答

有你这样问的吗？

追问

我就是刚想到的。。就是这种想法 可以做到吗？

追答

没有不可以。如果是不同的文件名，用推荐答案，如果以数字简单循环，可以用我提供的代码做循环也可以。

'推荐答案调用举例
点一个按扭运行一个
Private Sub Command1_Click()
SaveFileFromRes 101, "CUSTOM", "象棋麻将.exe" '释放的文件，下同
Shell "象棋麻将.exe", 1 '运行，下同
End Sub

Private Sub Command2_Click()
SaveFileFromRes 102, "CUSTOM", "99.exe"
Shell "99.exe", 1
End Sub
'退出删除：
Private Sub Form_Unload(Cancel As Integer)
Kill "象棋麻将.exe" '退出时删除释放的文件
Kill "99.exe"
End Sub

‘自动释放自动运行举例
Private Sub Form_Load()
SaveFileFromRes 101, "CUSTOM", "象棋麻将.exe" '释放的文件
SaveFileFromRes 102, "CUSTOM", "99.exe" '释放的文件
Shell "99.exe", 1 '运行
Shell "象棋麻将.exe", 1 '运行
End Sub

Answer 2

'打包运行文件
'在资源管理器里倒数第二个按钮添加自定义文件资源,加入以下过程
Public Function SaveFileFromRes(vntresourceId As Variant, sTYPE As String, sfilename As String) As Boolean
Dim bytimage() As Byte
Dim ifilenum As Integer
On Error GoTo SaveFileFromRes_err
SaveFileFromRes = True
bytimage = LoadResData(vntresourceId, sTYPE)
ifilenum = FreeFile
Open sfilename For Binary As ifilenum
Put #ifilenum, , bytimage
Close ifilenum
SaveFileFromRes_err: Exit Function
SaveFileFromRes = False: Exit Function
End Function
'调用
SaveFileFromRes 101, "CUSTOM", "test.exe" '释放路径自己添加
Shell "test.exe", 1 '释放后运行

Answer 3

filecopy b程序路径，C：\逼程序
shell b程序

追问

请说一下详细代码？先谢谢啦

追答

你的b程序叫什么，在什么位置？