减少艾尔登法环卡顿，设置小蓝熊的CPU亲和性、CPU优先级

软件一：法环的理头布鲁酷马小软件

脚本一：减少艾尔登法环卡顿，设置小蓝熊的CPU亲和性、CPU优先级.ps1

# 适用于Windows系统
# @时间    : 2024-06-30
# @作者    : 三巧(https://blog.csdn.net/qq_39124701)
# @文章链接: https://blog.csdn.net/qq_39124701/article/details/140038965
# @文件名  : 减少艾尔登法环卡顿，设置小蓝熊的CPU亲和性、CPU优先级.ps1
# @使用方法: 打开记事本，将所有代码复制到记事本中，保存文件时修改文件后缀为".ps1"(文件的编码方式选择UTF-8)。
#            在游戏启动后，右键该文件，点击"使用 PowerShell 运行"即可(一般是右键菜单第二项)。
# @自动退出: 代码结尾修改代码即可
# @进阶方法: 请使用 Process Lasso 软件



# 定义设置CPU亲和性的函数
function Set-ProcessCpuAffinity {
    param(
        [Diagnostics.Process]$Process,
        [int[]]$Affinity
    )
    
    # 获取Process的句柄
    $handle = $Process.Handle
    $processAffinityMask = 0
    $systemAffinityMask = 0

    # 循环设置CPU亲和性掩码
    for ($i = 0; $i -lt $Affinity.Length; $i++) {
        $cpu = $Affinity[$i]
        $processAffinityMask = $processAffinityMask -bor [int](1 -shl $cpu)
        $systemAffinityMask = $systemAffinityMask -bor [int](1 -shl $cpu)
    }

    # 设置进程亲和性
    $success = [Kernel32]::SetProcessAffinityMask($handle, $processAffinityMask)
    if (-not $success) {
        Write-Error "Unable to set process affinity."
    }

    # 设置系统亲和性
    $success = [Kernel32]::SetProcessAffinityMask($handle, $systemAffinityMask)
    if (-not $success) {
        Write-Error "Unable to set system affinity."
    }
}

# 导入Kernel32.dll
Add-Type -TypeDefinition @"
    using System;
    using System.Runtime.InteropServices;

    public class Kernel32 {
        [DllImport("kernel32.dll", SetLastError = true)]
        public static extern bool SetProcessAffinityMask(IntPtr handle, IntPtr affinityMask);
    }
"@



# 定义要设置CPU亲和性的CPU编号数组（EAC）
# $cpuAffinity = 1, 2  # 例如，只使用CPU 1和CPU 2
$cpuAffinity = 0  # 只使用CPU0

# 获取已经运行的 EasyAntiCheat_EOS.exe 进程对象
$eac = Get-Process -Name "EasyAntiCheat_EOS" -ErrorAction SilentlyContinue

if ($null -ne $eac) {
    # 调用函数设置CPU亲和性
    Set-ProcessCpuAffinity -Process $eac -Affinity $cpuAffinity


    # 定义要设置的优先级（Idle：空闲）
    #  PriorityClass RealTime  ，High，AboveNormal，Normal，BelowNormal，Idle
    #  (任务管理器)    实时    ， 高 ， 高于正常  ， 正常 ， 低于正常  ， 低
    # (ProcessLasso)实时(最高) ， 高 ， 高于标准  ， 标准 ， 低于标准  ，空闲
    $priorityClass = [System.Diagnostics.ProcessPriorityClass]::Idle
    # 设置进程的优先级
    $eac.PriorityClass = $priorityClass
    # 显示设置结果
    if ($eac.PriorityClass -eq $priorityClass) {
        Write-Host "EasyAntiCheat_EOS.exe is set to $($eac.PriorityClass)"
    } else {
        Write-Error "Failed to set the priority category for EasyAntiCheat_EOS.exe."
    }
} else {
    Write-Host "EasyAntiCheat_EOS.exe is not running. Please start the Elden Ring."
}



Write-Host ""
Write-Host "The script has completed."
Write-Host "If you want the script to automatically exit, add the '#' symbol before 'Read Host'"
# 如果想让该脚本自动退出，在Read-Host前添加"#"符号（本脚本有且仅有一个Read-Host语句）
# 如果使用Windows PowerShell ISE软件编辑本脚本，Read-Host这一行显示为绿色说明本脚本将自动退出
# 在自动退出的情况下无法查看可能出现的报错信息
Read-Host -Prompt "Press Enter to quit"

脚本二：设置艾尔登法环进程的CPU优先级.bat

