声明如下函数
Private Declare Auto Function SetProcessWorkingSetSize Lib "kernel32.dll" (ByVal procHandle As IntPtr, ByVal min As Int32, ByVal max As Int32) As Boolean

 

创建一个过程

Public Sub SetProcessWorkingSetSize()
Try
Dim Mem As Process
Mem
= Process.GetCurrentProcess()
SetProcessWorkingSetSize(Mem.Handle,
-1, -1)
Catch ex As Exception
MsgBox(ex.ToString)
End Try
End Sub

 

 


调用这个过程后你就会发现,你的程序占用的内存变小了

调用方法:在做完占资源的事后使用,比如webbrowser,在他WebBrowser1_DocumentCompleted里面加入效果最好!

 

SetProcessWorkingSetSize()

 

 

打开来,至少减少了40%内存占用量!爆强

最好用的办法,建一个timer控件,或已有timer控件,在timer事件中加入

SetProcessWorkingSetSize()

这样你的程序再大也就是几百K内存了!注意timer在formload时一定要enable哦!但是还没有仔细测试过,不知道会不会影响进程!

jerry注:测试成功,爆强,回收内存效率极高