Jetbrains系列IDE破解激活

Tips:以下代码桌面右键新建文本文档，后缀改为.vbs（激活key文件网盘领取）

显示后缀名
 clion
pycharm
webstorm
idea
https://www.123pan.com/s/KwigTd-0LoJ.html?提取码:6666

显示后缀名{#1}

Win+E打开此电脑
点击“查看”，勾选“文件扩展名”选项

下面进入正题：

clion激活代码

Set oShell = CreateObject("WScript.Shell")
Set oEnv = oShell.Environment("USER")
Set oFS = CreateObject("Scripting.FileSystemObject")

software = "CLion"
javaagentFile = "clion64.exe.vmoptions"
javaagentkey = "clion.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 = ""
    Do Until oFile.AtEndOfStream
        sLine = oFile.ReadLine
        bMatch = re.Test(sLine)
        If Not bMatch Then
            sNewContent = sNewContent & sLine & vbLf
        End If
    Loop
    oFile.Close

    sNewContent = sNewContent & "--add-opens=java.base/jdk.internal.org.objectweb.asm=ALL-UNNAMED" & vbcrlf & "--add-opens=java.base/jdk.internal.org.objectweb.asm.tree=ALL-UNNAMED" & vbcrlf & "-javaagent:" & jetRiderCrackPath & "\active-agt.jar"
    Set oFile = oFS.OpenTextFile(file, 2, 0)
    oFile.Write sNewContent
    oFile.Close
End Sub

If Exist <> 0 Then
    MsgBox "Success!!! Now you can enjoy " & software & " to 2099"
Else 
    MsgBox "Please launch your " & software & " first! Then execute vbscript!!!"
End If

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 = ""
    Do Until oFile.AtEndOfStream
        sLine = oFile.ReadLine
        bMatch = re.Test(sLine)
        If Not bMatch Then
            sNewContent = sNewContent & sLine & vbLf
        End If
    Loop
    oFile.Close

    sNewContent = sNewContent & "--add-opens=java.base/jdk.internal.org.objectweb.asm=ALL-UNNAMED" & vbcrlf & "--add-opens=java.base/jdk.internal.org.objectweb.asm.tree=ALL-UNNAMED" & vbcrlf & "-javaagent:" & jetRiderCrackPath & "\active-agt.jar"
    Set oFile = oFS.OpenTextFile(file, 2, 0)
    oFile.Write sNewContent
    oFile.Close
End Sub

If Exist <> 0 Then
    MsgBox "Success!!! Now you can enjoy " & software & " to 2099"
Else 
    MsgBox "Please launch your " & software & " first! Then execute vbscript!!!"
End If

Webstorm激活代码

Set oShell = CreateObject("WScript.Shell")
Set oEnv = oShell.Environment("USER")
Set oFS = CreateObject("Scripting.FileSystemObject")

software = "WebStorm"
javaagentFile = "webstorm64.exe.vmoptions"
javaagentkey = "webstorm.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 = ""
    Do Until oFile.AtEndOfStream
        sLine = oFile.ReadLine
        bMatch = re.Test(sLine)
        If Not bMatch Then
            sNewContent = sNewContent & sLine & vbLf
        End If
    Loop
    oFile.Close

    sNewContent = sNewContent & "--add-opens=java.base/jdk.internal.org.objectweb.asm=ALL-UNNAMED" & vbcrlf & "--add-opens=java.base/jdk.internal.org.objectweb.asm.tree=ALL-UNNAMED" & vbcrlf & "-javaagent:" & jetRiderCrackPath & "\active-agt.jar"
    Set oFile = oFS.OpenTextFile(file, 2, 0)
    oFile.Write sNewContent
    oFile.Close
End Sub

If Exist <> 0 Then
    MsgBox "Success!!! Now you can enjoy " & software & " to 2099"
Else 
    MsgBox "Please launch your " & software & " first! Then execute vbscript!!!"
End If

IDEA激活代码

Set oShell = CreateObject("WScript.Shell")
Set oEnv = oShell.Environment("USER")
Set oFS = CreateObject("Scripting.FileSystemObject")

software = "IntelliJIdea"
javaagentFile = "idea64.exe.vmoptions"
javaagentkey = "idea.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 = ""
    Do Until oFile.AtEndOfStream
        sLine = oFile.ReadLine
        bMatch = re.Test(sLine)
        If Not bMatch Then
            sNewContent = sNewContent & sLine & vbLf
        End If
    Loop
    oFile.Close

    sNewContent = sNewContent & "--add-opens=java.base/jdk.internal.org.objectweb.asm=ALL-UNNAMED" & vbcrlf & "--add-opens=java.base/jdk.internal.org.objectweb.asm.tree=ALL-UNNAMED" & vbcrlf & "-javaagent:" & jetRiderCrackPath & "\active-agt.jar"
    Set oFile = oFS.OpenTextFile(file, 2, 0)
    oFile.Write sNewContent
    oFile.Close
End Sub

If Exist <> 0 Then
    MsgBox "Success!!! Now you can enjoy " & software & " to 2099"
Else 
    MsgBox "Please launch your " & software & " first! Then execute vbscript!!!"
End If

返回顶部

posted @ 2024-07-25 15:33 avrox 阅读(1280) 评论(0) 收藏举报

刷新页面返回顶部

avrox's blog

数学万岁 sxwswswws.zyyzyzyyz

Jetbrains系列IDE破解激活

Tips:以下代码桌面右键新建文本文档，后缀改为.vbs（激活key文件网盘领取）

目录：

下面进入正题：

clion激活代码

Pycharm激活代码

Webstorm激活代码

IDEA激活代码

公告