VB调用系统API函数——测试内存信息.docVIP

VB调用系统API函数——测试内存信息 hongdingjin 一、窗体设计界面 二、具体代码 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 hongdj As MemoryStatus Private Sub Timer1_Timer Call GlobalMemoryStatus hongdj Label2.Caption Format hongdj.dwTotalPhys / 1024 / 1024, 0.00 MB Label3.Caption Format hongdj.dwAvailPhys / 1024 / 1024, 0.00 MB Label4.Caption hongdj.dwMemoryLoad