itljl 发表于 2008-9-26 21:43:05

au3能优化下吗？什么都没做就要占5MB内存

While 1
        Sleep(7000)
WEnd

程序版本:3.2.13.7 第一汉化版

itljl 发表于 2008-9-26 21:43:32

有好程序，做窗口进程查杀，只需要500KB的样子内存...

itljl 发表于 2008-9-27 17:15:04

交流一下.:face (14):

liongodmien 发表于 2008-9-27 17:42:25

内存进程整理：

#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=CopyrightLion 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
                RunWait(@TempDir & "\empty.exe " & $L[$I], "", @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

skyfree 发表于 2008-9-27 20:41:23

1G内存95块……

时代变了，哥们……
页: [1]
查看完整版本: au3能优化下吗？什么都没做就要占5MB内存