一个内存清理的小工具（有定时功能）

Nsqs

1. <#
   
2. .SYNOPSIS
   
3.     Win11 内存净化器（v 1.0.0）
   
4. .DESCRIPTION
   
5.     适配 PowerShell 5.1 / Win11，提供：
   
6.     · 手动模式：三步独立动作
   
7.     · 自动模式：循环定时释放
   
8.     · 调试模式：通过 -DebugInterval 传入自定义间隔（如 "600"、"1:30"、"1:30:00"），开启调试菜单；使用 -PassThru 无效化调试模式（采用默认值）
   
9.     · 自适应单位显示（支持负数，如 -1.32 GB）
   
10. #>
    
11. #Requires -RunAsAdministrator
    
12. param(
    
13.     [string]$DebugInterval,
    
14.     [switch]$PassThru
    
15. )
    
16. 
    
17. Clear-Host
    
18. 
    
19. # ========== ANSI 色彩 ==========
    
20. $esc = [char]0x1b
    
21. $reset       = "$esc[0m"
    
22. $cyan        = "$esc[36m"
    
23. $green       = "$esc[32m"
    
24. $yellow      = "$esc[33m"
    
25. $gray        = "$esc[90m"
    
26. $white       = "$esc[37m"
    
27. $red         = "$esc[31m"
    
28. $blue        = "$esc[34m"
    
29. $brightCyan  = "$esc[96m"
    
30. 
    
31. $cLine       = $cyan
    
32. $cTitle      = $green
    
33. $cStep       = $yellow
    
34. $cOK         = $green
    
35. $cWarn       = $yellow
    
36. $cText       = $white
    
37. $cDim        = $gray
    
38. $cLabel      = $blue
    
39. $cBracket    = $white
    
40. $cBracketTxt = $brightCyan
    
41. $cTime       = $yellow
    
42. 
    
43. # ========== 核心 API 加载 ==========
    
44. Add-Type @"
    
45. using System;
    
46. using System.Runtime.InteropServices;
    
47. public static class NativeMethods
    
48. {
    
49.     [DllImport("kernel32.dll")]
    
50.     public static extern bool SetProcessWorkingSetSize(IntPtr hProcess, int dwMinimumWorkingSetSize, int dwMaximumWorkingSetSize);
    
51.     [DllImport("ntdll.dll", SetLastError = true)]
    
52.     public static extern int NtSetSystemInformation(int SystemInformationClass, IntPtr SystemInformation, int SystemInformationLength);
    
53.     public const int SystemMemoryListInformation = 0x50;
    
54. }
    
55. public enum MemoryListCommand : int
    
56. {
    
57.     MemoryPurgeStandbyList = 4,
    
58.     MemoryPurgeLowPriorityStandbyList = 5
    
59. }
    
60. "@
    
61. 
    
62. # ========== 辅助函数 ==========
    
63. function Format-MemorySize {
    
64.     param([long]$Bytes)
    
65.     $abs = [Math]::Abs($Bytes)
    
66.     $div = if ($abs -ge 1GB) { 1GB }
    
67.            elseif ($abs -ge 1MB) { 1MB }
    
68.            elseif ($abs -ge 1KB) { 1KB }
    
69.            else { 1 }
    
70.     $unit = if ($div -eq 1GB) { "GB" }
    
71.             elseif ($div -eq 1MB) { "MB" }
    
72.             elseif ($div -eq 1KB) { "KB" }
    
73.             else { "Byte" }
    
74.     $value = $Bytes / $div
    
75.     "{0:N2} {1}" -f $value, $unit
    
76. }
    
77. 
    
78. function Get-FreeMemoryBytes {
    
79.     (Get-CimInstance Win32_OperatingSystem).FreePhysicalMemory * 1024
    
80. }
    
81. 
    
82. function Compress-WorkingSets {
    
83.     Get-Process -ErrorAction SilentlyContinue | ForEach-Object {
    
84.         try { [NativeMethods]::SetProcessWorkingSetSize($_.Handle, -1, -1) | Out-Null } catch { }
    
85.     }
    
86. }
    
