如何在VB中獲取計算機硬件信息？網

獲取顯示分辨率。

dim X As Short = system . a href = " Windows/" target = " _ blank " Windows/a . forms . screen . primary screen . bounds . width

Dim Y As Short = System。windows . forms . screen . primary screen . bounds . height

MsgBox("您的顯示器分辨率是:"

X

" X "

y)

獲取特殊文件夾的路徑。

“桌面”桌面文件夾的路徑

MsgBox(環境。get folda href = " ERP/" target = " _ blank " ERP/aath(環境。SpecialFolder.DesktopDirectory))

“收藏夾”收藏路徑

MsgBox(環境。GetFolderPath(環境。特殊文件夾.收藏夾))

“應用數據”路徑

MsgBox(環境。GetFolderPath(環境。特殊文件夾.應用數據))

普通寫作

Dim SPEC As String = Environment。GetFolderPath(環境。特殊文件夾. XXXXXXX)

XXXXXXX是壹個特殊文件夾的名稱。

獲取操作系統版本信息。

MsgBox(環境。OSVersion.ToString)

獲取當前登錄的用戶名。

MsgBox(環境。用戶名)

獲取當前應用程序的路徑。

MsgBox(環境。當前目錄)

打開和關閉CD-ROM

首先創建壹個新模塊

模塊mciAPIModule

聲明函數mciSendString Lib“winmm . dll”別名“mciSendStringA”

(ByVal lpstrCommand As String，ByVal lpstrReturnString As String，_

ByVal uReturnLength為整數，ByVal hwndCallback為整數)為整數

末端模塊

打開光盤。

Dim lRet壹樣長

lRet = mciSendString(" set CD audio door open "，0，0，0)

關閉光盤。

Dim lRet壹樣長

lRet = mciSendString(" set CD audio door Closed "，0，0，0)

請參閱了解更多信息。

獲取計算機IP和計算機全名。

將我的IP顯示為。IPHostEntry = . DNS . gethostbyname(. DNS . gethostname)

MsgBox("您的IP地址:"

(MYIP。AddressList.GetValue(0)。ToString))

MsgBox("您的計算機的全名:"

(MYIP。HostName.ToString))

使用win32_operatingSystem (wmi類)獲取計算機信息。

在Form1_Load事件中添加ListBox並引用system.Managment。

Dim opSearch作為新的management object searcher(" SELECT * FROM Win32 _ operating system ")

Dim opInfo作為管理對象

對於opSearch中的每個opInfo。獲取()

列表框1。Items.Add("Name:"

opInfo(“名稱”)。ToString())

列表框1。Items.Add("版本: "

opInfo(“版本”)。ToString())

列表框1。Items.Add("制造商: "

opInfo(“制造商”)。ToString())

列表框1。Items.Add("計算機名: "

opInfo("csname ")。ToString())

列表框1。Items.Add("Windows目錄: "

op info(“windows directory”)。ToString())

然後

列出計算機上安裝的所有字體，並將它們添加到列表框中。

創建壹個新的表單並添加列表框和按鈕。

private Sub button 1 _ Click(ByVal sender As System。對象，ByVal e作為系統。EventArgs)處理按鈕1。點擊

dim fnt collection As InstalledFontCollection = New InstalledFontCollection()

Dim fntFamily()作為FontFamily

fntFamily =集合。家族

列表框1。Items.Clear()

Dim i為整數= 0

對於i = 0至fntFamily。長度- 1

列表框1。Items.Add(fntFamily(i))。姓名)

然後

末端接頭

使用Win32_Processor列出處理器信息。

進口系統。管理

公共類表單1

繼承系統。窗口.窗體.窗體

# region“由Windows窗體設計器生成的代碼”

公共子新()

我的基地。新()

此調用是Windows窗體設計器所必需的。

InitializeComponent()

在InitializeComponent()調用後添加任何初始化。

末端接頭

窗體重寫dispose以清理組件列表。

