怎么样读取CPU信息-电脑网络-新闻中心-YxMall|多用户商城|C2C系统|仿淘宝商城-易想：中国行业网站开发第一品牌- Powered

怎么样读取CPU信息--YxMall|多用户商城|C2C系统|仿淘宝商城-易想：中国行业网站开发第一品牌- Powered

- 我要买
- 我要卖
- 商品求购
- 社区
- 帮助

- 会员中心
- 购物车
- 我的收藏

数字键--选择栏目 / 确定键--打开 / 左键--返回 / 右键--前进 / 首页--数字键0

- 首页
- 品牌商城
- 购物集市
- 二手闲置
- 热卖商品
- 购物资讯
- - 手机数码
  - 女人
  - 男人
  - 运动
  - 家居
  - 母婴
  - 影视书籍
  - 游戏
  - 护肤

搜 索 [ 高级搜索 ] [ 使用帮助 ]

- 热门搜索121：
- mp3
- 女鞋
- 手机
- 比基尼
- 魔兽世界
- 内存
- 个人闲置
- 芭比娃娃
- 特价机票
- 吊带裙
- 沙滩裤
- 防晒霜
- 数码相机
- 二手房

首页>>新闻频道>>电脑网络>>怎么样读取CPU信息

怎么样读取CPU信息

(2007-6-12 9:13:06 阅读
次)

想问高手一个问题，怎么样在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

上一条：【电脑网络】版规(入版必读) ... 下一条：电脑网络...

投资收藏

·818你用过的防晒产品吧，参与即有奖
·《我在那一角落患过伤风》
·]“唯”我最爱，海豚音王子广州演唱会
·陶喆上海演唱会 期待＂最佳情人＂(组
·孟庭苇皈依佛门已7年 复出不浪费好嗓
·宣萱露背黑衣清凉亮相 一姐架势大(图
·杨坤新辑渴望边走边唱 否认炮轰李宇春
·韩国电视剧从不插播广告 观众就是上帝
·看一次震撼一次的图片

靓鞋靓包

·运动鞋穿着保养说明
·38℃降温首选 蓝+白清凉装
·夏日精品凉鞋8款
·用丙烯颜料涂抹你的生活——手绘包包
·运动与休闲最IN混穿
·GUCCI秋冬男女装 奢华IN中性O
·我的店铺： 【茗香阁】
·夏日节能穿衣术 天然材质最好

开源商城 | 四川商务网 | 天翼手机 | 网络营销 | 阿里后爸

关于我们 | 常见问题 | 安全交易 | 购买流程 | 如何付款 | 配送方式 | 诚征英才 | 联系我们 | 送货范围 | 服务条款

售前咨询:028-66006880 售后服务：028-66006880 传真:028-86935502 移动电话:13980854559 Copyright 2006-2008 ChangeHope All Rights Reserved 版权所有 成都易想网络技术有限公司