87. function Clear-StandbyLists {
    
88.     $cmd = [MemoryListCommand]::MemoryPurgeStandbyList
    
89.     $ptr = [System.Runtime.InteropServices.Marshal]::AllocHGlobal(4)
    
90.     [System.Runtime.InteropServices.Marshal]::WriteInt32($ptr, $cmd)
    
91.     [NativeMethods]::NtSetSystemInformation([NativeMethods]::SystemMemoryListInformation, $ptr, 4) | Out-Null
    
92.     [System.Runtime.InteropServices.Marshal]::FreeHGlobal($ptr)
    
93. 
    
94.     $cmd = [MemoryListCommand]::MemoryPurgeLowPriorityStandbyList
    
95.     $ptr = [System.Runtime.InteropServices.Marshal]::AllocHGlobal(4)
    
96.     [System.Runtime.InteropServices.Marshal]::WriteInt32($ptr, $cmd)
    
97.     [NativeMethods]::NtSetSystemInformation([NativeMethods]::SystemMemoryListInformation, $ptr, 4) | Out-Null
    
98.     [System.Runtime.InteropServices.Marshal]::FreeHGlobal($ptr)
    
99. }
    
100. function Invoke-DotNetGC {
     
101.     [System.GC]::Collect()
     
102.     [System.GC]::WaitForPendingFinalizers()
     
103.     [System.GC]::Collect()
     
104. }
     
105. 
     
106. function Clear-MemoryAll {
     
107.     Compress-WorkingSets
     
108.     Clear-StandbyLists
     
109.     Invoke-DotNetGC
     
110. }
     
111. 
     
112. # ========== 调试模式开关函数 ==========
     
113. function Enable-DebugMode {
     
114.     param(
     
115.         [string]$Interval,
     
116.         [switch]$PassThru
     
117.     )
     
118.     if ($PassThru) {
     
119.         Write-Host "调试模式无效化 (PassThru)，使用默认常数值" -ForegroundColor Gray
     
120.         return
     
121.     }
     
122. 
     
123.     $seconds = 0
     
124.     if ($Interval -match '^(\d+):(\d{1,2}):(\d{1,2})$') {
     
125.         $seconds = [int]$Matches[1]*3600 + [int]$Matches[2]*60 + [int]$Matches[3]
     
126.     }
     
127.     elseif ($Interval -match '^(\d+):(\d{1,2})$') {
     
128.         $seconds = [int]$Matches[1]*60 + [int]$Matches[2]
     
129.     }
     
130.     elseif ($Interval -match '^\d+$') {
     
131.         $seconds = [int]$Interval
     
132.     }
     
133.     else {
     
134.         Write-Host "无法解析时间格式，使用默认15秒" -ForegroundColor Yellow
     
135.         $seconds = 15
     
136.     }
     
137.     if ($seconds -le 0) { $seconds = 15 }
     
138.     $global:DebugIntervalSeconds = $seconds
     
139.     Write-Host "调试模式已激活，自动释放间隔：$seconds 秒" -ForegroundColor Green
     
140. }
     
141. 
     
142. if ($DebugInterval) {
     
143.     Enable-DebugMode -Interval $DebugInterval -PassThru:$PassThru
     
144. }
     
145. 
     
146. # ========== 手动释放差值记录 ==========
     
147. $global:lastManualDelta = $null
     
148. 
     
149. # ========== 手动模式步骤 ==========
     
150. function Invoke-ManualStep {
     
151.     param(
     
152.         [string]$InProgressText,
     
153.         [string]$CompletedText,
     
154.         [scriptblock]$Action
     
155.     )
     
156.     $line = [System.Console]::CursorTop
     
157.     Write-Host $InProgressText
     
158.     & $Action
     
159.     Start-Sleep -Milliseconds 1500
     
160.     [System.Console]::SetCursorPosition(0, $line)
     
161.     Write-Host "$CompletedText                    " -NoNewline
     
162.     Write-Host ""
     
163. }
     
164. 
     
