win64 下如何用VB获取硬盘参数,序列号?

发布网友发布时间：2022-04-28 23:06

共2个回答

热心网友时间：2022-06-24 22:33

private Declare Function MymachineC 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
dim ReturnValue As Long, HDSN, MaxLen As Long, SysFlag As Long, VolName As String, fSysName As String

private sub commadn1_click()
ReturnValue = MymachineC("C:\", VolName, 256, HDSN, MaxLen, SysFlag, fSysName, 256)
msgbox hdsn,,"硬盘序列号"
end sub追问这个不是吧
这是C盘逻辑盘的序列号,格式化一次就更改一次,这个我能取得,只是是负值,加一语句也能了取得了,我指得是硬盘的物理序列号,是固定的,唯一的.

追答参看此链接：http://zhidao.baidu.com/question/59942611.html?an=0&si=7

热心网友时间：2022-06-24 22:33

win32的API不支持64位的处理吧