利用脚本永久使用NoSQL Manager for MongoDB
大家都知道NoSQL Manager for MongoDB是一款非常强大的软件,但是我们使用这个软件只有15天,大家都是学生党花钱购买是不可能的,但是一次一次的删除文件也很麻烦所以我们上一点非常规的手段。
破解NoSQL Manager for MongoDB有两种方法:
第一种手动删除
- 删除C:\Users\(自己的用户名)\AppData\Roaming\NoSQL Manager Group文件夹。**PS:**还有一个问题,很多同学找不到AppData这个文件夹,那么不妨在我们查看哪里把显示隐藏文件夹给勾选上。
- 删除注册表:win+r 输入:regedit 删除NoSQL Manager Group注册表
- 删除C:\ProgramData\NoSQL Manager Group文件,删除这三个以后我们就有15天的使用时间。
第二种自动删除
我们可以用脚本来自动完成第一种步骤,这样就不需要在一次一次的去找文件删除。
' 定义删除文件的函数
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\(自己的用户名)\AppData\Roaming\NoSQL Manager Group" ' 要删除的第一个文件路径
filePath2 = "C:\ProgramData\NoSQL Manager Group" ' 要删除的第二个文件路径
regKeyPath = "SOFTWARE\NoSQL Manager Group" ' 要删除的注册表项路径
' 删除文件
DeleteFileOrFolder(filePath1)
DeleteFileOrFolder(filePath2)
' 删除注册表项
DeleteRegistryKey(regKeyPath)
上面就是我们的脚本代码。需要具体脚本的请私信我,上面代码也是全的。