PrivateDeclareAutoFunction SetProcessWorkingSetSize Lib"kernel32.dll" (ByVal procHandle As IntPtr, ByVal min As Int32, ByVal max As Int32) AsBoolean
创建一个过程
PublicSub SetProcessWorkingSetSize() Try Dim Mem As Process Mem = Process.GetCurrentProcess() SetProcessWorkingSetSize(Mem.Handle, -1, -1) Catch ex As Exception MsgBox(ex.ToString) EndTry End Sub