一键激活 pycharm 亲测好

Set oShell = CreateObject("WScript.Shell")

Set oEnv = oShell.Environment("USER")

Set oFS = CreateObject("Scripting.FileSystemObject")

 

software = "PyCharm"

javaagentFile = "pycharm64.exe.vmoptions"

javaagentkey = "pycharm.key"

 

Dim scriptPath, systemUser

scriptPath = oFS.GetFile(Wscript.ScriptFullName).ParentFolder.Path

systemUser = oShell.ExpandEnvironmentStrings("%APPDATA%")

 

jetPath = systemUser & "\JetBrains\"

if oFS.folderExists(jetPath) Then

    

Else

    MsgBox "Please launch your " & software & " first!"

    wscript.quit

End If

 

jetRiderCrackPath = systemUser & "\" & software

 

if oFS.folderExists(jetRiderCrackPath) Then

    oFS.deleteFolder jetRiderCrackPath, True 

End If

 

oFS.createFolder jetRiderCrackPath

 

oFS.createFolder jetRiderCrackPath & "\config\"

scriptPathConfig = scriptPath & "\config\"

if oFS.folderExists(scriptPathConfig) Then

    oFS.CopyFile scriptPathConfig & "*", jetRiderCrackPath & "\config\"

Else

    MsgBox "Pls unzip your crack package at all!"

    wscript.quit

End If

 

oFS.createFolder jetRiderCrackPath & "\plugins\"

scriptPathPlugins = scriptPath & "\plugins\"

if oFS.folderExists(scriptPathPlugins) Then

    oFS.CopyFile scriptPathPlugins & "*", jetRiderCrackPath & "\plugins\"

Else

    MsgBox "Pls unzip your crack package at all!"

    wscript.quit

End If

 

oFS.CopyFile scriptPath & "\active-agt.jar", jetRiderCrackPath & "\"

 

Exist = 0

Set allVersions = oFS.GetFolder(jetPath)

Set folders = allVersions.SubFolders

For Each folder in folders

    pos = InStr(folder.name, software) 

    If pos <> 0 Then

        Exist = pos

        oFS.CopyFile scriptPath & "\" & javaagentFile, folder.path & "\", True

        oFS.CopyFile scriptPath & "\" & javaagentkey, folder.path & "\", True

        versionPath = folder.path & "\" & javaagentFile

        ProcessVmOptions versionPath

    End If    

Next

 

Sub ProcessVmOptions(ByVal file)

    Dim sLine, sNewContent, bMatch

    Set oFile = oFS.OpenTextFile(file, 1, 0)

 

    sNewContent = ""

    D

（新建文本文档复制粘贴上面代码并修改后缀名为 vbs 即可）

安装pycharm后退出程序, 一定要退, 不退出破解不了

双击 "PyCharm激活.vbs" 文件, 即可破解

如果出现弹窗显示 "Successlll Now you can enjoy PyCharm to 2099" 表示破解成功

出现其他内容的显示, 请私聊~