有自动卸载软件的例子吗 什么都行

qq35005472

需要一个自动卸载软件的，比如我设置了qq VX 白名单，运行之后把除了qq VX之外的全部卸载了，只需要个逻辑主体，可以只弹出个卸载框框，剩下的要点确定什么的我都可以自己去解决，

z573277679

卸载被注释掉了
示例.e (6.69 KB, 下载次数: 8)

2026-1-6 23:54 上传

点击文件名下载附件

z573277679

保护隐私，随便截一点吧

* “[保留] Microsoft .NET Host - 6.0.36 (x86)”
* “[模拟卸载] 百度网盘”
* “   ﹂ 命令: "C:\Users\Administrator\AppData\Roaming\baidu\BaiduNetdisk\uninst.exe"”
* “[模拟卸载] 英雄联盟”
* “   ﹂ 命令: D:\软件\英雄联盟(26)\英雄联盟卸载.exe”
* “--- 扫描结束 ---”
被调试易程序运行完毕

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
扫描路径	文本型		2
i	整数型
白名单	文本型		0

' 1. 设置白名单关键词（包含这些词的软件将不被处理）
' 注意：建议加上系统关键组件的关键词，防止误删
白名单 ＝ { “QQ”, “微信”, “WeChat”, “Tencent”, “Windows”, “Driver”, “Microsoft”, “NVIDIA”, “Intel” }
' 2. 定义扫描位置（覆盖32位和64位软件）
扫描路径 [1] ＝ “SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\”
扫描路径 [2] ＝ “SOFTWARE\WOW6432Node\Microsoft\Windows\CurrentVersion\Uninstall\”
调试输出 (“--- 开始扫描卸载列表 ---”)
计次循环首 (取数组成员数 (扫描路径), i)
执行模拟扫描 (扫描路径 [i], 白名单)
计次循环尾 ()
调试输出 (“--- 扫描结束 ---”)
信息框 (“扫描任务已完成，请查看调试输出窗口。”, #信息图标, “提示”, )

子程序名	返回值类型	公开	备 注
执行模拟扫描
参数名	类 型	参考	可空	数组	备 注
根路径	文本型
白名单	文本型

变量名	类 型	静态	数组	备 注
hKey	整数型
索引	整数型
子项名	文本型
子项名长度	整数型
软件名	文本型
卸载命令	文本型
n	整数型
是否在白名单	逻辑型
结果码	整数型

' 打开注册表 (#本地机器 = 2147483650, KEY_READ = 131097)
结果码 ＝ RegOpenKeyEx (2147483650, 根路径, 0, 131097, hKey)
如果真 (结果码 ≠ 0)
调试输出 (“[错误] 无法打开路径 (权限不足): ” ＋ 根路径)
返回 ()

索引 ＝ 0
判断循环首 (真)
子项名 ＝ 取空白文本 (255)
子项名长度 ＝ 255
' 枚举每一个子项 (即软件的ID)
如果真 (RegEnumKeyEx (hKey, 索引, 子项名, 子项名长度, 0, 字符 (0), 0, 0) ≠ 0)
跳出循环 ()

' 获取显示名称
软件名 ＝ 取文本注册项 ( #本地机器, 根路径 ＋ 子项名 ＋ “\DisplayName”, )
如果真 (软件名 ≠ “”)
' 匹配白名单
是否在白名单 ＝ 假
计次循环首 (取数组成员数 (白名单), n)
如果真 (寻找文本 (软件名, 白名单 [n], , 真) ≠ -1)
是否在白名单 ＝ 真
跳出循环 ()

计次循环尾 ()
如果 (是否在白名单)
调试输出 (“[保留] ” ＋ 软件名)
' 提取卸载路径
卸载命令 ＝ 取文本注册项 ( #本地机器, 根路径 ＋ 子项名 ＋ “\UninstallString”, )
如果真 (卸载命令 ≠ “”)
' --- 模拟拦截区 ---
调试输出 (“[模拟卸载] ” ＋ 软件名)
调试输出 (“   ﹂ 命令: ” ＋ 卸载命令)
' 如果你想看更详细的提示，可以取消下面这行注释：
' 信息框 (“准备卸载: ” ＋ 软件名 ＋ #换行符 ＋ “命令: ” ＋ 卸载命令, 0, “模拟测试”)
' 正式执行时才开启下面这行：
' 运行 (卸载命令, 假, )



索引 ＝ 索引 ＋ 1
判断循环尾 ()
RegCloseKey (hKey)

DLL命令名	返回值类型	公开	备 注
RegOpenKeyEx	整数型		, 打开注册表项
DLL库文件名:
advapi32.dll
在DLL库中对应命令名:
RegOpenKeyExA
参数名	类 型	传址	数组	备 注
hKey	整数型
lpSubKey	文本型
ulOptions	整数型
samDesired	整数型
phkResult	整数型

DLL命令名	返回值类型	公开	备 注
RegEnumKeyEx	整数型		, 枚举子项
DLL库文件名:
advapi32.dll
在DLL库中对应命令名:
RegEnumKeyExA
参数名	类 型	传址	数组	备 注
hKey	整数型
dwIndex	整数型
lpName	文本型
lpcchName	整数型
lpReserved	整数型
lpClass	文本型
lpcchClass	整数型
lpftLastWriteTime	整数型

DLL命令名	返回值类型	公开	备 注
RegCloseKey	整数型		, 关闭句柄
DLL库文件名:
advapi32.dll
在DLL库中对应命令名:
RegCloseKey
参数名	类 型	传址	数组	备 注
hKey	整数型

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 扫描路径, 文本型, , "2"<br /> .局部变量 i, 整数型<br /> .局部变量 白名单, 文本型, , "0"<br /> <br /> ' 1. 设置白名单关键词（包含这些词的软件将不被处理）<br /> ' 注意：建议加上系统关键组件的关键词，防止误删<br /> 白名单 ＝ { “QQ”, “微信”, “WeChat”, “Tencent”, “Windows”, “Driver”, “Microsoft”, “NVIDIA”, “Intel” }<br /> <br /> ' 2. 定义扫描位置（覆盖32位和64位软件）<br /> 扫描路径 [1] ＝ “SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\”<br /> 扫描路径 [2] ＝ “SOFTWARE\WOW6432Node\Microsoft\Windows\CurrentVersion\Uninstall\”<br /> <br /> 调试输出 (“--- 开始扫描卸载列表 ---”)<br /> <br /> .计次循环首 (取数组成员数 (扫描路径), i)<br />     执行模拟扫描 (扫描路径 <i>, 白名单)<br /> .计次循环尾 ()<br /> <br /> 调试输出 (“--- 扫描结束 ---”)<br /> 信息框 (“扫描任务已完成，请查看调试输出窗口。”, #信息图标, “提示”, )<br /> <br /> .子程序 执行模拟扫描<br /> .参数 根路径, 文本型<br /> .参数 白名单, 文本型, 数组<br /> .局部变量 hKey, 整数型<br /> .局部变量 索引, 整数型<br /> .局部变量 子项名, 文本型<br /> .局部变量 子项名长度, 整数型<br /> .局部变量 软件名, 文本型<br /> .局部变量 卸载命令, 文本型<br /> .局部变量 n, 整数型<br /> .局部变量 是否在白名单, 逻辑型<br /> .局部变量 结果码, 整数型<br /> <br /> ' 打开注册表 (#本地机器 = 2147483650, KEY_READ = 131097)<br /> 结果码 ＝ RegOpenKeyEx (2147483650, 根路径, 0, 131097, hKey)<br /> .如果真 (结果码 ≠ 0)<br />     调试输出 (“[错误] 无法打开路径 (权限不足): ” ＋ 根路径)<br />     返回 ()<br /> .如果真结束<br /> <br /> 索引 ＝ 0<br /> .判断循环首 (真)<br />     子项名 ＝ 取空白文本 (255)<br />     子项名长度 ＝ 255<br /> <br />     ' 枚举每一个子项 (即软件的ID)<br />     .如果真 (RegEnumKeyEx (hKey, 索引, 子项名, 子项名长度, 0, 字符 (0), 0, 0) ≠ 0)<br />         跳出循环 ()<br />     .如果真结束<br /> <br />     ' 获取显示名称<br />     软件名 ＝ 取文本注册项 (#本地机器, 根路径 ＋ 子项名 ＋ “\DisplayName”, )<br /> <br />     .如果真 (软件名 ≠ “”)<br />         ' 匹配白名单<br />         是否在白名单 ＝ 假<br />         .计次循环首 (取数组成员数 (白名单), n)<br />             .如果真 (寻找文本 (软件名, 白名单 [n], , 真) ≠ -1)<br />                 是否在白名单 ＝ 真<br />                 跳出循环 ()<br />             .如果真结束<br /> <br />         .计次循环尾 ()<br /> <br />         .如果 (是否在白名单)<br />             调试输出 (“[保留] ” ＋ 软件名)<br />         .否则<br />             ' 提取卸载路径<br />             卸载命令 ＝ 取文本注册项 (#本地机器, 根路径 ＋ 子项名 ＋ “\UninstallString”, )<br /> <br />             .如果真 (卸载命令 ≠ “”)<br />                 ' --- 模拟拦截区 ---<br />                 调试输出 (“[模拟卸载] ” ＋ 软件名)<br />                 调试输出 (“   ﹂ 命令: ” ＋ 卸载命令)<br /> <br />                 ' 如果你想看更详细的提示，可以取消下面这行注释：<br />                 ' 信息框 (“准备卸载: ” ＋ 软件名 ＋ #换行符 ＋ “命令: ” ＋ 卸载命令, 0, “模拟测试”)<br /> <br />                 ' 正式执行时才开启下面这行：<br />                 ' 运行 (卸载命令, 假, )<br />             .如果真结束<br /> <br />         .如果结束<br /> <br />     .如果真结束<br /> <br />     索引 ＝ 索引 ＋ 1<br /> .判断循环尾 ()<br /> <br /> RegCloseKey (hKey)<br /> .版本 2<br /> <br /> .DLL命令 RegOpenKeyEx, 整数型, "advapi32.dll", "RegOpenKeyExA", , , 打开注册表项<br />     .参数 hKey, 整数型<br />     .参数 lpSubKey, 文本型<br />     .参数 ulOptions, 整数型<br />     .参数 samDesired, 整数型<br />     .参数 phkResult, 整数型, 传址<br /> <br /> .DLL命令 RegEnumKeyEx, 整数型, "advapi32.dll", "RegEnumKeyExA", , , 枚举子项<br />     .参数 hKey, 整数型<br />     .参数 dwIndex, 整数型<br />     .参数 lpName, 文本型, 传址<br />     .参数 lpcchName, 整数型, 传址<br />     .参数 lpReserved, 整数型<br />     .参数 lpClass, 文本型<br />     .参数 lpcchClass, 整数型<br />     .参数 lpftLastWriteTime, 整数型<br /> <br /> .DLL命令 RegCloseKey, 整数型, "advapi32.dll", "RegCloseKey", , , 关闭句柄<br />     .参数 hKey, 整数型