请你回答一个数字就好了!
请问C:的序列号是定长的吗,会有几位.
(在我本机测得是9位!!)
问题点数：0、回复次数：5Top
1 楼SoHo_Andy（冰）回复于 2003-12-02 11:57:58 得分 0
我机子C盘：-320012680
F盘：1058361727Top
2 楼SoHo_Andy（冰）回复于 2003-12-02 11:59:16 得分 0
我用的函数，你试试
Private Declare Function GetVolumeInformation& Lib "kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, _
ByVal pVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, _
lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, _
lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, _
ByVal nFileSystemNameSize As Long)
Private Const MAX_FILENAME_LEN = 256
Public Function DriveSerial(ByVal sDrv As String) As Long
'Usage:
'Dim ds As Long
'ds = DriveSerial("C")
Dim RetVal As Long
Dim str As String * MAX_FILENAME_LEN
Dim str2 As String * MAX_FILENAME_LEN
Dim a As Long
Dim b As Long
GetVolumeInformation sDrv & ":\", str, MAX_FILENAME_LEN, RetVal, a, b, str2, MAX_FILENAME_LEN
DriveSerial = RetVal
End Function
Private Sub Command1_Click()
Debug.Print DriveSerial("C")
Debug.Print DriveSerial("D")
End Sub
Top
3 楼huazai520（哥们上啊）回复于 2003-12-02 17:39:01 得分 0
我的机器是10位Top
4 楼szyhy810518（)(）回复于 2003-12-02 18:22:00 得分 0
9Top
5 楼kusate（小杨）回复于 2003-12-02 18:32:48 得分 0
我的也是9位Top
