JetBrains IDE 활성화 방법 및 스크립트 예시

팁: 아래 코드는 데스크톱 우측 클릭하여 새 텍스트 문서를 생성한 후 확장자 .vbs로 변경합니다(활성화키 파일은 드라이브에서 다운로드 가능)

-----------------------------------------

- 목차:

확장자 표시
clion
pycharm
webstorm
idea
https://www.123pan.com/s/KwigTd-0LoJ.html?提取码:6666

확장자 표시{#1}

  1. Win+E를 눌러 '이 컴퓨터'를 열고
  2. '보기' 메뉴에서 '파일 확장자' 옵션을 선택합니다

본문 내용:

- clion 활성화 스크립트

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

product = "CLion"
agentConfigFile = "clion64.exe.vmoptions"
agentKeyFile = "clion.key"

Dim scriptPath, systemUser
scriptPath = oFS.GetFile(Wscript.ScriptFullName).ParentFolder.Path
systemUser = oShell.ExpandEnvironmentStrings("%APPDATA%")

jetPath = systemUser & "\JetBrains\"
If Not oFS.FolderExists(jetPath) Then
    MsgBox "먼저 " & product & "을 실행해 주세요!"
    WScript.Quit
End If

crackPath = systemUser & "\" & product

If oFS.FolderExists(crackPath) Then
    oFS.DeleteFolder crackPath, True
End If

oFS.CreateFolder crackPath

oFS.CreateFolder crackPath & "\config\"
scriptConfigPath = scriptPath & "\config\"
If oFS.FolderExists(scriptConfigPath) Then
    oFS.CopyFile scriptConfigPath & "*", crackPath & "\config\"
Else
    MsgBox "패키지를 완전히 압축 해제해 주세요!"
    WScript.Quit
End If

oFS.CreateFolder crackPath & "\plugins\"
scriptPluginsPath = scriptPath & "\plugins\"
If oFS.FolderExists(scriptPluginsPath) Then
    oFS.CopyFile scriptPluginsPath & "*", crackPath & "\plugins\"
Else
    MsgBox "패키지를 완전히 압축 해제해 주세요!"
    WScript.Quit
End If

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

existFlag = 0
Set allVersions = oFS.GetFolder(jetPath)
Set folders = allVersions.SubFolders
For Each folder In folders
    pos = InStr(folder.Name, product)
    If pos <> 0 Then
        existFlag = pos
        oFS.CopyFile scriptPath & "\" & agentConfigFile, folder.Path & "\", True
        oFS.CopyFile scriptPath & "\" & agentKeyFile, folder.Path & "\", True
        configPath = folder.Path & "\" & agentConfigFile
        ProcessVmOptions configPath
    End If
Next

Sub ProcessVmOptions(ByVal file)
    Dim line, newContent, matchFound
    Set oFile = oFS.OpenTextFile(file, 1, 0)

    newContent = ""
    Do Until oFile.AtEndOfStream
        line = oFile.ReadLine
        matchFound = re.Test(line)
        If Not matchFound Then
            newContent = newContent & line & vbLf
        End If
    Loop
    oFile.Close

    newContent = newContent & "--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:" & crackPath & "\active-agt.jar"
    Set oFile = oFS.OpenTextFile(file, 2, 0)
    oFile.Write newContent
    oFile.Close
End Sub

If existFlag <> 0 Then
    MsgBox "성공! 이제 " & product & "을 2099년까지 사용 가능합니다"
Else 
    MsgBox "먼저 " & product & "을 실행한 후 스크립트를 실행해 주세요!"
End If

- Pycharm 활성화 스크립트

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

product = "PyCharm"
agentConfigFile = "pycharm64.exe.vmoptions"
agentKeyFile = "pycharm.key"

Dim scriptPath, systemUser
scriptPath = oFS.GetFile(Wscript.ScriptFullName).ParentFolder.Path
systemUser = oShell.ExpandEnvironmentStrings("%APPDATA%")

jetPath = systemUser & "\JetBrains\"
If Not oFS.FolderExists(jetPath) Then
    MsgBox "먼저 " & product & "을 실행해 주세요!"
    WScript.Quit
End If

crackPath = systemUser & "\" & product

If oFS.FolderExists(crackPath) Then
    oFS.DeleteFolder crackPath, True
End If

oFS.CreateFolder crackPath

oFS.CreateFolder crackPath & "\config\"
scriptConfigPath = scriptPath & "\config\"
If oFS.FolderExists(scriptConfigPath) Then
    oFS.CopyFile scriptConfigPath & "*", crackPath & "\config\"
Else
    MsgBox "패키지를 완전히 압축 해제해 주세요!"
    WScript.Quit
End If

oFS.CreateFolder crackPath & "\plugins\"
scriptPluginsPath = scriptPath & "\plugins\"
If oFS.FolderExists(scriptPluginsPath) Then
    oFS.CopyFile scriptPluginsPath & "*", crackPath & "\plugins\"
Else
    MsgBox "패키지를 완전히 압축 해제해 주세요!"
    WScript.Quit
End If

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

existFlag = 0
Set allVersions = oFS.GetFolder(jetPath)
Set folders = allVersions.SubFolders
For Each folder In folders
    pos = InStr(folder.Name, product)
    If pos <> 0 Then
        existFlag = pos
        oFS.CopyFile scriptPath & "\" & agentConfigFile, folder.Path & "\", True
        oFS.CopyFile scriptPath & "\" & agentKeyFile, folder.Path & "\", True
        configPath = folder.Path & "\" & agentConfigFile
        ProcessVmOptions configPath
    End If
Next

Sub ProcessVmOptions(ByVal file)
    Dim line, newContent, matchFound
    Set oFile = oFS.OpenTextFile(file, 1, 0)

    newContent = ""
    Do Until oFile.AtEndOfStream
        line = oFile.ReadLine
        matchFound = re.Test(line)
        If Not matchFound Then
            newContent = newContent & line & vbLf
        End If
    Loop
    oFile.Close

    newContent = newContent & "--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:" & crackPath & "\active-agt.jar"
    Set oFile = oFS.OpenTextFile(file, 2, 0)
    oFile.Write newContent
    oFile.Close
End Sub

If existFlag <> 0 Then
    MsgBox "성공! 이제 " & product & "을 2099년까지 사용 가능합니다"
Else 
    MsgBox "먼저 " & product & "을 실행한 후 스크립트를 실행해 주세요!"
End If

- Webstorm 활성화 스크립트

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

product = "WebStorm"
agentConfigFile = "webstorm64.exe.vmoptions"
agentKeyFile = "webstorm.key"

Dim scriptPath, systemUser
scriptPath = oFS.GetFile(Wscript.ScriptFullName).ParentFolder.Path
systemUser = oShell.ExpandEnvironmentStrings("%APPDATA%")

jetPath = systemUser & "\JetBrains\"
If Not oFS.FolderExists(jetPath) Then
    MsgBox "먼저 " & product & "을 실행해 주세요!"
    WScript.Quit
End If

crackPath = systemUser & "\" & product

If oFS.FolderExists(crackPath) Then
    oFS.DeleteFolder crackPath, True
End If

oFS.CreateFolder crackPath

oFS.CreateFolder crackPath & "\config\"
scriptConfigPath = scriptPath & "\config\"
If oFS.FolderExists(scriptConfigPath) Then
    oFS.CopyFile scriptConfigPath & "*", crackPath & "\config\"
Else
    MsgBox "패키지를 완전히 압축 해제해 주세요!"
    WScript.Quit
End If

oFS.CreateFolder crackPath & "\plugins\"
scriptPluginsPath = scriptPath & "\plugins\"
If oFS.FolderExists(scriptPluginsPath) Then
    oFS.CopyFile scriptPluginsPath & "*", crackPath & "\plugins\"
Else
    MsgBox "패키지를 완전히 압축 해제해 주세요!"
    WScript.Quit
End If

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

existFlag = 0
Set allVersions = oFS.GetFolder(jetPath)
Set folders = allVersions.SubFolders
For Each folder In folders
    pos = InStr(folder.Name, product)
    If pos <> 0 Then
        existFlag = pos
        oFS.CopyFile scriptPath & "\" & agentConfigFile, folder.Path & "\", True
        oFS.CopyFile scriptPath & "\" & agentKeyFile, folder.Path & "\", True
        configPath = folder.Path & "\" & agentConfigFile
        ProcessVmOptions configPath
    End If
Next

Sub ProcessVmOptions(ByVal file)
    Dim line, newContent, matchFound
    Set oFile = oFS.OpenTextFile(file, 1, 0)

    newContent = ""
    Do Until oFile.AtEndOfStream
        line = oFile.ReadLine
        matchFound = re.Test(line)
        If Not matchFound Then
            newContent = newContent & line & vbLf
        End If
    Loop
    oFile.Close

    newContent = newContent & "--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:" & crackPath & "\active-agt.jar"
    Set oFile = oFS.OpenTextFile(file, 2, 0)
    oFile.Write newContent
    oFile.Close
End Sub

If existFlag <> 0 Then
    MsgBox "성공! 이제 " & product & "을 2099년까지 사용 가능합니다"
Else 
    MsgBox "먼저 " & product & "을 실행한 후 스크립트를 실행해 주세요!"
End If

- IDEA 활성화 스크립트

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

product = "IntelliJIdea"
agentConfigFile = "idea64.exe.vmoptions"
agentKeyFile = "idea.key"

Dim scriptPath, systemUser
scriptPath = oFS.GetFile(Wscript.ScriptFullName).ParentFolder.Path
systemUser = oShell.ExpandEnvironmentStrings("%APPDATA%")

jetPath = systemUser & "\JetBrains\"
If Not oFS.FolderExists(jetPath) Then
    MsgBox "먼저 " & product & "을 실행해 주세요!"
    WScript.Quit
End If

crackPath = systemUser & "\" & product

If oFS.FolderExists(crackPath) Then
    oFS.DeleteFolder crackPath, True
End If

oFS.CreateFolder crackPath

oFS.CreateFolder crackPath & "\config\"
scriptConfigPath = scriptPath & "\config\"
If oFS.FolderExists(scriptConfigPath) Then
    oFS.CopyFile scriptConfigPath & "*", crackPath & "\config\"
Else
    MsgBox "패키지를 완전히 압축 해제해 주세요!"
    WScript.Quit
End If

oFS.CreateFolder crackPath & "\plugins\"
scriptPluginsPath = scriptPath & "\plugins\"
If oFS.FolderExists(scriptPluginsPath) Then
    oFS.CopyFile scriptPluginsPath & "*", crackPath & "\plugins\"
Else
    MsgBox "패키지를 완전히 압축 해제해 주세요!"
    WScript.Quit
End If

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

existFlag = 0
Set allVersions = oFS.GetFolder(jetPath)
Set folders = allVersions.SubFolders
For Each folder In folders
    pos = InStr(folder.Name, product)
    If pos <> 0 Then
        existFlag = pos
        oFS.CopyFile scriptPath & "\" & agentConfigFile, folder.Path & "\", True
        oFS.CopyFile scriptPath & "\" & agentKeyFile, folder.Path & "\", True
        configPath = folder.Path & "\" & agentConfigFile
        ProcessVmOptions configPath
    End If
Next

Sub ProcessVmOptions(ByVal file)
    Dim line, newContent, matchFound
    Set oFile = oFS.OpenTextFile(file, 1, 0)

    newContent = ""
    Do Until oFile.AtEndOfStream
        line = oFile.ReadLine
        matchFound = re.Test(line)
        If Not matchFound Then
            newContent = newContent & line & vbLf
        End If
    Loop
    oFile.Close

    newContent = newContent & "--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:" & crackPath & "\active-agt.jar"
    Set oFile = oFS.OpenTextFile(file, 2, 0)
    oFile.Write newContent
    oFile.Close
End Sub

If existFlag <> 0 Then
    MsgBox "성공! 이제 " & product & "을 2099년까지 사용 가능합니다"
Else 
    MsgBox "먼저 " & product & "을 실행한 후 스크립트를 실행해 주세요!"
End If

태그: JetBrains IDE VBScript 활성화 소프트웨어

6월 26일 17:14에 게시됨

인기 태그

©2026 괴물 클럽