REM 适用于Windows系统
REM @时间    : 2024-06-30
REM @作者    : 三巧(https://blog.csdn.net/qq_39124701)
REM @文章链接: https://blog.csdn.net/qq_39124701/article/details/140038965
REM @文件名  : 设置艾尔登法环进程的CPU优先级.bat
REM @使用方法: 打开记事本，将所有代码复制到记事本中，保存文件时修改文件后缀为".bat"(文件的编码方式选择UTF-8)。
REM            双击该文件后输入选项即可。

@echo off


:Menu
cls
echo Select an option:
echo 1. Set Registry Key(set the CPU priority of the EldenRing to high)
echo 2. Delete Registry Key(restore default)
echo 3. Exit
echo.
echo Enter your choice (1-3):
set /p choice=""

if "%choice%"=="1" goto SetRegistry
if "%choice%"=="2" goto DeleteRegistry
if "%choice%"=="3" goto End
echo. & echo Invalid choice. Please try again.
pause
goto Menu

:SetRegistry
cls
echo Setting registry key...
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\eldenring.exe\PerfOptions" /v "CpuPriorityClass" /t REG_DWORD /d 0x00000003 /f
if %errorlevel% == 0 (
    echo Registry key added/modified successfully.
) else (
    echo Failed to add/modify registry key.
)
echo.
pause
goto Menu

:DeleteRegistry
cls
echo Deleting registry key...
reg delete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\eldenring.exe\PerfOptions" /v "CpuPriorityClass" /f
if %errorlevel% == 0 (
    echo Registry key deleted successfully.
) else (
    echo Failed to delete registry key.
)
echo.
pause
goto Menu

:End
echo.
pause
exit

脚本三：设置艾尔登法环进程的CPU优先级.vbs

' 适用于Windows系统
' @时间    : 2024-07-04
' @作者    : 三巧(https://blog.csdn.net/qq_39124701)
' @文章链接: https://blog.csdn.net/qq_39124701/article/details/140038965
' @文件名  : 设置艾尔登法环进程的CPU优先级.vbs
' @使用方法: 打开记事本，将所有代码复制到记事本中，保存文件时修改文件后缀为".vbs"(文件的编码方式选择UTF-8)。
'            双击该文件后选择选项即可。

Option Explicit

Dim objShell
Set objShell = CreateObject("WScript.Shell")

' 定义注册表项路径
Const strRegPath = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\eldenring.exe\PerfOptions"

' 尝试读取CpuPriorityClass的值
On Error Resume Next
Dim strValue
strValue = objShell.RegRead(strRegPath & "\CpuPriorityClass")
If Err.Number <> 0 Then
    ' 处理错误（例如，注册表项或值不存在）
    ' MsgBox "注册表项 '" & strRegPath & "' 不存在或无法读取。", vbInformation, "错误"
    Err.Clear ' 清除错误状态
    strValue = "未设置" ' 设置一个默认值
End If
On Error GoTo 0 ' 恢复正常的错误处理

' 4=实时
' 3=高
' 6=高于正常值
' 2=正常
' 5=低于正常
' 1=空闲
Dim CpuPriorityClassValue
If strValue = "4" Then
    CpuPriorityClassValue = "当前艾尔登法环进程的CPU优先级为'实时', 这是错误的设置, 建议设置为'正常'或者'高'。"
ElseIf strValue = "3" Then
    CpuPriorityClassValue = "当前艾尔登法环进程的CPU优先级为'高', 建议保持不变或设置为'正常'。"
ElseIf strValue = "6" Then
    CpuPriorityClassValue = "当前艾尔登法环进程的CPU优先级为'高于正常'。"
ElseIf strValue = "2" Then
    CpuPriorityClassValue = "当前艾尔登法环进程的CPU优先级为'正常'。"
ElseIf strValue = "5" Then
    CpuPriorityClassValue = "当前艾尔登法环进程的CPU优先级为'低于正常', 建议设置为'正常'或者'高'。"
ElseIf strValue = "1" Then
    CpuPriorityClassValue = "当前艾尔登法环进程的CPU优先级为'低', 这是不建议的设置, 建议设置为'正常'或者'高'。"
Else
    CpuPriorityClassValue = "未设置或获取失败, 建议保持不变或设置为'高'。strValue:" & strValue
End If

Dim userChoice
userChoice = MsgBox(CpuPriorityClassValue & vbCrLf & vbCrLf & "点击' 是  ', 设置艾尔登法环进程的CPU优先级为'高'。" & vbCrLf & "点击' 否  ', 恢复默认。" & vbCrLf & "点击'取消', 直接退出。", vbYesNoCancel, "设置注册表中艾尔登法环进程的CPU优先级")
If userChoice = vbYes Then
    ' 尝试设置注册表值
    On Error Resume Next
    ' 尝试将 CpuPriorityClass 设置为 3
    objShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\eldenring.exe\PerfOptions" & "\" & "CpuPriorityClass", "3", "REG_DWORD"
    If Err.Number <> 0 Then
        ' 处理错误（例如，注册表项或值不存在，或者没有足够的权限）
        MsgBox "无法设置注册表值。错误号: " & Err.Number & ", 描述: " & Err.Description, vbCritical, "错误"
        Err.Clear ' 清除错误状态
    Else
        MsgBox "已设置艾尔登法环进程的CPU优先级为'高'。", vbInformation, "成功"
    End If

    On Error GoTo 0 ' 恢复正常的错误处理
ElseIf userChoice = vbNo Then
    ' 尝试删除注册表值
    On Error Resume Next
    ' 尝试删除 CpuPriorityClass
    objShell.RegDelete strRegPath & "\CpuPriorityClass"
    If Err.Number <> 0 Then
        ' 处理错误（例如，注册表项或值不存在，或者没有足够的权限）
        MsgBox "无法删除注册表值。错误号: " & Err.Number & ", 描述: " & Err.Description, vbCritical, "错误"
        Err.Clear ' 清除错误状态
    Else
        MsgBox "已恢复默认。", vbInformation, "成功"
    End If

    On Error GoTo 0 ' 恢复正常的错误处理
Else
    WScript.Quit
End If

' 清理
Set objShell = Nothing