受保護的重載覆蓋Sub Dispose(ByVal Dispose為Boolean)

如果處理然後

如果不是(組件什麽都不是)，那麽

組件。處置()

如果…就會結束

如果…就會結束

我的基地。處置(處置)

末端接頭

對於Windows窗體設計器是必需的。

私有組件作為系統。ComponentModel.IContainer

註意:以下過程是Windows窗體設計器所必需的。

您可以使用Windows窗體設計器來修改此過程。

不要使用代碼編輯器來修改它。

以事件列表框1為系統的朋友。Windows.Forms.ListBox

好友用事件按鈕1作為系統。窗口.窗體.按鈕

系統。diagnostics . DebuggerStepThrough()私有Sub InitializeComponent()

我。ListBox1 =新系統。Windows.Forms.ListBox

我。Button1 =新系統。窗口.窗體.按鈕

我。掛起布局()

'

列表框1

'

我。列表框1。位置=新系統。繪圖點(8，8)

我。列表框1。Name = "ListBox1 "

我。列表框1。大小=新系統。圖紙尺寸(280，186)

我。列表框1。TabIndex = 0

'

按鈕1

'

我。按鈕1。位置=新系統。繪圖點(56，208)

我。按鈕1。Name = "Button1 "

我。按鈕1。大小=新系統。圖紙.尺寸(168，32)

我。按鈕1。TabIndex = 1

我。按鈕1。Text = "加載計算機處理器信息"

'

表單1

'

我。AutoScaleBaseSize =新系統。圖紙尺寸(5，13)

我。ClientSize =新系統。圖紙。尺寸(296，254)

我。AddRange(新系統。Windows.Forms.Control() {Me。Button1，我。列表框1})

我。Text = "計算機處理器信息"

我。ResumeLayout(False)

末端接頭

#結束區域

private Sub button 1 _ Click(ByVal sender As System。對象，ByVal e作為系統。EventArgs) _

手柄按鈕1。點擊

Dim ProcQuery作為新的SelectQuery("Win32_Processor ")

Dim ProcSearch作為新的management object searcher(proc query)

Dim ProcInfo作為管理對象

對於ProcSearch中的每個ProcInfo。獲取()

調用processor Family(proc info(“Family”)。ToString)

列表框1。Items.Add("描述: "

ProcInfo(“描述”)。ToString())

列表框1。Items.Add("標題: "

ProcInfo(“標題”)。ToString())

列表框1。Items.Add("架構: "

ProcInfo(“架構”)。ToString())

調用processor type(proc info(" processor type ")。ToString())

調用CpuStat(ProcInfo("CpuStatus ")。ToString)

列表框1。Items.Add("MaxClockSpeed:"

ProcInfo("MaxClockSpeed ")。ToString()

“兆赫”)

列表框1。Items.Add("L2CacheSpeed:"

ProcInfo("L2CacheSpeed ")。ToString()

“兆赫”)

列表框1。Items.Add("ExtClock:"

ProcInfo("L2CacheSpeed ")。ToString()

“兆赫”)

列表框1。Items.Add("ProcessorId:"

ProcInfo("ProcessorId ")。ToString())

列表框1。Items.Add("AddressWidth:"

ProcInfo("AddressWidth ")。ToString()

“比特”)

列表框1。Items.Add("數據寬度: "

ProcInfo(“數據寬度”)。ToString()

“比特”)

列表框1。Items.Add("版本: "

ProcInfo(“版本”)。ToString())

列表框1。Items.Add("ExtClock:"

proc info(“ext clock”)。ToString()

“兆赫”)

然後

末端接頭

函數處理器系列(ByVal procssfam)

Dim進程類型

選擇案例procssfam

案例1

processtype = "其他"

案例2

processtype = "未知"

案例3

processtype = "8086 "

案例4

processtype = "80286 "

案例5

processtype = "80386 "

案例6

processtype = "80486 "

案例7

processtype = "8087 "

案例8

processtype = "80287 "

案例9

