NoSQL Manager for MongoDB 破解，一劳永逸VBScript自动执行脚本

最新推荐文章于 2025-03-13 11:46:56 发布

不必介怀

最新推荐文章于 2025-03-13 11:46:56 发布

阅读量1.9k

点赞数 29

文章标签： nosql mongodb 数据库

本文链接：https://blog.csdn.net/weixin_59912996/article/details/137664757

版权

NoSQL Manager for MongoDB 破解原理来自此处

NoSQL Manager for MongoDB 破解_nosql manager for mongodb 7.1.3-CSDN博客文章浏览阅读7.5k次，点赞2次，收藏15次。NoSQL Manager for MongoDB 破解删除这三个地方的东西就好了第一处：cmd运行 -->regedit HKEY_CURRENT_USER\Software\NoSQL Manager Group 第二处：删除该文件夹C:\ProgramData\NoSQL Manager Group 第三处：先备份appConfig.xml..._nosql manager for mongodb 7.1.3https://blog.csdn.net/zhangjm123/article/details/86628712

根据破解步骤编写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)