لمعرفة حالة الذاكرة الحالية ومقدار المستخدم منها

كود :

' Author: Chong Long Choo

' Email: [EMAIL="chonglongchoo@hotmail.com"]chonglongchoo@hotmail.com[/EMAIL]

Private Declare Sub GlobalMemoryStatus Lib "kernel32" (lpBuffer _

As MemoryStatus)

Private Type MemoryStatus

dwLength As Long

dwMemoryLoad As Long

dwTotalPhys As Long

dwAvailPhys As Long

dwTotalPageFile As Long

dwAvailPageFile As Long

dwTotalVirtual As Long

dwAvailVirtual As Long

End Type

Private MemPoint As MemoryStatus

كود :

Public Property Get MemoryLoad() As Long

MemoryLoad = MemPoint.dwMemoryLoad

End Property

Public Property Get TotalPhysical() As Long

TotalPhysical = MemPoint.dwTotalPhys

End Property

Public Property Get AvailablePhysical() As Long

AvailablePhysical = MemPoint.dwAvailPhys

End Property

Public Property Get TotalPageFile() As Long

TotalPageFile = MemPoint.dwTotalPageFile

End Property

Public Property Get AvailablePageFile() As Long

AvailablePageFile = MemPoint.dwAvailPageFile

End Property

Public Property Get TotalVirtual() As Long

TotalVirtual = MemPoint.dwTotalVirtual

End Property

Public Property Get AvailableVirtual() As Long

AvailableVirtual = MemPoint.dwAvailVirtual

End Property

Private Sub Class_Initialize()

MemPoint.dwLength = LenB(MemPoint)

GlobalMemoryStatus MemPoint

End Sub