Set oShell = CreateObject("WScript.Shell")
Set oFS = CreateObject("Scripting.FileSystemObject")
sHomeFolder = oShell.ExpandEnvironmentStrings("%USERPROFILE%")
sJBDataFolder = oShell.ExpandEnvironmentStrings("%APPDATA%") + "JetBrains"
Set re = New RegExp
re.Global = True
re.IgnoreCase = True
re.Pattern = ".?(IntelliJIdea|GoLand|CLion|PyCharm|DataGrip|RubyMine|AppCode|PhpStorm|WebStorm|Rider).*"
Sub removeEval(ByVal file, ByVal sEvalPath)
bMatch = re.Test(file.Name)
If Not bMatch Then
Exit Sub
End If
If oFS.FolderExists(sEvalPath) Then
oFS.DeleteFolder sEvalPath, True
End If
End Sub
If oFS.FolderExists(sHomeFolder) Then
For Each oFile In oFS.GetFolder(sHomeFolder).SubFolders
removeEval oFile, sHomeFolder + "" + oFile.Name + "configeval"
Next
End If
If oFS.FolderExists(sJBDataFolder) Then
For Each oFile In oFS.GetFolder(sJBDataFolder).SubFolders
removeEval oFile, sJBDataFolder + "" + oFile.Name + "eval"
Next
End If
MsgBox "done"重置pycharm 30天试用期.
到期了每30分钟程序会要求重启。学习时本来写的就慢，半小时一会就到了，比较麻烦。
今天重装了一下，又多了30天的时间。
网上的破解，看了半天，也没有个能用的。
搜到了一个重置30的代码