189 8069 5689
VB.NET安装部署一).创建部署项目
创新互联建站是一家专注网站建设、网络营销策划、微信小程序、电子商务建设、网络推广、移动互联开发、研究、服务为一体的技术型公司。公司成立十多年以来，已经为上千家白乌鱼各业的企业公司提供互联网服务。现在，服务的上千家客户与我们一路同行，见证我们的成长；未来，我们一起分享成功的喜悦。
1. 在“文件”菜单上指向“添加项目”，然后选择“新建项目”。
2. 在“添加新项目”对话框中，选择“项目类型”窗格中的“安装和部署项目”，然后选择“模板”窗格中的“安装项目”。在“名称”框中键入 setup1。
3. 单击“确定”关闭对话框。
4. 项目被添加到解决方案资源管理器中，并且文件系统编辑器打开。
5. 在“属性”窗口中，选择 ProductName 属性，并键入 信息管理系统 。
VB.NET安装部署二).将 主程序 项目的输出添加到部署项目中
1. 在“文件系统编辑器”中，选择“应用程序文件夹”。在“操作”菜单上，指向“添加”，然后选择“项目输出”。
2. 在“添加项目输出组”对话框中，选择“项目”下拉列表中的“你的程序”。
3. 单击“确定”关闭对话框。
4. 从列表中选择“主输出”和“内容文件”组，然后单击“确定”。
VB.NET安装部署三).创建安装程序类
1. 在“文件”菜单上指向“新建”，然后选择“项目”。
2. 在“新建项目”对话框中，选择“项目类型”窗格中的“Visual Basic 项目”，然后选择“模板”窗格中的“类库”。在“名称”框中键入 installDB。
3. 单击“打开”关闭对话框。
4. 从“项目”菜单中选择“添加新项”。
5. 在“添加新项”对话框中选择“安装程序类”。在“名称”框中键入 installDB。
6. 单击“确定”关闭对话框。
7. 详细代码附后。
VB.NET安装部署四).创建自定义安装对话框
1. 在解决方案资源管理器中选择“setup1”项目。在“视图”菜单上指向“编辑器”，然后选择“用户界面”。
2. 在用户界面编辑器中，选择“安装”下的“启动”节点。在“操作”菜单上，选择“添加对话框”。
3. 在“添加对话框”对话框中，选择“许可协议”对话框，然后单击“确定”关闭对话框。
4. 在“添加对话框”对话框中，选择“文本框 (A)”对话框，然后单击“确定”关闭对话框。
5. 在“操作”菜单上，选择“上移”。重复此步骤，直到“文本框 (A)”对话框位于“安装文件夹”节点之上。
6. 在“属性”窗口中，选择 BannerText 属性并键入：安装数据库.
7. 选择 BodyText 属性并键入：安装程序将在目标机器上安装数据库
8. 选择 Edit1Label 属性并键入：数据库名称:
9. 选择 Edit1Property 属性并键入 CUSTOMTEXTA1
10. 选择 Edit1Value 属性并键入：dbservers
11. 选择 Edit2Label 属性并键入：服务器名:
12. 选择 Edit2Property 属性并键入 CUSTOMTEXTA2
13. 选择 Edit2Value 属性并键入：(local)
14. 选择 Edit3Label 属性并键入：用户名:
15. 选择 Edit3Value 属性并键入：sa
16. 选择 Edit3Property 属性并键入 CUSTOMTEXTA3
17. 选择 Edit4Label 属性并键入：密码:
18. 选择 Edit4Property 属性并键入 CUSTOMTEXTA4
19. 选择 Edit2Visible、Edit3Visible 和 Edit4Visible 属性，并将它们设置为 true
VB.NET安装部署五).创建自定义操作
1. 在解决方案资源管理器中选择“setup1”项目。在“视图”菜单上指向“编辑器”，然后选择“自定义操作”。
2. 在自定义操作编辑器中选择“安装”节点。在“操作”菜单上，选择“添加自定义操作”。
3. 在“选择项目中的项”对话框中，双击“应用程序文件夹”。
4. 选择“主输出来自 installDB（活动）”项，然后单击“确定”关闭对话框。
5. 在“属性”窗口中，选择 CustomActionData 属性并键入“/dbname=[CUSTOMTEXTA1] /server=[CUSTOMTEXTA2] /user=[CUSTOMTEXTA3] /pwd=[CUSTOMTEXTA4] /targetdir="[TARGETDIR]/"”。
附:/targetdir="[TARGETDIR]/"是安装后的目标路径，为了在installDB类中获得安装后的路径，我们设置此参数。
VB.NET安装部署六).添加文件
1. 将SQL Server备份成文件DB.dat添加到“setup1”项目(在企业管理器中右击数据库-所有工作-备份数据库,备份成一个文件，取名为DB.dat)
2. 将安装文件LisenceFile.rtf添加到“setup1”项目
3. 在用户界面编辑器中，选择许可协议，设置LisenceFile属性为LisenceFile.rtf文件
4.一般会自动将依赖项添加到“检测到的依赖项”，如果没有，那么我们要手动将其加入步骤5）
Crystal_Managed2003.msm
（如果有水晶报表）
dotnetfxredist_x86.msm
（.net一定是必须的）
... （如果有引用其他的dll）
5.如果使用了水晶报表，手动加入要包含的文件：项目--添加--合并模块（添加你的程序文件） (包括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
（如果报表文件使用了 ADO.NET 的 dataset 数据集对象，那么 VC_User_CRT71_RTL_X86_---.msm 和 VC_User_STL71_RTL_X86_---.msm 模块也必须包含在安装工程中。而且这两个模块的文件安装属性的"Module Retargetable Folder"项必须修改成为系统目录）
VC_User_CRT71_RTL_X86_---.msm VC_User_STL71_RTL_X86_---.msm
(很多人经常出现查询错误，不妨加上这个)
6.打开解决方案--右键点击Crystal_regwiz2003.msm的属性，在“MergeMouduleProperties”里的“License Key”填入：AAP5GKS0000GDE100DS（这个是你生成Crystal Report是用到的注册号的密码！）
VB.NET安装部署七).打包时加入卸载功能：
方法一:
1.在打包项目中添加文件msiexec.exe(一般可在c:/windows/system32/下找到)
2.在文件系统视图中选择应用程序文件夹,在msiexec.exe上按右键,选择创建快捷方式,重命名快捷方式为"卸载".
3.更改此快捷方式的Arguments 为"/x {产品id}",产品id的值为打包项目的ProductCode属性值.
方法二:(推荐)
1.先生成安装包，记下ProductCode(选择解决方案资源管理器根目录如setup1,再查看属性标签,不是右键中的属性),下面要用到
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-321F
B0779559}") '改为自己的ProductCode
End If
myProcess.Close()
End Sub
End Module
3.将控制台程序BIN目录的exe文件加入到打包程序文件中,在程序组创建uninst.exe的快捷方式
VB.NET安装部署八).打包时加入.net环境和MDAC功能：
把MS的PluginInstaller.msi插件装上后,用vb.net的自带的打包工具打包,就会自动把.net framework环境打进去,再下面的步骤进行设置,就可以把MDAC也打包.使用 Setup 项目安装 MDAC
1.确保 Visual Studio .NET 框架引导程序插件已安装。
2.在 Solution Explorer 中选择 Setup 项目。从 View 菜单指向 Editor，并选择 Launch Conditions（启动条件）。
3.选择 Requirements on Target Machine（搜索目标计算机） 节点。从 Action 菜单，选择 Add Registry Launch Condition（添加注册表搜索）。
4.选择 Search for RegistryEntry1 节点。在 Properties 窗口中，选择 RegKey 属性，并键入 Software/Microsoft/DataAccess。
5.选择 Root 属性，并选择 vsdrrHKLM。
6.选择 Value 属性，并键入 FullInstallVer。
7.选择 Property 属性，并键入 MDACSEARCH。
8.在 Launch Conditions Editor（启动条件） 中，添加Condition1 节点。选择 Condition1 节点，在 Properties 窗口中，选择 Condition 属性，并选择 MDACSEARCH="2.6"。
9.在 Solution Explorer 中选择 Setup 项目。在 Project 菜单上，选择 Properties。
10.将 Bootstrapper 属性设置为 Windows Installer Bootstrapper（Windows 安装引导程序）。
方法/步骤
首先，打开服务器管理器，点击左侧的“仪表盘”，如下图所示。
点击上图中的“添加角色和功能”，弹出下图所示“添加角色和功能向导”。
一直点击“下一步”，直到“功能”选项卡，点击“.NET Framework 3.5 功能”前面的小三角，展开，勾选“.NET Framework 3.5（包括.NET 2.0和3.0）”前面的复选框，如下图所示，点击下一步。
如下图所示。点击下面的“指定备用源路径”，弹出对话框，如下。
由于小编的系统盘加载在D盘，如下图，所以配置如下路径（一般路径固定，盘符根据自己系统来定），点击“确定”。
点击“安装”，即开始安装.NET Framework 3.5，等安装完成后关闭即可。
可以用程序安装目录等相对路径：
比如：
cn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+AppDomain.CurrentDomain.SetupInformation.ApplicationBase"+information.mdb;Persist Security Info=False")
AppDomain.CurrentDomain.SetupInformation.ApplicationBase和Application.StartupPath
当将程序安装在"C:\Program Files\ABC"目录中时，以下两个属性返回的内容是不同的：
——AppDomain.CurrentDomain.SetupInformation.ApplicationBase 返回"C:\PROGRA~1\ABC\"
——Application.StartupPath则返回"C:\Program Files\ABC"。
目前已知在服务（Windows Service）中使用AppDomain .CurrentDomain.AppendPrivatePath("C:\Program Files\ABC")会无效，用AppDomain .CurrentDomain.AppendPrivatePath("C:\PROGRA~1\ABC\")则没问题。
而在窗口程序中（Windows Forms），则前者亦有效。
Application.ExecutablePath
Application.StartupPath
Environment.CurrentDirectory
System.IO.Directory.CurrentDirectory
这些都可以获得当前路径
步骤一：打开需要制作安装程序的VB.Net项目
点击菜单【文件—新建项目】出现如图01的对话框单击【其他项目类型—安装和部署】选择【安装项目】如图：
步骤二：
双击【My Project】（在“解决方案资源管理器”里面呢），如图所示。
步骤三3：单击【引用】选项卡，查看解决方案的引用项，关注一下.Net类型的引用，本解决方案引用.Net类型的版本是2.0版。查看这个信息直接关系到最终安装文件的大小。
右键单击“解决方案资源管理器”中【Setup1】，选择【添加—项目输出】，选择“主输出”后单击【确定】。
再次右键点击【Setup1】，选择【属性】，跳出对话框。
步骤四：这里的设置可是关键中的关键
步骤五：“选择要安装的系统必备组件”，解决的是运行可执行文件环境的问题运行使用VB.Net编写的程序，必须在系统中安装.Net Framework（也有软件使用虚拟环境运行的）。“查看引用”查到的信息就用到了。如果解决方案只是引用了2.0版本的框架（.Net Framework），默认的系统组件选择。
可以选择框架3.5，建议使用框架2.0，因为框架2.0大小是30M，而框架3.5却有300M之巨.指定系统必备组件的安装设置”这个选项也挺有用。如果编写了一个很简单的程序，想发布（此发布不是前述的发布）出去让大家使用，而又不想拖着少则几十兆多则几百兆的框架的话，那么可以选择第一个互斥按钮。如果担心用户在安装程序时上网不方便，不能从供应 商那儿下载框架的话，那么，只好把框架拖上喽（这也是为什么在能选择框架2.0的时候莫要选择框架3.5的原因，安装程序越小越好，用户如果安装了几百 兆的程序，发现打开的只是个简单的计算器的话，会气的摔键盘的！）
你这个问题分着问兴许能快点得到答案。
我只知道一点，软件已打开，可以根据进程信息判断
Private chm_process As Process
If IsNothing(chm_process) OrElse chm_process.HasExited Then
chm_process = New Process
chm_process.StartInfo.FileName = Application.StartupPath + "\软件使用说明书.CHM"
chm_process.Start()
Else
WinAPI.ShowWindowEx(chm_process.MainWindowHandle, WinAPI.nCmdShow.SW_RESTORE)
End If
让cad加载文件得找API，不知道有没有