怎么写出vb中的资源文件并执行?
我本身是会易语言的,我不会VB我想用VB写个小程序这个小程序是这样的,我准备了1个EXE文件把它加入了资源程序在VB程序运行后将它写出然后运行它请问怎么写???如果有VS...
我本身是会易语言的,我不会VB我想用VB写个小程序这个小程序是这样的,我准备了1个EXE文件把它加入了资源程序在VB程序运行后将它写出然后运行它请问怎么写 ???如果有VS的例程最好了,请发送到maxiaoding@vip.qq.com,感激不尽! (有注释最好了!)
展开
2个回答
2014-01-01
展开全部
Dim myArray() As Byte
Dim myFile As Long
myArray = LoadResData(101, "CUSTOM") '把这里改成你的EXE文件的实际值 myFile = FreeFile
Open "c:\测试.exe" For Binary Access Write As #myFile
Put #myFile, , myArray
Close #myFile Shell "c:\测试.exe", vbNormalFocus 你的其它代码……如果需要等待c:\测试.exe执行完成后在执行shell的下一句代码“你的其它代码……”,则把shell那句话改成:
Dim ExitEvent As Long
set obshell=createobject("wscript.shell")
obshell.run ("c:\测试.exe"),,true
MsgBox "c:\测试.exe运行结束了。"
Dim myFile As Long
myArray = LoadResData(101, "CUSTOM") '把这里改成你的EXE文件的实际值 myFile = FreeFile
Open "c:\测试.exe" For Binary Access Write As #myFile
Put #myFile, , myArray
Close #myFile Shell "c:\测试.exe", vbNormalFocus 你的其它代码……如果需要等待c:\测试.exe执行完成后在执行shell的下一句代码“你的其它代码……”,则把shell那句话改成:
Dim ExitEvent As Long
set obshell=createobject("wscript.shell")
obshell.run ("c:\测试.exe"),,true
MsgBox "c:\测试.exe运行结束了。"
2014-01-01
展开全部
完全可行,但不是三两句话可说的清楚的。你可以在网上搜索一下。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |