如何取得VB.NET硬盘序列号
创始人
2024-06-20 06:51:29
0

VB.NET中有一个特点就是对移动设备的操作。运用这一语言可以对这些设备进行满足我们需求的操作。比如获取硬盘的序列号等等。要实现VB.NET硬盘序列号的获取,需要访问注册表.实际操作如下,建立一个新的窗体,在上面添加一个标签Label1,一个按钮Command1,实现:按下按钮,在标签上显示硬盘序列号.#t#

代码:

 

  1. Imports system  
  2. Imports Microsoft.Win32  
  3. Imports system.Diagnostics  
  4. Imports system.Windows.Forms 

 

以上创建命名空间

 

  1. Private Command1_Click
    (ByVal sender As System.Object,_  
  2. ByVal e As System.EventArgs) 
    Handles Command1.Click  
  3. Dim myDec As RegistryKey  
  4. Dim myScsi As RegistryKey  
  5. Dim myPort As RegistryKey  
  6. Dim myBus As RegistryKey  
  7. Dim myHd As RegistryKey  
  8. Dim myInfo As RegistryKey  
  9. Dim myHW As RegistryKey  
  10. Dim myLM As RegistryKey 

 

定义获取硬盘序列号的节点

 

  1. myLM=Registry.LocalMachine  
  2. myHW=myLM.OpenSubKey("HARDWARE")  
  3. myDec=myHW.OpenSubKey("DEVICEMAP")  
  4. myScsi=myDec.OpenSubKey("Scsi")  
  5. myPort=myScsi.OpenSubKey
    ("Scsi Port 1")  
  6. myBus=myPort.OpenSubKey
    ("Scsi Bus 0")  
  7. myHd=myBus.OpenSubKey
    ("Target Id 0")  
  8. myInfo=myHd.OpenSubKey
    ("Logical Unit Id 0") 

 

VB.NET硬盘序列号的获取

 

  1. Me.Label1.Text=
    myInfo.GetValue
    ("Identifier") 

 

在标签上将VB.NET硬盘序列号的结果显示出来

相关内容

热门资讯

如何允许远程连接到MySQL数... [[277004]]【51CTO.com快译】默认情况下,MySQL服务器仅侦听来自localhos...
如何利用交换机和端口设置来管理... 在网络管理中,总是有些人让管理员头疼。下面我们就将介绍一下一个网管员利用交换机以及端口设置等来进行D...
施耐德电气数据中心整体解决方案... 近日,全球能效管理专家施耐德电气正式启动大型体验活动“能效中国行——2012卡车巡展”,作为该活动的...
Windows恶意软件20年“... 在Windows的早期年代,病毒游走于系统之间,偶尔删除文件(但被删除的文件几乎都是可恢复的),并弹...
20个非常棒的扁平设计免费资源 Apple设备的平面图标PSD免费平板UI 平板UI套件24平图标Freen平板UI套件PSD径向平...
德国电信门户网站可实时显示全球... 德国电信周三推出一个门户网站,直观地实时提供其安装在全球各地的传感器网络检测到的网络攻击状况。该网站...
着眼MAC地址,解救无法享受D... 在安装了DHCP服务器的局域网环境中,每一台工作站在上网之前,都要先从DHCP服务器那里享受到地址动...
为啥国人偏爱 Mybatis,... 关于 SQL 和 ORM 的争论,永远都不会终止,我也一直在思考这个问题。昨天又跟群里的小伙伴进行...