CPU使用率监测工具【原创】 - vb吧

level 6

eagle846 楼主

超酷、小巧性能监视器，做了两种风格，一个是用折线表示，一个是用ProgressBar表示
我个人比较喜欢折线表示的，下面是截图:

2009年09月19日 04点09分 1

level 6

eagle846 楼主

折线

2009年09月19日 04点09分 2

level 6

hackervoice

代码呢？不开源啊！左面那两个圆的是系统自带的吧！好像是win7或者是vista系统！

2009年09月23日 20点09分 3

level 6

eagle846 楼主

还须要增加用户自定义设置的功能,左边的是Vista自带的,我只是用它来证明我取的数据是
正确的

2009年09月24日 04点09分 4

level 6

eagle846 楼主

终于写完了
下载地址:http://e.ys168.com/?eagle846

2009年09月24日 12点09分 5

GoRaymond32

为什么打不开？

2015年01月16日 14点01分

level 6

eagle846 楼主

.
有错误的话麻烦大家给我指出来噢
那个设置窗口位置的是仿VB里面的,还不错,用起来很方便,希望大家喜欢
.

2009年09月24日 12点09分 6

level 6

eagle846 楼主

CPU使用率监测核心代码
'------获取当前CPU使用率------
   strComputer = "."
    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
    Set Colitems = objWMIService.ExecQuery( _
        "SELECT * FROM Win32_Processor", , 48)
    Label1.Caption = "CPU: " & objitem.LoadPercentage & "%"
'------获取当前CPU名称------
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set cpus = objWMIService.ExecQuery("Select * from Win32_Processor", , 48)
For Each cpu In cpus
  Label2.Caption = Trim(cpu.Name)
Next

2009年09月24日 12点09分 7

level 12

swx1995

我以为用了GDI+技术，原来没有，我一会儿写一个GDI+超级绚丽版本，支持半透明等等things.

2009年09月24日 12点09分 8

level 6

eagle846 楼主

GDI我还不会呢，正想学着呢
我的用的是picturebox，不过也有透明的效果

2009年09月26日 11点09分 9

level 6

eagle846 楼主

上面的代码发错了
    strComputer = "."
    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
    Set Colitems = objWMIService.ExecQuery( _
        "SELECT * FROM Win32_Processor", , 48)
    For Each objitem In Colitems
       Label3.Caption = "CPU: " & objitem.LoadPercentage & "%"
    Next

2009年09月26日 11点09分 10