Question

如何用VB制作安装包

如何用VB制作安装包：
内容详细，每一句都要解释一下。
我是新手，请多指教。
能不能用，VB代码一步一步地做，这样跟好。
或者告诉我怎样输出和删除文件的代码是什么就行。
我的QQ：252636249

Answer 1

可以利用外接程序。。。
打开需要打包的工程，选择菜单栏中的“外接程序”->外接程序管理器，在对话框中选择“打包和展开向导”，在“加载行为”选项组中选中“加载/卸载”复选框，然后单击确定按钮
然后选择菜单栏中的"外接程序"，发现比刚才多了一个“打包和展开向导”，选择它在对话框中单击打包按钮，后边的事情就简单多了（向导一般做的都很容易的）
1.选择安装包保存位置
默认情况下安装包会放到工程文件目录下的“包”目录。可以根据需要进行修改。单击“下一步”
2.选择包含文件
“包含文件”对话框已经自动找出了工程中应用的控件、DLL等文件，检查一下有没有一楼的文件。如果有，可以通过“添加”按钮增加用户需要的文件，例如帮助文件Help.chm
3.选择打包文件类型
单击“下一步”显示压缩文件选项对话框。现在的安装程序一般都用光盘作为载体，选中单个压缩文件即可
4.设置安装程序标题
单击“下一步”显示“安装程序标题”对话框，输入安装程序标题，它会显示在安装背景上。
5.创建启动菜单项
单击“下一步”显示“启动菜单项”对话框。在这里创建“开始菜单”中显示的项目，默认只有运行程序。
6.指定安装位置
单击“下一步”显示“安装位置”对话框，在这里设置安装包中的文件具体的安装目录，同样是用宏来指定还可以设置子目录，安装时会自动创建不存在的子目录。
7.共享文件
单击“下一步”显示“共享文件”对话框选择可能被多个文件使用的文件如ActiveX控件，这样当程序卸载时，不会把共享文件也删除。

另外，可以向楼上说的用第三方打包工具。“打包和展开向导”虽然功能不够强大但简单易用
多试两次就会了，针对一般的应用已经足够了。
，有不会的在用QQ问我吧 412331088

Answer 2

推荐使用VB打包工具--- setup factory 7
1 不包含源代码的打包过程
按照新建工程向导 选择了 ”为从属扫描工程文件“选项（或者从“工具”菜单-->扫描VB工程） 完成向导后
删除：frm/bas/vbp/vbw等源代码文件。
保留：exe/dll/ocx等运行支持文件
然后“发布”菜单--> 构建 --> 选择打包文件名 完成打包
最后安装的文件在安装夹下就没有代码文件了。

2 修改安装步骤的屏幕和信息
“工程”菜单 --> 屏幕... -->找到需要的阶段： 安装之前，安装之时，安装之后 --> 点击 “编辑”（还有添加、移除按钮） --> 修改安装信息。
添加代码是在操作（action）子项目下

3 添加可执行文件的快捷方式
找到可执行文件（*.exe）
右键文件，
选择“文件属性...”
找到“快捷方式”tab，选择需要加快捷方式的地方，如桌面等，也能在这里加入注释文字。

4 包含DAO数据库的打包
前提：需要DAO（Date Access Object）,
一般是使用data 和 Access数据库。
1 正常包含了exe文件和支持文件
2 点击 左上角的“添加文件夹引用”（或者是“工程”菜单 -->“添加文件夹引用”），加入DAO文件夹（3个文件夹）。
3 点击 左下角的 启动时（ "On Startup" actions） tab，
在事件代码中输入如下（因为7.0有个问题，在6.0不需要这样
添加）
SessionVar.Set("%CommonFiles%", SessionVar.Expand("%CommonFilesFolder%"));

5 程序如何在安装完成后自动调用另一个程序？

比如：安装之后，执行一个可执行文件（1.exe）

在“工程”菜单 --> 屏幕...-->操作 界面-->安装之后 在onnext 事件中。
添加操作",会出现一个新建操作对话框,第一步选择一个类别,你选择shell,第二步选择一个操作,你选择shell.execute。
if (check01) then
-- 要执行的语句
Screen.Next();
Shell.Execute(SessionVar.Expand("%AppFolder%").."\\1.exe", "open", "", "", SW_SHOWNORMAL);
else
Screen.Next();
end

6 安装前检查是否已经安装过软件？
在“工程”菜单 --> 屏幕...-->找到安装的第一个屏幕 找到preload 事件中
-- 用文件存在函数判断是否过安装软件
if File.DoesExist("%AppFolder%\\1.exe") then
-- 如果文件存在，提示并退出安装程序
result = Dialog.Message("通知", "不好意思，软件已经安装过了，将退出安装.", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
Application.Exit();
end

7 搜索各个盘符搜索文件：
查找各个盘符，返回table 类型，
drives = Drive.Enumerate();
max=Table.Count(drives)
for count = 1,max do
-- 要执行的语句 文件查找函数 File.Find
if( File.Find(drives[count], "1.exe", true, false)) then
count=max+1
result = Dialog.Message("通知","不好意思，软件已经安装过了，将退出安装程序", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
Application.Exit();
end
end

8 几个常用语句
Shell.Execute 打开文件
Dialog.Message 提示信息
File.Find 查找文件
File.DoesExist 文件是否存在
File.GetVersionInfo 获取版本信息，返回table type
Application.Exit(); 退出
Screen.Next(); 下一屏幕
table.count() table type 的个数（类似枚举类型）
Drive.Enumerate 获取各个盘符，返回table type 使用类似数组 table1[1]

9 增加快捷方式时，注意设置文件的描诉别出现重名，否则一些文件将被覆盖。
如：可执行文件和帮助手册的描诉重名问题。造成只有帮助文件，无可执行文件。

10 产生错误2091，无法压缩数据库。
原因：在进程管理器中该可执行文件依旧在运行
处理：移除顺利打包。

11 更多请使用帮助，自己多用每个菜单。

Answer 3

我用的是英文版的
启动VB之后，单击菜单栏Add-Ins —— Add-In Manager —— 选择Package and development wizard，然后选中选项 Load/Unloaded —— OK

这样在Add-Ins菜单下面会出现新的一栏：Package and development wizard...
单击它，接下来的工作就很简单了...

用VB自带的打包工具相当不好，做得太粗糙太简陋了
我这里有一个商业级的打包工具Setup Factory的破解版，你如果需要，留下电子邮箱地址，我发给你。

Answer 4

不用“每一句都要解释一下”吧？因为本来就不用编程。
点“开始”——所有程序——Microsoft Visual Basic 6.0——Microsoft Visual Basic 6.0中文版工具——PaKage...向导，一步一步地往下走就是了，不难。

Answer 5

可以用VB复制代码,隐藏exe根,用ResHacker 3.5新建一个dll,把exe文件拖进去，这样没有人知道dll是个虚拟文件目录,假设此文件在C:\a.dll\me.exe,复制码路径就是C:\a.dll\me.exe