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

page8 2004-12-27 11:31:45
如何写程序
每隔十秒钟记录CPU,内存的使用情况
...全文
190 5 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
cindytsai 2004-12-27
  • 打赏
  • 举报
回复
楼主也可以搜索一下,这方面的贴子也不少
laviewpbt 2004-12-27
  • 打赏
  • 举报
回复
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

Dim 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的使用情况需要在注册表了查询,这里留给其他高手完成。
gg137zeus 2004-12-27
  • 打赏
  • 举报
回复
分太少拉
newsuperstar 2004-12-27
  • 打赏
  • 举报
回复
用Timer 和 API函数可实现
cindytsai 2004-12-27
  • 打赏
  • 举报
回复
学习

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