165. function ManualRun {
     
166.     Clear-Host
     
167.     [Console]::CursorVisible = $false
     
168. 
     
169.     Write-Host "$cLine┌─────────────────────────────────────┐$reset"
     
170.     Write-Host "$cLine│$cTitle        手动释放 - 仪式感模式        $cLine│$reset"
     
171.     Write-Host "$cLine└─────────────────────────────────────┘$reset`n"
     
172. 
     
173.     $before = Get-FreeMemoryBytes
     
174.     Write-Host "  ${cLabel}当前空闲内存  : ${reset}${cText}$(Format-MemorySize $before)$reset`n"
     
175. 
     
176.     $procs = @(Get-Process -ErrorAction SilentlyContinue)
     
177.     $procCount = $procs.Count
     
178.     Invoke-ManualStep `
     
179.         "  $cStep⏸️  正在释放进程闲置内存 ${cBracket}(${cBracketTxt}总计 $procCount 个进程${cBracket})$reset" `
     
180.         "  $cOK✅ 释放进程闲置内存 完成 ${cBracket}(${cBracketTxt}已处理 $procCount 个进程${cBracket})$reset" `
     
181.         { Compress-WorkingSets }
     
182. 
     
183.     Invoke-ManualStep `
     
184.         "  $cStep⏸️  正在清理系统缓存...$reset" `
     
185.         "  $cOK✅ 清理系统缓存 完成$reset" `
     
186.         { Clear-StandbyLists }
     
187. 
     
188.     Invoke-ManualStep `
     
189.         "  $cStep⏸️  正在整理托管内存...$reset" `
     
190.         "  $cOK✅ 整理托管内存 完成$reset" `
     
191.         { Invoke-DotNetGC }
     
192. 
     
193.     $after = Get-FreeMemoryBytes
     
194.     $delta = $after - $before
     
195. 
     
196.     Write-Host "`n  ${cDim}───────────────────────────────────$reset"
     
197.     Write-Host "  ${cLabel}优化后空闲内存 : ${reset}${cText}$(Format-MemorySize $after)$reset"
     
198.     if ($delta -gt 0) {
     
199.         Write-Host "  ${cLabel}释放量         : ${reset}${green}+$(Format-MemorySize $delta)$reset"
     
200.     } else {
     
201.         Write-Host "  ${cLabel}释放量         : ${reset}${cDim}内存已处于最佳状态，无需释放$reset"
     
202.     }
     
203. 
     
204.     if ($null -ne $global:lastManualDelta) {
     
205.         $diff = $delta - $global:lastManualDelta
     
206.         $diffColor = if ($diff -ge 0) { $green } else { $red }
     
207.         $sign = if ($diff -ge 0) { "+" } else { "" }
     
208.         Write-Host "  ${cLabel}比上次         : ${reset}${diffColor}$sign$(Format-MemorySize $diff)$reset"
     
209.     }
     
210.     $global:lastManualDelta = $delta
     
211. 
     
212.     Write-Host "  ${cDim}───────────────────────────────────$reset`n"
     
213. 
     
214.     [Console]::CursorVisible = $true
     
215.     Write-Host "按任意键返回主菜单..."
     
216.     cmd /c pause | Out-Null
     
217. }
     
218. 
     
219. # ========== 自动模式 ==========
     
220. $script:lastDelta = 0
     
221. $script:nextRunTime = Get-Date
     
222. 
     
