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