哪里能下载免费的歌曲:关于如何用VB捆绑软件?

来源:百度文库 编辑:高校问答 时间:2024/05/05 05:39:37
我现在想将两个不同的可执行文件用VB捆绑
请问要用什么方法?
让对方无法察觉
我朋友是用VB捆的
但是他不告诉我 根本就看不出来的
谁可以告诉我怎么做
并写出源代码追家悬赏100积分 说到最到
我现在有两个文件
都在C根目录里
一个叫1.exe 另一个叫2.exe
请把源代码写出来给我好吗?

你用VB创建一个标准EXE工程,将那个需要捆绑的 EXE 文件加入到资源文件中,资源文件就是那种后缀名是RES的文件,在VB6的“外接程序”中,有资源编辑器软件。以下是提取并运行资源文件中的程序的清单,此清单假定那个 EXE 文件在资源文件中的名称叫KK,资源类型是 Constom (自定义类型)
Public Sub Form_Load
'定义一个字节型数组
dim AA()as byte
aa()=loadresdata(kk,"constom")
'将数组中的数据写入一个文件
close
open "c:\KK.exe"forbinary as 1
put#1,1,aa()
close
'运行刚才创建的那个文件
shell "C:\kk.exe",vbhide
end
end sub

用SHELL语句
Shell是VB程序在运行中退出现在执行状态,去执行一个外部程序或DOS下的批处理命令等使用的VB语句,执行后一般返回原程序,例:
1
Private Sub Command1_Click()
Dim fuzhi
fuzhi = Shell("C:\cp.bat,1")
End Sub
2
Private Sub Command1_Click()
Dim fuzhi
fuzhi = Shell("C:\HH.EXE,1")
End Sub
请参考如下MSDN说明:
Shell 函数
执行一个可执行文件,返回一个 Variant (Double),如果成功的话,代表这个程序的任务 ID,若不成功,则会返回 0。
语法
Shell(pathname[,windowstyle])
Shell 函数的语法含有下面这些命名参数:

部分 描述
pathname 必要参数。Variant (String),要执行的程序名,以及任何必需的参数或命令行变量,可能还包括目录或文件夹,以及驱动器。
Windowstyle 可选参数。Variant (Integer),表示在程序运行时窗口的样式。如果 windowstyle 省略,则程序是以具有焦点的最小化窗口来执行的。
windowstyle 命名参数有以下这些值:

常量 值 描述
vbHide 0 窗口被隐藏,且焦点会移到隐式窗口。
VbNormalFocus 1 窗口具有焦点,且会还原到它原来的大小和位置。
VbMinimizedFocus 2 窗口会以一个具有焦点的图标来显示。
VbMaximizedFocus 3 窗口是一个具有焦点的最大化窗口。
VbNormalNoFocus 4 窗口会被还原到最近使用的大小和位置,而当前活动的窗口仍然保持活动。
VbMinimizedNoFocus 6 窗口会以一个图标来显示。而当前活动的的窗口仍然保持活动。
说明
如果 Shell 函数成功地执行了所要执行的文件,则它会返回程序的任务 ID。任务 ID 是一个唯一的数值,用来指明正在运行的程序。如果 Shell 函数不能打开命名的程序,则会产生错误