如题

解决方案 »

  1.   

    http://www.21tx.com/src/vb/other/000140810090897.htm
      

  2.   

    正宗的
    http://expert.csdn.net/Expert/topic/1526/1526713.xml?temp=.2067835
      

  3.   

    http://expert.csdn.net/Expert/TopicView1.asp?id=1526710
    http://expert.csdn.net/Expert/topic/1526/1526713.xml
      

  4.   

    新建一个模文件,加入代码: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 LongGlobal GethdVal As Long在form1_load事件中加入Dim Str1 As String * 256Dim Str2 As String * 256Dim Lon1 As LongDim Lon2 As LongCall GetVolumeInformation("C:\", Str1, 256, GetVal, Lon1, Lon2, Str2, 256)Text1.Text = GethdVal
      

  5.   

    我也需要啊谢谢,但是物理序列号
    [email protected]