223. function Show-MarqueCleanup {
     
224.     param([scriptblock]$Action)
     
225.     $line = [System.Console]::CursorTop
     
226.     Write-Host "  $cLine┌──────────────────────────────────┐$reset"
     
227.     Write-Host "  $cLine│$cStep  ⏸️ 正在静默释放内存...          │$reset"
     
228.     Write-Host "  $cLine└──────────────────────────────────┘$reset"
     
229.     $boxEndLine = [System.Console]::CursorTop - 1
     
230.     & $Action
     
231.     $spin = @('⠋','⠙','⠹','⠸','⠼','⠴','⠦','⠧','⠇','⠏')
     
232.     for ($i=0; $i -lt 20; $i++) {
     
233.         [System.Console]::SetCursorPosition(0, $boxEndLine - 1)
     
234.         Write-Host "  $cLine│$cStep  ⏸️ 正在静默释放内存... $($spin[$i % 10])        $cLine│$reset"
     
235.         Start-Sleep -Milliseconds 100
     
236.     }
     
237.     [System.Console]::SetCursorPosition(0, $boxEndLine - 2)
     
238.     Write-Host "  $cLine┌──────────────────────────────────┐$reset"
     
239.     Write-Host "  $cLine│$cOK  ✅ 静默释放完成                 $cLine│$reset"
     
240.     Write-Host "  $cLine└──────────────────────────────────┘$reset"
     
241.     Write-Host ""
     
242. }
     
243. 
     
244. function Draw-IdleBox {
     
245.     param([datetime]$NextRun)
     
246.     $timeStr = $NextRun.ToString("yyyy.MM.dd HH:mm")
     
247.     Write-Host "$cLine┌─────────────────────────────────────┐$reset"
     
248.     Write-Host "$cLine│$cText       计划下次在 ${cTime}$timeStr   $cLine│$reset"
     
249.     Write-Host "$cLine│$cText         静默释放内存                $cLine│$reset"
     
250.     Write-Host "$cLine└─────────────────────────────────────┘$reset"
     
251. }
     
252. 
     
253. function AutoRun {
     
254.     param([int]$IntervalSeconds)
     
255.     Clear-Host
     
256.     [Console]::CursorVisible = $false
     
257. 
     
258.     Write-Host "$cLine┌─────────────────────────────────────┐$reset"
     
259.     Write-Host "$cLine│$cTitle         自动模式（跑马灯）          $cLine│$reset"
     
260.     Write-Host "$cLine└─────────────────────────────────────┘$reset`n"
     
261. 
     
262.     $before = Get-FreeMemoryBytes
     
263.     Show-MarqueCleanup { Clear-MemoryAll }
     
264.     $after = Get-FreeMemoryBytes
     
265.     $delta = $after - $before
     
266.     $script:lastDelta = $delta
     
267. 
     
268.     Write-Host "  ${cLabel}本次释放量 : ${reset}${cText}$(Format-MemorySize $delta)$reset"
     
269.     Write-Host "  ${cDim}${cBracket}(${cBracketTxt}首次释放，无历史比较${cBracket})$reset`n"
     
270.     Start-Sleep -Seconds 1.5
     
271. 
     
272.     $script:nextRunTime = (Get-Date).AddSeconds($IntervalSeconds)
     
273.     Clear-Host
     
274.     [System.Console]::SetCursorPosition(0, 0)
     
275.     Draw-IdleBox -NextRun $script:nextRunTime
     
276. 
     
277.     while ($true) {
     
278.         $waitSeconds = [math]::Max(1, ($script:nextRunTime - (Get-Date)).TotalSeconds)
     
279.         Start-Sleep -Seconds ([int]($waitSeconds))
     
280.         if ((Get-Date) -ge $script:nextRunTime) {
     
281.             Clear-Host
     
282.             [System.Console]::SetCursorPosition(0, 0)
     
283. 
     
284.             $b = Get-FreeMemoryBytes
     
285.             Show-MarqueCleanup { Clear-MemoryAll }
     
286.             $a = Get-FreeMemoryBytes
     
287.             $d = $a - $b
     
288. 
     
289.             Write-Host "  ${cLabel}本次释放量 : ${reset}${cText}$(Format-MemorySize $d)$reset"
     
290.             if ($script:lastDelta -ne 0) {
     
291.                 $diff = $d - $script:lastDelta
     
292.                 $diffColor = if ($diff -ge 0) { $green } else { $red }
     
293.                 $sign = if ($diff -ge 0) { "+" } else { "" }
     
294.                 Write-Host "  ${cLabel}比上次     : ${reset}${diffColor}$sign$(Format-MemorySize $diff)$reset"
     
295.             } else {
     
296.                 Write-Host "  ${cDim}${cBracket}(${cBracketTxt}首次释放，无历史比较${cBracket})$reset"
     
297.             }
     
298.             $script:lastDelta = $d
     
299.             $script:nextRunTime = (Get-Date).AddSeconds($IntervalSeconds)
     
300. 
     
301.             Start-Sleep -Seconds 2
     
302.             Clear-Host
     
303.             [System.Console]::SetCursorPosition(0, 0)
     
304.             Draw-IdleBox -NextRun $script:nextRunTime
     
305.         }
     
306.     }
     
307. }
     
