vb优化进程内存

1、运行“Microsoft Visual Studio 2010”。

2、”vs“的窗口弹出后，找到菜单栏，鼠标左键单击标题为”文件（f）“的选项。

3、在弹出的列表中鼠标左键单击标题为”新建项目（p）“的项。

4、在弹出的标题为”新建项目“，鼠标左键选择标题为”Visual Basic“项，在选择标题为”WIndows“的项。再在右边的列表中选择标题为”Windows 窗体应用程序“。再鼠标左键单击标题为”确定“的按钮。

5、在一个背景为”白色"的窗口，且标题为“ForM1”的窗口中的空白处鼠标左键双击。

6、在新切换到的“代码编辑页面”的 “Public Class Form1”下写代码：Public Declare Function _优化内存 Lib "kernel32" Alias "SetProcessWorkingSetSize" (ByVal hProcess As Integer, ByVal dwMinimumWorkingSetSize As Integer, ByVal dwMaximumWorkingSetSize As Integer) As Integer Public Declare Function _打开当前进程 Lib "kernel32" Alias "GetCurrentProcess" () As Integer Public Declare Function _打开进程 Lib "kernel32" Alias "OpenProcess" (ByVal 访问级别 As Integer, ByVal 子进程继承 As Integer, ByVal 进程ID As Integer) As Integer

7、再在“ Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub”下写代码： Private Sub 优化内存(ByVal pid As Integer) Dim 操作句柄 As Integer If pid = -1 Then 操作句柄 = _打开当前进程() End If If pid <> -1 Then 操作句柄 = _打开进程(2035711, 0, pid) End If _优化内存(操作句柄, -1, -1) End Sub

8、最后在“Private Sub Form1_Load(ByVal sender As System.Object, ByVal 髫潋啜缅e As System.EventArgs) Handles MyBase.Load”下代码：***********************************优化内存(6789)***********************************再测试一下就OK喽~！

9、如果您高兴的的话，就投个票票喽~~