想问高手一个问题，怎么样在VB.net中不调用DLL来读取CPU的各项信息？用WMI可以吗？好象没有看到相应的信息嘛！ 问题点数：20、回复次数：22
回复1:怎么样读取CPU信息？
顶一下！
回复2:怎么样读取CPU信息？
就是WMI
回复3:怎么样读取CPU信息？
可是我看WMI里好象没有读取CPU的嘛？大哥指示一下，别的硬件信息都能读到的。
回复4:怎么样读取CPU信息？
Dim search As New ManagementObjectSearcher("SELECT * FROM Win32_ComputerSystem")
Dim search As New ManagementObjectSearcher("SELECT * FROM Win32_OperatingSystem")
回复5:怎么样读取CPU信息？
Dim query As New SelectQuery("Win32_bios")
回复6:怎么样读取CPU信息？
自己看看，我没用过，只是看过
回复7:怎么样读取CPU信息？
大哥，那些好象都不是读CPU的嘛~~~！
回复8:怎么样读取CPU信息？
WMI 可以访问的信息类型有:
Win32_1394Controller
Win32_BaseBoard
Win32_Battery
Win32_BIOS
Win32_Bus
Win32_CacheMemory
Win32_CDROMDrive
Win32_CurrentProbe
Win32_DesktopMonitor
Win32_DeviceMemoryAddress
Win32_DiskDrive
Win32_DisplayConfiguration
Win32_DisplayControllerConfiguration
Win32_DMAChannel
Win32_Fan
Win32_FloppyController
Win32_FloppyDrive
Win32_HeatPipe
Win32_IDEController
Win32_InfraredDevice
Win32_IRQResource
Win32_Keyboard
Win32_MemoryArray
Win32_MemoryDevice
Win32_MotherboardDevice
Win32_NetworkAdapter
Win32_NetworkAdapterConfiguration
Win32_OnBoardDevice
Win32_ParallelPort
Win32_PCMCIAController
Win32_PhysicalMemory
Win32_PhysicalMemoryArray
Win32_PnPEntity
Win32_PointingDevice
Win32_PortableBattery
Win32_PortConnector
Win32_PortResource
Win32_POTSModem
Win32_PowerManagementEvent
Win32_Printer
Win32_PrinterConfiguration
Win32_PrintJob
Win32_Processor
Win32_Refrigeration
Win32_SerialPort
Win32_SerialPortConfiguration
Win32_SMBIOSMemory
Win32_SoundDevice
Win32_SystemEnclosure
Win32_SystemMemoryResource
Win32_SystemSlot
Win32_TapeDrive
Win32_TemperatureProbe
Win32_UninterruptiblePowerSupply
Win32_USBController
Win32_VideoConfiguration
Win32_VideoController
Win32_VoltageProbe
回复9:怎么样读取CPU信息？
哈，再给你查查
回复10:怎么样读取CPU信息？
试试，我要回去了，好运：
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Wmi As New System.Management.ManagementObjectSearcher("SELECT * FROM Win32_Processor")
Dim Uint32 As String
Dim f As Management.PropertyData
For Each WmiObj As ManagementObject In Wmi.Get
For Each f In WmiObj.Properties
Dim v As String
If f.Value Is Nothing Then
v = ""
Else
v = f.Value.ToString
End If
Console.WriteLine(f.Name & ": " & v)
Next
Next
End Sub
回复11:怎么样读取CPU信息？
我的电脑是：
AddressWidth: 32
Architecture: 0
Availability: 3
Caption: x86 Family 15 Model 2 Stepping 4
ConfigManagerErrorCode:
ConfigManagerUserConfig:
CpuStatus: 1
CreationClassName: Win32_Processor
CurrentClockSpeed: 1991
CurrentVoltage: 33
DataWidth: 32
Description: x86 Family 15 Model 2 Stepping 4
DeviceID: CPU0
ErrorCleared:
ErrorDescription:
ExtClock: 100
Family: 178
InstallDate:
L2CacheSize: 512
L2CacheSpeed: 1991
LastErrorCode:
Level: 15
LoadPercentage: 13
Manufacturer: GenuineIntel
MaxClockSpeed: 1991
Name: Intel(R) Pentium(R) 4 CPU 2.00GHz
OtherFamilyDescription:
PNPDeviceID:
PowerManagementCapabilities:
PowerManagementSupported: False
ProcessorId: 3FEBFBFF00000F24
ProcessorType: 3
Revision: 516
Role: CPU
SocketDesignation: Socket 478
Status: OK
StatusInfo: 3
Stepping: 4
SystemCreationClassName: Win32_ComputerSystem
SystemName: FK-A09-05
UniqueId:
UpgradeMethod: 4
Version: 型号 2，步进 4
VoltageCaps:
回复12:怎么样读取CPU信息？
是不是太差劲了点，还是两年前配的。
回复13:怎么样读取CPU信息？
晚安
回复14:怎么样读取CPU信息？
大哥你太强了，崇拜你，以后跟着你混了。
回复15:怎么样读取CPU信息？
收藏~
回复16:怎么样读取CPU信息？
本文汇集了在.NET中得到计算机硬件信息的一些功能。
得到显示器分辨率
Dim X As Short = System.Windows.Forms.Screen.PrimaryScreen.Bounds.Width
Dim Y As Short = System.Windows.Forms.Screen.PrimaryScreen.Bounds.Height
MsgBox("您的显示器分辨率是：" & X & " X " & Y)
得到特殊文件夹的路径
'"Desktop"桌面文件夹路径
MsgBox(Environment.GetFolderPath(Environment.SpecialFolder.DesktopDirectory))
'"Favorites"收藏夹路径
MsgBox(Environment.GetFolderPath(Environment.SpecialFolder.Favorites))
'"Application Data"路径
MsgBox(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData))
'通用写法
'Dim SPEC As String = Environment.GetFolderPath(Environment.SpecialFolder.XXXXXXX)
'XXXXXXX是特殊文件夹的名字
得到操作系统版本信息
MsgBox(Environment.OSVersion.ToString)
得到当前登录的用户名
MsgBox(Environment.UserName)
得到当前应用程序的路径
MsgBox(Environment.CurrentDirectory)
打开和关闭CD-ROM
'先新建模块
Module mciAPIModule
Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" _
(ByVal lpstrCommand As String, ByVal lpstrReturnString As String, _
ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As Integer
End Module
'打开CD-ROM
Dim lRet As Long
lRet = mciSendString("set cdAudio door open", 0&, 0, 0)
'关闭CD-ROM
Dim lRet As Long
lRet = mciSendString("set cdAudio door Closed", 0&, 0, 0)
'更多请参见
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/multimed/mmcmdstr_8eyc.asp
得到计算机IP和计算机全名
Dim MYIP As System.Net.IPHostEntry = System.Net.Dns.GetHostByName(System.Net.Dns.GetHostName)
MsgBox("您的IP地址：" & (MYIP.AddressList.GetValue(0).ToString))
MsgBox("您的计算机全名：" & (MYIP.HostName.ToString))
使用win32_operatingSystem (wmi Class)得到计算机信息
'添加ListBox在Form1_Load事件里，并引用system.Managment
Dim opSearch As New ManagementObjectSearcher("SELECT * FROM Win32_OperatingSystem")
Dim opInfo As ManagementObject
For Each opInfo In opSearch.Get()
ListBox1.Items.Add("Name: " & opInfo("name").ToString())
ListBox1.Items.Add("Version: " & opInfo("version").ToString())
ListBox1.Items.Add("Manufacturer: " & opInfo("manufacturer").ToString())
ListBox1.Items.Add("Computer name: " & opInfo("csname").ToString())
ListBox1.Items.Add("Windows Directory: " & opInfo("windowsdirectory").ToString())
Next
列出计算机安装的全部字体，并添加到ListBox
'新建Form并添加ListBox和Button
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim fntCollection As InstalledFontCollection = New InstalledFontCollection()
Dim fntFamily() As FontFamily
