如何获取.net中的cpu信息？

3

的System.Management Namespace 提供访问一组丰富的有关系统，设备和仪表的Windows管理规范（WMI）基础设施应用的管理信息和管理事件。

Win32 Processor WMI类表示可以解释运行在Windows操作系统上的计算机上的指令序列的设备。在多处理器计算机上，每个处理器都存在一个Win32_Processor类的实例。该类包括一个Processor family type字段，编码诸如AMD Opteron处理器系列之类的东西。

C# issuing WMI query的一个例子是在页面的末尾。

来源

2008-12-04 12:29:35 gimel

11

请注意，这是从VS2003：

using(ManagementObjectSearcher win32Proc = new ManagementObjectSearcher("select * from Win32_Processor"),   
    win32CompSys = new ManagementObjectSearcher("select * from Win32_ComputerSystem"), 
     win32Memory = new ManagementObjectSearcher("select * from Win32_PhysicalMemory")) 
      { 
       foreach (ManagementObject obj in win32Proc.Get()) 
       { 
        clockSpeed = obj["CurrentClockSpeed"].ToString(); 
        procName = obj["Name"].ToString(); 
        manufacturer = obj["Manufacturer"].ToString(); 
        version = obj["Version"].ToString(); 
       }

来源

2008-12-04 13:41:31 WACM161

+3

注意，“CurrentClockSpeed”是不是你应该寻找确定MHz的财产（Windows在低利用率时可以降低大多数现代处理器的功耗，从而节省能源）。相反，您应该看看“MaxClockSpeed” - 这是Windows可以为处理器提供时钟的最大时钟速度。 – BrainSlugs83 2013-05-30 01:21:32

0

此代码将获得CPU性能

Imports System.Management 



    Private Sub InsertInfo() 
       lstView.Items.Clear() 

       Dim searcher As New ManagementObjectSearcher("select * from Win32_Processor") 

       Try 
        For Each share As ManagementObject In searcher.Get() 

         Dim grp As ListViewGroup 
         Try 
          grp = lstView.Groups.Add(share("Name").ToString(), share("Name").ToString()) 
         Catch 
          grp = lstView.Groups.Add(share.ToString(), share.ToString()) 
         End Try 

         If share.Properties.Count <= 0 Then 
          MessageBox.Show("No Information Available", "No Info", MessageBoxButtons.OK, MessageBoxIcon.Information) 
          Return 
         End If 


         For Each PC As PropertyData In share.Properties 

          Dim item As New ListViewItem(grp) 
          If lstView.Items.Count Mod 2 <> 0 Then 
           item.BackColor = Color.White 
          Else 
           item.BackColor = Color.WhiteSmoke 
          End If 

          item.Text = PC.Name 

          If PC.Value IsNot Nothing AndAlso PC.Value.ToString().Length > 0 Then 
           Select Case PC.Value.GetType().ToString() 
            Case "System.String[]" 
             Dim str As String() = DirectCast(PC.Value, String()) 

             Dim str2 As String = "" 
             For Each st As String In str 
              str2 += st & " " 
             Next 

             item.SubItems.Add(str2) 

             Exit Select 
            Case "System.UInt16[]" 
             Dim shortData As UShort() = DirectCast(PC.Value, UShort()) 


             Dim tstr2 As String = "" 
             For Each st As UShort In shortData 
              tstr2 += st.ToString() & " " 
             Next 

             item.SubItems.Add(tstr2) 

             Exit Select 
            Case Else 

             item.SubItems.Add(PC.Value.ToString()) 
             Exit Select 
           End Select 
          Else 
           Continue For 
          End If 
          lstView.Items.Add(item) 
         Next 
        Next 


       Catch exp As Exception 
        MessageBox.Show("can't get data because of the followeing error " & vbLf & exp.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Information) 
       End Try 


       End Sub

来源

2016-02-11 13:41:10 KhaledDev

如何获取.net中的cpu信息？

回答

相关问题