'在窗體裏放個?Label1?和?Timer1?並復制下面的內容即可
Private?Type?LARGE_INTEGER
LowPart?As?Long
HighPart?As?Long
End?Type
Private?Type?MEMORYSTATUSEX
dwLength?As?Long
dwMemoryLoad?As?Long
ullTotalPhys?As?LARGE_INTEGER
ullAvailPhys?As?LARGE_INTEGER
ullTotalPageFile?As?LARGE_INTEGER
ullAvailPageFile?As?LARGE_INTEGER
ullTotalVirtual?As?LARGE_INTEGER
ullAvailVirtual?As?LARGE_INTEGER
ullAvailExtendedVirtual?As?LARGE_INTEGER
End?Type
Private?Declare?Function?GlobalMemoryStatusEx?Lib?"kernel32.dll"?(ByRef?lpBuffer?As?MEMORYSTATUSEX)?As?Long
Private?Declare?Sub?CopyMemory?Lib?"kernel32.dll"?Alias?"RtlMoveMemory"?(Destination?As?Any,?Source?As?Any,?ByVal?Length?As?Long)
Private?Sub?DisplayMemory()
Dim?MemStat?As?MEMORYSTATUSEX
Dim?TotalPhys?As?Currency
Dim?AvailPhys?As?Currency
Dim?POPSize?As?Currency
Dim?TotalPageFile?As?Currency
Dim?AvailPageFile?As?Currency
Dim?TotalVirtual?As?Currency
Dim?AvailVirtual?As?Currency
With?MemStat
MemStat.dwLength?=?Len(MemStat)
GlobalMemoryStatusEx?MemStat
POPSize?=?.dwLength
TotalPhys?=?Int(LargeIntToCurrency(.ullTotalPhys)?/?1024?^?2)
AvailPhys?=?Int(LargeIntToCurrency(.ullAvailPhys)?/?1024?^?2)
TotalPageFile?=?Int(LargeIntToCurrency(.ullTotalPageFile)?/?1024?^?2)
AvailPageFile?=?Int(LargeIntToCurrency(.ullAvailPageFile)?/?1024?^?2)
TotalVirtual?=?Int(LargeIntToCurrency(.ullTotalVirtual)?/?1024?^?2)
AvailVirtual?=?Int(LargeIntToCurrency(.ullAvailVirtual)?/?1024?^?2)
Label1.Caption?=?"入棧大小:"?&?POPSize?&?"?Bytes"?&?vbCrLf?&?_
"物理內存大小:"?&?TotalPhys?&?"MB"?&?vbCrLf?&?_
"已用物理內存:"?&?TotalPhys?-?AvailPhys?&?"MB"?&?vbCrLf?&?_
"可用物理內存:"?&?Int((AvailPhys?/?TotalPhys)?*?100)?&?"%"?&?vbCrLf?&?_
"可用物理內存:"?&?AvailPhys?&?"MB"?&?vbCrLf?&?vbCrLf?&?_
"虛擬內存大小:"?&?TotalVirtual?&?"MB"?&?vbCrLf?&?_
"已用虛擬內存:"?&?TotalVirtual?-?AvailVirtual?&?"MB"?&?vbCrLf?&?_
"可用虛擬內存:"?&?Int((AvailVirtual?/?TotalVirtual)?*?100)?&?"%"?&?vbCrLf?&?_
"可用虛擬內存:"?&?AvailVirtual?&?"MB"?&?vbCrLf?&?vbCrLf?&?_
"?總計:"?&?TotalPageFile?&?"MB"?&?vbCrLf?&?_
"?已用:"?&?TotalPageFile?-?AvailPageFile?&?"MB"?&?vbCrLf?&?_
"?可用:"?&?AvailPageFile?&?"MB"?&?vbCrLf?&?vbCrLf?&?_
"-------------------------"?&?vbCrLf?&?_
"已經使用了:?"?&?.dwMemoryLoad?&?"%"
Me.Caption?=?"已用內存:"?&?.dwMemoryLoad?&?"%"
End?With
End?Sub
Private?Function?LargeIntToCurrency(liInput?As?LARGE_INTEGER)?As?Currency
CopyMemory?LargeIntToCurrency,?liInput,?LenB(liInput)
LargeIntToCurrency?=?LargeIntToCurrency?*?10000
End?Function
Private?Sub?Form_Load()
Me.Height?=?4000
Me.Width?=?2750
Me.Label1.Height?=?Me.Height
Me.Label1.Width?=?Me.Width
Me.Top?=?(Screen.Height?-?Me.Height)?/?2
Me.Left?=?(Screen.Width?-?Me.Width)?/?2
Timer1.Interval?=?100
Timer1.Enabled?=?True
End?Sub
Private?Sub?Timer1_Timer()
DisplayMemoryEnd?Sub