如何使用 VB 编写自动反安装的程序？_VB.NET程序_学习笔记★闵涛★计算机学习电脑编程软硬件技巧


	转至繁体中文版	\| 网站首页 \| 图文教程 \| 资源下载 \| 站长博客 \| 图片素材 \| 武汉seo \| 武汉网站优化 \|

如何使用 VB 编写自动反安装的程序？

作者：闵涛文章来源：闵涛的学习笔记点击数：902 更新时间：2009/4/23 18:57:51

如何使用 VB 编写自动反安装的程序？如果您安装了某一个软件之后，想要反安装，您有二个方法：
1、打开【控制面板】中的【添加删除新程序】，选择该软件來反安装。
2、选择【开始】【程序集】中软件所产生的程序組中的反安装。

上面的第一种方法，您不需要作任何处理，一般软件在安装完后，都会在【控制面板】中的【添加删除新程序】多一个该软件的选项。而第二种方法，就必须要我们编写程序來解决了！

假设，今天我们编写了一个程序叫 Test，当您完成 Test.exe 之后，您必须再多编写一个自动反安装的程序，我们將文件名称设为 unTest.exe(先不要管如何编写，后面会說明)。二支程序都完成后，您使用 VB 提供的应用程序安装向导(Application Setup Wizard) 來制作安装程序時，必须额外再加入 unTest.exe！

加入 unTest.exe 之后，使用者安装后，安装程序並不会在【开始】【程序集】中该系統所产生的程序組【Test】中加入这个自动反安装程序 unTest.exe 的捷径，安装程序只会將unTest.exe 连同 Test.exe 一起复制到应用程序的目录中而已！所以如果您想产生unTest.exe 的捷径，您可能需要稍微修改一下 VB 提供的应用程序安装向导程序！

以下我们就实际來看看 unTest.exe 程序如何编写：

在 VB 中建立一个新文档，取名为 unTest.vbp，表单为 unTest.frm，不需要任何控制项，在表单中加入以下程序代码：

Private Declare Function GetWindowsDirectory Lib "kernel32" _
Alias "GetWindowsDirectoryA" _
(ByVal lpBuffer As String, ByVal nSize As Long) As Long

Private Sub Form_Load()
On Error Goto BaddUn
Dim X&
Dim buffer As String * 128
Dim UnStr As String
Dim size As Integer
Dim retval As Integer
buffer = Space$(128)
size = 128
retval = GetWindowsDirectory(ByVal buffer, ByVal size)
Me.Caption = buffer
''''以下的程序代码必须编写在同一行中
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
UnStr = Me.Caption & "\ST5UNST.EXE -n " & Chr(34) & App.Path & "\ST5UNST.LOG" & Chr(34)
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''MsgBox UnStr ''''可显示可不显示, 只是测试用
''''X& = Shell("C:\WINDOWS\ST5UNST.EXE -n "
'''' "C:\Program Files\App Name\ST5UNST.LOG""
'''' ", vbNormalFocus)
X& = Shell(UnStr, vbNormalFocus)
Unload Me
Exit Sub
BaddUn:
MsgBox "for some reason UnInstall can not run."
Exit Sub
End Sub
由以上的程序代码中，您是否发现， unTest.exe 必须和 St5unst.log 放在同一个目录中，不过这只要和上面的程序一样使用 App.Path 就可以解决了！

注：这个示例是使用 VB5 來做测试的，如果是其他版本的 VB，ST5UNST.LOG 可能必须改变！

VB编程乐园版权所有©,1999-2000
网页设计制作：LiZhiDong OICQ:1144446

[VB.NET程序]GSM短信模块库函数，可以用VB,VC,调用简单实用  [平面设计]如何使用FireWorks制作沿路径排列的文字效果
[网络技术]如何使用DOS命令有计划地重新启动IIS  [电脑技术]图文解说如何使用QQ截图
[办公软件]PowerPoint做交互课件之弃用VBA  [办公软件]VBA获取U盘、主板、CPU序列号和网卡MAC地址
[办公软件]VBA设置文件属性及加密源代码示例  [办公软件]VBA中初始化ADO连接的几种方法
[网络安全]“VB破坏者变种N”病毒摘要  [Web开发]ASP.NET上传文件到数据库VB版

教程录入：mintao 责任编辑：mintao

上一篇教程：在VB中实现PickList功能

下一篇教程：远程数据库的访问

【字体：小大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】

注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网]

　网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）

同类栏目

· C语言系列 · VB.NET程序
· JAVA开发 · Delphi程序
· 脚本语言

热门推荐

没有教程

赞助链接

闵涛博文

500 - 内部服务器错误。

您查找的资源存在问题，因而无法显示。

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18

闵涛站盟:医药大全-武穴网。A打造B、C、D……