NoSQL Manager for MongoDB 破解原理来自此处
根据破解步骤编写vbs脚本
此脚本需要三个步骤,删除两个隐藏文件和一个注册表项
在使用脚本删除之前需要查看隐藏文件的路径,勾选隐藏的项目,来显示文件
VBScript的FileSystemObject
并不区分文件是否隐藏,所以不用书写隐藏文件路径
有一个当前用户的AppData目录,需要根据自己的用户来书写完整路径
需要替换的路径都已在代码中使用注释标注
代码如下
' 定义删除文件的函数
Sub DeleteFileOrFolder(filePath)
On Error Resume Next
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
' 检查是否存在文件或文件夹
If fso.FolderExists(filePath) Then
fso.DeleteFolder filePath, True ' 如果是文件夹,递归删除
WScript.Echo "文件夹 " & filePath & " 已删除。"
ElseIf fso.FileExists(filePath) Then
fso.DeleteFile filePath, True ' 如果是文件,直接删除
WScript.Echo "文件 " & filePath & " 已删除。"
Else
WScript.Echo "路径 " & filePath & " 不存在。"
End If
On Error GoTo 0 ' 恢复错误处理
End Sub
' 定义删除注册表项及其所有子项的函数
Sub DeleteRegistryKey(keyPath)
On Error Resume Next
Dim regObj, result
Set regObj = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
' 检查键是否存在
result = regObj.EnumKey(HKEY_CURRENT_USER, "SOFTWARE\NoSQL Manager Group")
If Err.Number = 0 Then
' 删除注册表项及其所有子项
regObj.DeleteKey HKEY_CURRENT_USER, "SOFTWARE\NoSQL Manager Group"
If Err.Number = 0 Then
WScript.Echo "注册表项 " & keyPath & " 已删除。"
Else
WScript.Echo "无法删除注册表项 " & keyPath & ": " & Err.Description
Err.Clear
End If
Else
WScript.Echo "注册表项 " & keyPath & " 不存在。"
End If
On Error GoTo 0
End Sub
' 使用示例
Dim filePath1, filePath2, regKeyPath
filePath1 = "C:\Users\Administrator\AppData\Roaming\NoSQL Manager Group" ' 要删除的第一个文件路径
filePath2 = "C:\ProgramData\NoSQL Manager Group" ' 要删除的第二个文件路径
regKeyPath = "SOFTWARE\NoSQL Manager Group" ' 要删除的注册表项路径
' 删除文件
DeleteFileOrFolder(filePath1)
DeleteFileOrFolder(filePath2)
' 删除注册表项
DeleteRegistryKey(regKeyPath)
查看执行效果
开心试用吧
使用windows的任务计划程序来定时执行vbs脚本
首先右击此电脑点击管理
在弹出的界面选择 任务计划程序,双击打开,点击右侧新建任务
随便填写任务名称,勾选红色方框中的选项
下一步是触发器,根据自己的需求来设置
新建操作,程序或脚本可以选择输入wscript
或 cscript
将vbs路径使用英文双引号包括放在添加参数选项框中
设置条件,当触发器生效后判断是否达到该条件再去执行,根据个人情况设置
设置默认即可
完成后打开任务历史记录进行查看执行日志
可以看到日志中显示的运行结果是操作成功完成