内存进程整理:
#Region ;**** 参数创建于 ACNWrapper_GUI ****
#AutoIt3Wrapper_icon=Photoshop.ico
#AutoIt3Wrapper_outfile=内存整理器.exe
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_Res_Comment=整理所有进程,以回收一定的内存空间,其核心是微软的内存回收程序!由用户设定时间后台自动整理,按ALT+PAUSE立即整理,按ALT+DEL退出!
#AutoIt3Wrapper_Res_Description=进程内存整理器
#AutoIt3Wrapper_Res_Fileversion=2008.922.9.31
#AutoIt3Wrapper_Res_LegalCopyright=Copyright Lion God Mien
#AutoIt3Wrapper_Res_Field=制作|Lion God Mien
#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
If WinExists("RAM_Clean") Then Exit
AutoItWinSetTitle("RAM_Clean")
FileInstall("empty.exe", @TempDir & "\empty.exe")
HotKeySet("!{Pause}", "Clean")
HotKeySet("!{Del}", "Delete")
Break(0)
Local $T, $I, $L
Input_timer()
TraySetToolTip("自动整理间隔为:" & $T & "分钟" & @LF & "按ALT+PAUSE立即整理,按ALT+DEL退出!")
While 1
TrayTip("", "开始整理内存...", 1)
Call("Clean")
TrayTip("", "内存整理结束...", 1)
Sleep(2000)
TrayTip("", "", 0)
Sleep(($T * 60000) - 2000)
WEnd
Func Clean()
$L = ProcessList()
For $I = 1 To $L[0][0]
RunWait(@TempDir & "\empty.exe " & $L[$I][1], "", @SW_HIDE)
Next
EndFunc
Func Delete()
FileDelete(@TempDir & "\empty.exe")
Exit
EndFunc
Func Input_timer()
$T = InputBox("内存整理", "自动整理的间隔时间(分钟)", 10, " 2", 190, 115, -1, -1, 6)
Select
Case @error =1 Or @error = 3
Exit
Case @error = 2
$T = 10
Case StringIsDigit($T) = 0
Input_timer()
EndSelect
EndFunc
|