对系统内存进行操作

[zwnylsf]

如题，我想用VB.NET对系统内存进行操作，比如内存整理之类的，有什么方法吗？

[wenxiang_tune]

那是要钱的！

[tjficcbw]

那只有对进程下手了
这个是杀死进程的过程

        '释放对象
        Dim pro As Process
        For Each pro In Process.GetProcesses
            If pro.ProcessName = "EXCEL" Then
                pro.Kill()
            End If
        Next

在这你想“杀死”谁，就“杀死”谁
我这杀死EXCEL，你可要注意别杀死系统进程，这样就重启机器了

[zwnylsf]

这样就算是是内存整理吗？不是吧，我想要的是不是kill已经存在的进程，我可不想强行关闭我在用的东西。

[yanlongwuhui]

'這個程式需要四個Label,一個TextBox,一個Timer,一個Command
Private Type MEMORYSTATUS
        dwLength As Long 'MEMORYSTATUS結構大小
        dwMemoryLoad As Long '系統記憶體工作負荷的估計 介於0~100間 _
        這個值只供比較用 95/98 NT演算法都不同 將來也可能改
        dwTotalPhys As Long ' 實體記憶體大小
        dwAvailPhys As Long ' 剩餘的實體記憶體
        dwTotalPageFile As Long '記憶體頁可儲存的位元組數
        dwAvailPageFile As Long '剩餘記憶體頁大小
        dwTotalVirtual As Long '每個處理程序可用位址大小
        dwAvailVirtual As Long
End Type
Private Declare Sub GlobalMemoryStatus Lib "kernel32" (lpBuffer As MEMORYSTATUS)
Dim lpBuffer As MEMORYSTATUS
Dim lTotalMem As Long

Private Sub Command1_Click()
Me.Caption = "開始釋放記憶體"
Timer1.Enabled = False
Command1.Enabled = False
Dim i As Long, s() As Byte
i = CLng(Text1.Text) * 1024 * 1024
ReDim s(i)
Erase s
Timer1.Enabled = True
Command1.Enabled = True
Me.Caption = "釋放完成"
End Sub

Private Sub Form_Load()
lpBuffer.dwLength = Len(lpBuffer)
GlobalMemoryStatus lpBuffer
lTotalMem = lpBuffer.dwTotalPhys \ 1024 \ 1024
Label1.Caption = "總記憶體大小 = " & lpBuffer.dwTotalPhys & " Bytes" 
Label2.Caption = "可用記憶體大小 = " & lpBuffer.dwAvailPhys & " Bytes"
Label3.Caption = "剩餘記憶體記憶體 = " & lpBuffer.dwAvailPhys / lpBuffer.dwTotalPhys * 100 & " %"
Command1.Caption = "釋放記憶體"
Text1.Text = lTotalMem
Timer1.Enabled = True
Timer1.Interval = 1000
MsgBox "Text1內的值是所要產生的Buffer大小 單位是MB" & Chr(10) & Chr(13) & _
"預設值是記憶體大小 當然也可以大於這個值" & Chr(10) & Chr(13) & _
"不過通常會有反效果 建議是使用這個值" & Chr(10) & Chr(13) & _
"或使用小於這個值的數 多執行幾次"
End Sub

Private Sub Timer1_Timer()
GlobalMemoryStatus lpBuffer
Label2.Caption = "可用記憶體大小 = " & lpBuffer.dwAvailPhys & " Bytes"
Label3.Caption = "剩餘記憶體記憶體 = " & lpBuffer.dwAvailPhys / lpBuffer.dwTotalPhys * 100 & " %"

Label4.Caption = "建議使用" & lpBuffer.dwAvailPhys \ 1000 \ 1000 + 3 & "這個值去釋放"
End Sub 

用memturbo监视内存，能恢复内存。

[zwnylsf]

哦，上面的使用api函数来做，自己要写个值，那有没有让系统自己自动释放内存的方法吗？

[HimeTale]

C#应该可以。
vb不用api的话，好像只能处理托管的东西

[zwnylsf]

等高手解答，我很想知道原理

[gyc]

VB.NET想要直接控制内存
可能比较费劲
如果需要，可能需要调用系统的API来实现

COM互操作那块那里，或许可以，不过，非常有局限，而且控制后，很容易让软件不稳定


至于，目前的我见到的内存整理，
都是用撑大内存发，使劲消耗内存，吧物理内存的使用都让系统移动到虚拟内存里， 然后再释放程序， 获得物理内存的空白
但效果实在不怎么样
估计，没有磁盘整理的效果好， 不过，毕竟只内存，还是有点问题的

除非，能在系统内核模式下，对内存使用作了优化， 或者可以提交到内核模式， 然后 挂起系统（程序会暂停，对网络是致命的），整理内存， 或者 再下次使用的时候，启动哟话机制

[兔子-顾问]

http://topic.csdn.net/t/20061103/09/5130031.html

[清晨曦月]

[Quote=引用 3 楼 tjficcbw 的回复:]
那只有对进程下手了
这个是杀死进程的过程

VB.NET code


'释放对象
Dim pro As Process
For Each pro In Process.GetProcesses
If pro.ProcessName = "EXCEL" Then
pro.Kill()
End If
Next




在这你想“杀死”谁，就“杀死”谁
我这杀死EXCEL，你可要注意别杀死系统进程，这样就重启机器了
[/Quote]
误导+误导

[Ny-6000]

为什么要这样操作呢．

这样很容易造成整个系统发生不可预料的事情．