VB:
网站建设哪家好，找创新互联公司！专注于网页设计、网站建设、微信开发、小程序开发、集团企业网站建设等服务项目。为回馈新老客户创新互联还提供了蓬江免费建站欢迎大家使用！
1、先打开你的项目，即你编写的程序。
2、文件 - 添加 -新建项目
3、在“已安装模版”中选择“其他项目类型” - 安装和部署 - (这里面随便选一个) - 右侧栏里选择安装项目、安装向导什么的都行。然后确定。
4、看到setup1没，设置好他的属性，左侧目标计算机上的文件系统，就是指你即将要将程序安装到的电脑，你可以添加一些文件在这里，它将来可以直接被安装到目标电脑中，当然你也可以什么都不加，一般只是在桌面上加个快捷方式。
5、右键setup1，点击生成，然后就到你源程序所在文件夹里：Setup1\Setup1\Debug中去找安装包吧。
6、把安装包发到其它电脑，直接安装就行了。注意一下，安装程序需要考虑目标的系统环境和你自己的是否一样。
VB6.0生成安装包（文件）步骤：
1）运行Package Deployment 向导。
2）浏览准备制作安装包的工程-选取已完成调试的工程.exe文件-打包。
3）在打包和展开向导对话页选是重新编译。
4）接着按界面提示操作，直至完成安装包。
1 新建安装部署项目
打开VS2005，点击新建项目，选择：其他项目类型-安装与部署-安装向导(安装项目)，然后点击确定。
2 安装向导
关闭后打开安装向导，点击下一步，或者直接点击完成。
3 开始制作
安装向导完成后即可进入项目文件夹：
双击"应用程序文件夹"在右边的空白处右击，选择添加-文件，将你的做的应用程序的可执行文件和相应的类库和组件添加进来。然后右击你的文件，创建快捷方式，然后把快捷方式分别复制或剪切到左边的"用户的'程序'菜单"和"用户桌面"中。这样安装程序安装完成后会在 "开始-所有程序"和"桌面"上生成程序的快捷方式。也可以直接在"用户的'程序'菜单"和"用户桌面"相应目录下新建快捷方式，然后定位到你的文件。
然后右击左边的"应用程序文件夹"打开属性对话框：将属性中的"DefaultLocation"的路径中的"[Manufacturer]"去掉，不然的话做好的安装程序默认安装目录会是"C:\Program Files\你的用户名\安装解决方案名称"；
然后打开解决方案管理器，右击你的解决方案名称，选择属性：打开的属性页中，选择"系统必备"， 在打开的系统必备页中，在"指定系统必备安装组件的位置"中选中如下选择项：从与我的应用程序相同的位置下载系统必备组件。选上以后，在生成的安装文件包中包含.NetFramework组件 。好了，这样就完成99%了，然后点击"生成-生成解决方案"，生成成功!
我以前参考过的，希望对你有帮助。
安装完成后自动启动程序
1.新建一个空的项目InstallCompenent,步骤为:解决方案-右键添加-新建项目-选择"空项目"-输入名称"InstallCompenent"-确定,完成项目的添加.
2.在InstallCompenent项目中右键-添加-新建项-选择安装程序类-输入名称"Installer",完成installer类的添加.
修改代码为:
/// summary
/// 功能是做安装项目主项目输出
/// 实现安装过程中的一些操作
/// 如:安装完成后启动项目
/// /summary
[RunInstaller(true)]
public partial class Installer : Installer
{
/// summary
/// 应用程序入口
/// /summary
public static void Main()
{
}
/// summary
/// 构造函数
/// /summary
public ECSuitsInstaller()
{
InitializeComponent();
}
/// summary
/// 重写安装完成后函数
/// 实现安装完成后自动启动已安装的程序
/// /summary
/// param name="savedState"/param
protected override void OnAfterInstall(IDictionary savedState)
{
base.OnAfterInstall(savedState);
Assembly asm = Assembly.GetExecutingAssembly();
string path = asm.Location.Remove(asm.Location.LastIndexOf("\\")) + "\\";
System.Diagnostics.Process.Start(path + "\\ECSuits.exe");
}
/// summary
/// 重写安装过程方法
/// /summary
/// param name="stateSaver"/param
public override void Install(IDictionary stateSaver)
{
base.Install(stateSaver);
}
/// summary
/// 重写安装之前方法
/// /summary
/// param name="savedState"/param
protected override void OnBeforeInstall(IDictionary savedState)
{
base.OnBeforeInstall(savedState);
}
/// summary
/// 重写卸载方法
/// /summary
/// param name="savedState"/param
public override void Uninstall(IDictionary savedState)
{
base.Uninstall(savedState);
}
/// summary
/// 重写回滚方法
/// /summary
/// param name="savedState"/param
public override void Rollback(IDictionary savedState)
{
base.Rollback(savedState);
}
}
3.在安装项目中右键-添加项目输出-选择"项目"-InstallCompenent.
完成主输出项目的添加.
4.打开自定义操作编辑器,在安装-右键-添加自定义操作-选择"应用程序文件夹"-选择"主输出来自InstallCompenent",完成添加.
我用的是英文版的
启动VB之后，单击菜单栏Add-Ins
——
Add-In
Manager
——
选择Package
and
development
wizard，然后选中选项
Load/Unloaded
——
OK
这样在Add-Ins菜单下面会出现新的一栏：Package
and
development
wizard...
单击它，接下来的工作就很简单了...
用VB自带的打包工具相当不好，做得太粗糙太简陋了
我这里有一个商业级的打包工具Setup
Factory的破解版，你如果需要，留下电子邮箱地址，我发给你。
打包的具体操作步骤：
1）新建“安装和部署项目”-- “安装向导”
2）选择菜单中 项目-- 添加-- 文件（这里选“创建用于windows应用程序.exe你的数据库文件”）-- 打开
3）一般会自动将依赖项添加到“检测到的依赖项”，如果没有，那么我们要手动将其加入4）
Crystal_Managed2003.msm （如果有水晶报表）
dotnetfxredist_x86.msm （.net一定是必须的）
... （如果有引用其他的dll）
4）手动加入要包含的文件：项目-- 添加-- 合并模块（添加你的程序文件） (包括dotNetFramework和MDAC27)
位于：C:\Program Files\Common Files\Merge Modules\ 下
具体功能如下：
（托管组件 MSM 处理所有托管组件的分发，其中包括 Windows 窗体查看器、Web 窗体查看器和所有 Crystal Decisions 命名空间）
* Crystal_Managed2003.msm、
Crystal_Managed2003_chs.msm、
（对于使报表运行所需的所有其他文件，由数据库访问 MSM 处理其分发。其中包括数据库、导出和图表驱动程序。）
* Crystal_Database_access2003.msm、
Crystal_Database_access2003_chs.msm、
（KeyCode MSM 处理 Crystal Decisions 密钥号码的安装,注意是添加合并模块，否则没有“MergeMouduleProperties”属性）
* Crystal_regwiz2003.msm、
（是vc的运行库，估计是Crystal Report或涉及到的某些程序是用vc写的，所以需要它！）
VC_User_CRT71_RTL_X86_---.msm、
VC_User_STL71_RTL_X86_---.msm、
5）打开解决方案-- 右键点击Crystal_regwiz2003.msm的属性，在“MergeMouduleProperties”里的“License Key”填入：AAP5GKS0000GDE100DS（这个是你生成Crystal Report是用到的注册号的密码！）
6）生成解决方案（或直接按Ctrl+Shift+B）
至此整个分发程序已经做好，再把刚才做的那个安装程序双击一下……
-----------------------------------------------------------------------
打包时加入卸载功能：
方法一:
1.在打包项目中添加文件msiexec.exe(一般可在c:\windows\system32\下找到)
2.在文件系统视图中选择应用程序文件夹,在msiexec.exe上按右键,选择创建快捷方式,重命名快捷方式为 "卸载 ".
3.更改此快捷方式的Arguments 为 "/x {产品id} ",产品id的值为打包项目的ProductCode属性值.
方法二:(推荐)
1.先生成安装包，记下ProductCode,下面要用到
2.用VS.net建立一个新的控制台程序uninst.exe文件
'power by: landlordh
'for 2000,xp,2003
Module uninstall
Sub Main()
Dim myProcess As Process = New Process
If System.Environment.OSVersion.ToString.IndexOf( "NT 5 ") Then
myProcess.Start( "msiexec ", "/X{2B65D4A9-C146-4808-AB4B-321FB0779559} ") '改为自己的ProductCode
End If
myProcess.Close()
End Sub
End Module
3.将控制台程序BIN目录的exe文件加入到打包程序文件中,在程序组创建uninst.exe的快捷方式
如果装个ms的控件的话，则直接把framework和msac打在包里。
这个是覆盖不了的，你必须要将原来安装的程序卸载掉，就像我以前安装SQL 2000的时候，只要第一次出错，第二次安装就安装不上，只有去注册表里面将你所安装的原来的程序卸载掉。
