欢迎光临
我们一直在努力

如何使用vb编写自动反安装的程序_visualbasic教程

建站超值云服务器,限时71元/月

如果您安装了某一个软件之后,想要反安装,您有二个方法:
1、打开【控制面板】中的【添加删除新程序】,选择该软件來反安装。
2、选择【开始】【程序集】中软件所产生的程序組中的反安装。

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

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

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

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

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

PrivateDeclareFunctionGetWindowsDirectoryLib”kernel32″_
Alias”GetWindowsDirectoryA”_
(ByVallpBufferAsString,ByValnSizeAsLong)AsLong

PrivateSubForm_Load()
OnErrorGotoBaddUn
DimX&
DimbufferAsString*128
DimUnStrAsString
DimsizeAsInteger
DimretvalAsInteger
buffer=Space$(128)
size=128
retval=GetWindowsDirectory(ByValbuffer,ByValsize)
Me.Caption=buffer
以下的程序代码必须编写在同一行中

UnStr=Me.Caption&”\ST5UNST.EXE-n”&Chr(34)&App.Path&”\ST5UNST.LOG”&Chr(34)

MsgBoxUnStr可显示可不显示,只是测试用
X&=Shell(“C:\WINDOWS\ST5UNST.EXE-n”
“C:\ProgramFiles\AppName\ST5UNST.LOG””
“,vbNormalFocus)
X&=Shell(UnStr,vbNormalFocus)
UnloadMe
ExitSub
BaddUn:
MsgBox”forsomereasonUnInstallcannotrun.”
ExitSub
EndSub
由以上的程序代码中,您是否发现,unTest.exe必须和St5unst.log放在同一个目录中,不过这只要和上面的程序一样使用App.Path就可以解决了!

注:这个示例是使用VB5來做测试的,如果是其他版本的VB,ST5UNST.LOG可能必须改变!->

赞(0)
版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com 特别注意:本站所有转载文章言论不代表本站观点! 本站所提供的图片等素材,版权归原作者所有,如需使用,请与原作者联系。未经允许不得转载:IDC资讯中心 » 如何使用vb编写自动反安装的程序_visualbasic教程
分享到: 更多 (0)