如何取得VB.NET硬盤序列號(hào)
作者：佚名
VB.NET硬盤序列號(hào)的獲取方式可以通過本文給出的具體代碼來實(shí)現(xiàn)。對(duì)于初學(xué)者來說，這一實(shí)現(xiàn)方式還是比較簡(jiǎn)單的。
VB.NET中有一個(gè)特點(diǎn)就是對(duì)移動(dòng)設(shè)備的操作。運(yùn)用這一語言可以對(duì)這些設(shè)備進(jìn)行滿足我們需求的操作。比如獲取硬盤的序列號(hào)等等。要實(shí)現(xiàn)VB.NET硬盤序列號(hào)的獲取，需要訪問注冊(cè)表．實(shí)際操作如下，建立一個(gè)新的窗體，在上面添加一個(gè)標(biāo)簽Ｌabel1，一個(gè)按鈕Ｃommand１，實(shí)現(xiàn)：按下按鈕，在標(biāo)簽上顯示硬盤序列號(hào)．#t#
代碼：
- Imports system
- Imports Microsoft.Win32
- Imports system.Diagnostics
- Imports system.Windows.Forms
以上創(chuàng)建命名空間
- Private Command1_Click
(ByVal sender As System.Object,_ - ByVal e As System.EventArgs)
Handles Command1.Click - Dim myDec As RegistryKey
- Dim myScsi As RegistryKey
- Dim myPort As RegistryKey
- Dim myBus As RegistryKey
- Dim myHd As RegistryKey
- Dim myInfo As RegistryKey
- Dim myHW As RegistryKey
- Dim myLM As RegistryKey
定義獲取硬盤序列號(hào)的節(jié)點(diǎn)
- myLM=Registry.LocalMachine
- myHW=myLM.OpenSubKey("HARDWARE")
- myDec=myHW.OpenSubKey("DEVICEMAP")
- myScsi=myDec.OpenSubKey("Scsi")
- myPort=myScsi.OpenSubKey
("Scsi Port 1")- myBus=myPort.OpenSubKey
("Scsi Bus 0")- myHd=myBus.OpenSubKey
("Target Id 0")- myInfo=myHd.OpenSubKey
("Logical Unit Id 0")
VB.NET硬盤序列號(hào)的獲取
- Me.Label1.Text=
myInfo.GetValue
("Identifier")
在標(biāo)簽上將VB.NET硬盤序列號(hào)的結(jié)果顯示出來
責(zé)任編輯：曹凱
來源：
博客園
