vb.net例程集锦(11)

原作者:kuku 添加时间:2007-06-02 原文发表:2007-06-02 人气:44 来源：互联网

本文章共28074字，分19页，当前第11页，快速翻页：

-----------------------------------------------------------------------------------------------------------------------------------------------

本文提示：《vb.net例程集锦(11)》是本站编辑们为广大网友精选的实用文章，本文阐述了关于文章的相关理论，相对来说专业性强，但是本文只是针对于某个问题提出的见解与论述，未必能辐射到相关问题的方方面面，所以本文处理问题的方法仅仅为您提供一些参考。更多问题请查阅学习中国网其他栏目哦.

-----------------------------------------------------------------------------------------------------------------------------------------------

End Sub

#End Region

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles Button1.Click

Dim ProcQuery As New SelectQuery(\"Win32_Processor\")
Dim ProcSearch As New ManagementObjectSearcher(ProcQuery)
Dim ProcInfo As ManagementObject

For Each ProcInfo In ProcSearch.Get()
Call processorfamily(ProcInfo(\"Family\").ToString)
ListBox1.Items.Add(\"Description: \" & ProcInfo(\"Description\").ToString())
ListBox1.Items.Add(\"caption: \" & ProcInfo(\"caption\").ToString())
ListBox1.Items.Add(\"Architecture: \" & ProcInfo(\"Architecture\").ToString())
Call processortype(ProcInfo(\"ProcessorType\").ToString())
Call CpuStat(ProcInfo(\"CpuStatus\").ToString)
ListBox1.Items.Add(\"MaxClockSpeed: \" & ProcInfo(\"MaxClockSpeed\").ToString() & \"MHZ\")
ListBox1.Items.Add(\"L2CacheSpeed: \" & ProcInfo(\"L2CacheSpeed\").ToString() & \"MHZ\")
ListBox1.Items.Add(\"ExtClock: \" & ProcInfo(\"L2CacheSpeed\").ToString() & \"MHZ\")
ListBox1.Items.Add(\"ProcessorId: \" & ProcInfo(\"ProcessorId\").ToString())
ListBox1.Items.Add(\"AddressWidth: \" & ProcInfo(\"AddressWidth\").ToString() & \"Bits\")
ListBox1.Items.Add(\"DataWidth: \" & ProcInfo(\"DataWidth\").ToString() & \"Bits\")
ListBox1.Items.Add(\"Version: \" & ProcInfo(\"Version\").ToString())
ListBox1.Items.Add(\"ExtClock: \" & ProcInfo(\"ExtClock\").ToString() & \"MHZ\")
Next
End Sub
Function processorfamily(ByVal procssfam)
Dim processtype
Select Case procssfam
Case 1
processtype = \"Other\"
Case 2
processtype = \"Unknown \"
Case 3
processtype = \"8086 \"
Case 4
processtype = \"80286 \"
Case 5
processtype = \"80386 \"
Case 6
processtype = \"80486 \"
Case 7
processtype = \"8087 \"
Case 8
processtype = \"80287 \"
Case 9
processtype = \"80387 \"
Case 10
processtype = \"80487 \"
Case 11
processtype = \"Pentium brand \"
Case 12
processtype = \"Pentium Pro \"
Case 13
processtype = \"Pentium II \"
Case 14
processtype = \"Pentium processor with MMX technology \"
Case 15
processtype = \"Celeron \"
Case 16
processtype = \"Pentium II Xeon \"
Case 17
processtype = \"Pentium III \"
Case 18
processtype = \"M1 Family \"
Case 19
processtype = \"M2 Family \"
Case 24
processtype = \"K5 Family \"
Case 25
processtype = \"K6 Family \"
Case 26
processtype = \"K6-2 \"
Case 27
processtype = \"K6-3 \"
Case 28
processtype = \"AMD Athlon Processor Family \"

本文章更多内容：<<上一页 - 1 - 2 - 3 - 4 - 5 - 6 - 7 - 8 - 9 - 10 - 11 - 12 - 13 - 14 - 15 - 16 - 17 - 18 - 19 - 下一页>>

本页地址