当前位置: 网学 > 编程文档 > VB > 正文

在VB中获得硬盘分区的序列号

来源:Http://myeducs.cn 联系QQ:点击这里给我发消息 作者: 用户投稿 来源: 网络 发布时间: 12/10/16
下载{$ArticleTitle}原创论文样式

在VB中获得硬盘分区的序列号
在计算软件注册码时经常用到的是硬盘序列号,下面我们通过VB来获得C盘的序列号,其他分区的一样。
首先:新建一个标准EXE工程,双击窗体,输入以下代码:
复制内容到剪贴板
代码:
Private Declare Function GetVolumeInformation Lib "kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long

Private Sub Form_Load()
On Error GoTo Err_Form_Load
Dim AA, VIF, Maxlen, Sysflag As Long: Dim VolName, FsysName As String
AA = GetVolumeInformation("C:", VolName, 256, VIF, Maxlen, Sysflag, FsysName, 256)
MsgBox Hex(VIF)
Err_Form_Load:
End Sub

  • 上一篇资讯: VB固定窗体的大小
  • 下一篇资讯: VB 二进制文件的操作
  • 网学推荐

    免费论文

    原创论文

    浏览:
    设为首页 | 加入收藏 | 论文首页 | 论文专题 | 设计下载 | 网学软件 | 论文模板 | 论文资源 | 程序设计 | 关于网学 | 站内搜索 | 网学留言 | 友情链接 | 资料中心
    版权所有 QQ:3710167 邮箱:3710167@qq.com 网学网 [Myeducs.cn] 您电脑的分辨率是 像素
    Copyright 2008-2015 myeducs.Cn www.myeducs.Cn All Rights Reserved
    湘ICP备09003080号