processtype = "80387 "

案例10

processtype = "80487 "

案例11

processtype = "奔騰品牌"

案例12

processtype = "奔騰Pro "

案例13

processtype = "奔騰II "

案例14

processtype = "采用MMX技術的奔騰處理器"

案例15

處理器類型= "賽揚"

案例16

processtype = "奔騰II至強"

案例17

processtype = "奔騰III "

案例18

processtype = "M1系列"

案例19

processtype = "M2家族"

案例24

processtype = "K5家族"

案例25

processtype = "K6系列"

案例26

processtype = "K6-2 "

案例27

processtype = "K6-3 "

案例28

processtype = "AMD速龍處理器家族"

案例29

processtype = "AMD Duron處理器"

案例30

processtype = "AMD2900系列"

案例31

processtype = "K6-2+"

案例32

processtype = "超級電腦系列"

案例33

processtype = "Power PC 601 "

案例34

processtype = "Power PC 603 "

案例35

processtype = "Power PC 603+"

案例36

processtype = "Power PC 604 "

案例37

processtype = "Power PC 620 "

案例38

processtype = "Power PC X704 "

案例39

processtype = "Power PC 750 "

案例48

processtype = "Alpha系列"

案例49

processtype = "Alpha 21064 "

案例50

processtype = "Alpha 21066 "

案例51

process type = " Alpha 21164 "

案例52

process type = " Alpha 21164 PC "

案例53

process type = " Alpha 21164 a "

案例54

processtype = "Alpha 21264 "

案例55

processtype = "Alpha 21364 "

案例64

processtype = "MIPS系列"

案例65

processtype = "MIPS R4000 "

案例66

processtype = "MIPS R4200 "

案例67

processtype = "MIPS R4400 "

案例68

processtype = "MIPS R4600 "

案例69

processtype = "MIPS R10000 "

案例80

processtype = "SPARC家族"

案例81

processtype = "SuperSPARC "

案例82

processtype = "microSPARC II "

案例83

processtype = "microSPARC IIep "

案例84

processtype = "UltraSPARC "

案例85

processtype = "UltraSPARC II "

案例86

processtype = "UltraSPARC IIi "

案例87

processtype = "UltraSPARC III "

案例88

processtype = "UltraSPARC IIIi "

案例96

processtype = "68040 "

案例97

processtype = "68xxx系列"

案例98

processtype = "68000 "

案例99

processtype = "68010 "

案例100

processtype = "68020 "

案例101

processtype = "68030 "

案例112

processtype = "霍比特人家庭"

案例120

processtype = "Crusoe TM5000系列"

案例121

processtype = "Crusoe TM3000系列"

案例128

processtype = "Weitek "

案例130

processtype = "安騰處理器"

案例144

processtype = "PA-RISC家族"

案例145

processtype = "PA-RISC 8500 "

案例146

processtype = "PA-RISC 8000 "

案例147

processtype = "PA-RISC 7300LC "

案例148

processtype = "PA-RISC 7200 "

案例149

process type = " PA-RISC 7100 LC "

案例150

processtype = "PA-RISC 7100 "

案例160

processtype = "V30系列"

案例176

processtype = "奔騰III至強"

案例177

processtype = "采用英特爾SpeedStep技術的奔騰III處理器"

案例178

processtype = "奔騰4 "

案例179

處理器類型= "英特爾至強"

案例180

processtype = "AS400系列"

案例181

processtype = "英特爾至強處理器MP "

案例182

processtype = "AMD AthlonXP系列"

案例183

processtype = "AMD AthlonMP系列"

案例184

processtype = "英特爾安騰2 "

案例185

processtype = "AMD皓龍系列"

案例190

processtype = "K7 "

案例200

processtype = "IBM390系列"

案例201

processtype = "G4 "

案例202

processtype = "G5 "

案件250

processtype = "i860 "

案例251

processtype = "i960 "

案件260

processtype = "SH-3 "

案例261

processtype = "SH-4 "

案件280