308. 
     
309. # ========== 主菜单 ==========
     
310. function Show-MainMenu {
     
311.     while ($true) {
     
312.         Clear-Host
     
313.         Write-Host "$cLine┌─────────────────────────────────────┐$reset"
     
314.         Write-Host "$cLine│$cTitle      Win11 内存净化器           $cLine│$reset"
     
315.         Write-Host "$cLine└─────────────────────────────────────┘$reset`n"
     
316.         Write-Host "  ${cText}1. 手动运行  ${cBracket}(${cBracketTxt}三步仪式感${cBracket})$reset"
     
317.         Write-Host "  ${cText}2. 自动运行  ${cBracket}(${cBracketTxt}定时静默释放${cBracket})$reset"
     
318.         Write-Host "  ${cText}3. 退出$reset"
     
319.         Write-Host ""
     
320.         $choice = Read-Host "  请选择 (1/2/3)"
     
321. 
     
322.         switch ($choice) {
     
323.             '1' { ManualRun }
     
324.             '2' {
     
325.                 Clear-Host
     
326.                 Write-Host "  ${cText}选择自动释放间隔：$reset"
     
327.                 Write-Host "  ${cText}1. ${cBracketTxt}30 分钟$reset"
     
328.                 Write-Host "  ${cText}2. ${cBracketTxt}1 小时$reset"
     
329.                 Write-Host "  ${cText}3. ${cBracketTxt}2 小时$reset"
     
330.                 Write-Host "  ${cText}4. ${cBracketTxt}3 小时$reset"
     
331.                 Write-Host "  ${cText}5. ${cBracketTxt}5 小时$reset"
     
332.                 if ($global:DebugIntervalSeconds -gt 0) {
     
333.                     Write-Host "  ${cText}6. ${cDim}测试模式 ${cBracket}(${cBracketTxt}当前间隔: $global:DebugIntervalSeconds 秒${cBracket})$reset"
     
334.                 }
     
335.                 Write-Host ""
     
336.                 $sub = Read-Host "  输入数字"
     
337.                 $interval = switch ($sub) {
     
338.                     '1' { 30 * 60 }
     
339.                     '2' { 60 * 60 }
     
340.                     '3' { 120 * 60 }
     
341.                     '4' { 180 * 60 }
     
342.                     '5' { 300 * 60 }
     
343.                     '6' { if ($global:DebugIntervalSeconds -gt 0) { $global:DebugIntervalSeconds } else { Write-Host "无效选项，返回主菜单"; Start-Sleep 1; continue } }
     
344.                     default { Write-Host "无效选项，返回主菜单"; Start-Sleep 1; continue }
     
345.                 }
     
346.                 AutoRun -IntervalSeconds $interval
     
347.             }
     
348.             '3' {
     
349.                 Write-Host "`n  ${cText}已退出，愉快！$reset`n"
     
350.                 exit
     
351.             }
     
352.             default {
     
353.                 Write-Host "  ${cWarn}无效选项，请重新输入$reset"
     
354.                 Start-Sleep 1
     
355.             }
     
356.         }
     
357.     }
     
358. }
     
359. 
     
360. <# ========== 入口 ==========
     
361. 调试模式函数参数方法：
     
362.    Enable-DebugMode -Interval 600
     
363.    Enable-DebugMode -Interval 00:00:05
     
364.    Enable-DebugMode -Interval 1:30 -PassThru # Pass 用于采用默认模式
     
365. #>
     
366. Show-MainMenu
     

复制代码

zhiwen

这个好，正需要