Question

用vb如何获得硬盘序列号并实现软件的注册功能的用户窗体及其与程序的链接发给我学习一下好吗？

我的邮箱：liangbaolu@126.com

Answer 1

Public Function GetSerialNumber(strDrive As String) As Long

Dim SerialNum As Long

Dim Res As Long
Dim Temp1 As String
Dim 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))

GetSerialNumber = SerialNum

End Function

Answer 2

硬盘序列号貌似可以通过读取注册表实现

Answer 3

取得物理盘的型号或序列号
http://zhidao.baidu.com/question/158721558.html?oldq=1

Answer 4

好像用对象或者api，具体的得百度

Answer 5

我也想知道这问题的答案