请教各位高手：如何用vb获得硬盘序列号？

Question

谢谢！

Answer 1

http://expert.csdn.net/Expert/topic/1884/1884624.xml?temp=.7010157这个很好：
http://expert.csdn.net/Expert/topic/1526/1526713.xml?temp=.2067835

Answer 2

来信，给你一实例。[email protected]

Answer 3

阿胜兄，程序在WindowsMe下测试出错。我没能找到原因。我的系统没有安装硬盘保护软件和保护卡

Answer 4

TO planetike(阿胜) 
能不能给我一个：[email protected]

Answer 5

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 LongPrivate Sub Command1_Click()
  Dim mySerial As Long
  Dim mylong As Long
  mystr = String$(255, Chr$(0))
  mytype = String$(255, Chr$(0))
  If Right(Text1.Text, 1) <> "\" Then Text1.Text = Text1.Text & "\"
  sRoot = Text1.Text                                   '设定盘名
  mylong = GetVolumeInformation(sRoot, mystr, Len(mystr), mySerial, 0, 0, mytype, Len(mytype))
  Text2.Text = mySerial                                'TEXT2 存放盘序列号
End SubPrivate Sub Command3_Click()
  End
End Sub

Answer 6

TO planetike(阿胜) 
   找了好久都没有找到能在各系统下好用的,能否发个给我,先谢了!

Answer 7

忘了告诉我的EMAIL:[email protected]

Answer 8

： qpf2000(qpf你太历害了
佩服
学了一招