每隔十秒钟记录CPU,内存的使用情况

Question

如何写程序
每隔十秒钟记录CPU,内存的使用情况

Answer 1

用Timer 和 API函数可实现

Answer 2

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 TypeDim min As MEMORYSTATUS
Private Sub Timer1_Timer()
GlobalMemoryStatus min
Text1.Text = Val(min.dwAvailPhys) / 1024 '可用物理内存
Text2.Text = Val(min.dwAvailVirtual) / 1024  '可用虚拟内存，其他参数根据MEMORYSTATUS结构了参数可以明显的看出来，（具有高三的英语水平就可以）
End Sub
至于CPU的使用情况需要在注册表了查询，这里留给其他高手完成。