| 网站首页 | 业界新闻 | 群组 | 人才 | 下载频道 | 博客 | 代码贴 | 编程论坛
共有 383 人关注过本帖
标题:关于VB获取硬盘序列号问题
只看楼主 收藏
小维746
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2018-2-11
结帖率:0
  已结贴   问题点数:20  回复次数:2   
关于VB获取硬盘序列号问题
各位大神,请问有哪位知道获取PC的硬盘序列号,谢谢!
2018-02-11 15:20
wds1
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:20
帖 子:211
专家分:1148
注 册:2016-3-10
  得分:20 
以前写的,供参考
引用定义
Private Declare Function GetVolumeInformation Lib "kernel32.dll" Alias "GetVolumeInformationA" (ByVal _
     lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Integer, _
     lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal _
     lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long '取得内存磁盘参数调用
函数:
Function GetInfoHard(strDrive As String) As Long
     Dim SerialNum As Long, Res As Long, temp1 As String, Temp2 As String
     temp1 = String$(255, Chr$(0)): Temp2 = String$(255, Chr$(0))
     Res = GetVolumeInformation(strDrive, temp1, Len(temp1), SerialNum, 0, 0, Temp2, Len(Temp2))
     GetInfoHard = SerialNum
End Function

调用格式 GetInfoHard("c:\")
2018-02-11 15:48
dsasada
Rank: 1
等 级:新手上路
帖 子:52
专家分:3
注 册:2018-3-30
  得分:0 
不错,学习了
2018-03-30 09:55







关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.042550 second(s), 9 queries.
Copyright©2004-2018, BCCN.NET, All Rights Reserved