JetBrains激活码(JetBrains 2022 激活跳过)

JetBrains激活码(JetBrains 2022 激活跳过)

JetBrains激活码(JetBrains

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 JetBrains激活码 = 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 JetBrains激活码"

今天的文章
JetBrains激活码(JetBrains 2022 激活跳过)分享到此就结束了,感谢您的阅读。

版权声明:本文内容由互联网用户自发贡献,该文观点仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 举报,一经查实,本站将立刻删除。
如需转载请保留出处:https://bianchenghao.cn/98495.html

(0)
编程小号编程小号
上一篇 2024-06-22 16:30
下一篇 2024-06-22 16:46

相关推荐