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、如果您高兴的的话，就投个票票喽~~