建站
咨詢
售后
建站咨詢
新聞中心
這里有您想知道的互聯(lián)網(wǎng)營(yíng)銷解決方案
如何取得VB.NET硬盤序列號(hào)
VB.NET中有一個(gè)特點(diǎn)就是對(duì)移動(dòng)設(shè)備的操作。運(yùn)用這一語(yǔ)言可以對(duì)這些設(shè)備進(jìn)行滿足我們需求的操作。比如獲取硬盤的序列號(hào)等等。要實(shí)現(xiàn)VB.NET硬盤序列號(hào)的獲取，需要訪問(wèn)注冊(cè)表．實(shí)際操作如下，建立一個(gè)新的窗體，在上面添加一個(gè)標(biāo)簽Ｌabel1，一個(gè)按鈕Ｃommand１，實(shí)現(xiàn)：按下按鈕，在標(biāo)簽上顯示硬盤序列號(hào)．#t#
創(chuàng)新互聯(lián)來(lái)電聯(lián)系：18980820575，為您提供成都網(wǎng)站建設(shè)網(wǎng)頁(yè)設(shè)計(jì)及定制高端網(wǎng)站建設(shè)服務(wù)，創(chuàng)新互聯(lián)網(wǎng)頁(yè)制作領(lǐng)域10年，包括成都假山制作等多個(gè)領(lǐng)域擁有多年的網(wǎng)站運(yùn)維經(jīng)驗(yàn)，選擇創(chuàng)新互聯(lián)，為企業(yè)保駕護(hù)航！
代碼：
- 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é)果顯示出來(lái)
網(wǎng)站欄目：如何取得VB.NET硬盤序列號(hào)
文章轉(zhuǎn)載：http://m.fisionsoft.com.cn/article/djjpjsj.html
