vb编写程序:如何使用 VB 编写自动反安装的程序来源: 发布时间:星期四, 2008年9月25日 浏览:78次 评论:0
如果您安装了某一个软件之后,想要反安装,您有二个方法:
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 可能必须改变! 0
相关文章
读者评论
发表评论 |