请问怎样读取CD碟的序列号？

[hfrui]

请问怎样读取CD碟的序列号？

[handsomge]

估计和读硬盘的一样

[hack008]

我怎么晓得嘛

[lsgl]

CD的序列号应该是放在软件中了。每个软件随机生成的。但是在作时肯定不是在光盘上做了记号，如果是这样的话那会非常的麻烦。所以可能要破解setup.EXE

[hfrui]

我说的是CD碟，就是CD机都能放的那种CD碟，每一张都有一个序列号，应该很容易读出来的。

[panxuejian]

Option Explicit
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 Long

'代码如下:

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


Private Sub form_load()
MsgBox GetSerialNumber("j:\")

'"J"为您计算机里光驱的盘符
'它将告诉你驱的磁盘序号。

End Sub
应该是你需要的。

[danaeli]

用FSO
Private Sub Command1_Click()
Dim FSO As FileSystemObject
Dim aDrive As Drive
Set FSO = New FileSystemObject
For Each aDrive In FSO.Drives
If aDrive.DriveType = CDRom Then
MsgBox aDrive.VolumeName
Exit For
End If
Next
Set FSO = Nothing
End Sub

是这个吗
这个很简单,可能我错了...

[Sean918]

¡¾º¯Êý¡¿
GetVolumeInformation

¡¾²Ù×÷ϵͳ¡¿
Win9X:Yes
WinNT:Yes

¡¾ÉùÃ÷¡¿
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 Long

¡¾ËµÃ÷¡¿

»ñÈ¡ÓëÒ»¸ö´ÅÅ̾íÓйصÄÐÅÏ¢

¡¾·µ»ØÖµ¡¿

Long£¬·ÇÁã±íʾ³É¹¦£¬Áã±íʾʧ°Ü¡£»áÉèÖÃGetLastError

¡¾ÆäËü¡¿


¡¾²ÎÊý±í¡¿
lpRootPathName - String£¬Óû»ñÈ¡ÐÅÏ¢µÄÄǸö¾íµÄ¸ù·¾¶

lpVolumeNameBuffer - String£¬ÓÃÓÚ×°ÔؾíÃû£¨¾í±ê£©µÄÒ»¸ö×Ö´®

nVolumeNameSize - Long£¬lpVolumeNameBuffer×Ö´®µÄ³¤¶È

lpVolumeSerialNumber - Long£¬ÓÃÓÚ×°ÔØ´ÅÅ̾íÐòÁкŵıäÁ¿

lpMaximumComponentLength - Long£¬Ö¸¶¨Ò»¸ö±äÁ¿£¬ÓÃÓÚ×°ÔØÎļþÃûÿһ²¿·ÖµÄ³¤¶È¡£ÀýÈ磬ÔÚ¡°c:\component1\component2.ext¡±µÄÇé¿öÏ£¬Ëü¾Í´ú±ícomponent1»òcomponent2Ãû³ÆµÄ³¤¶È

lpFileSystemFlags - Long£¬ÓÃÓÚ×°ÔØÒ»¸ö»ò¶à¸ö¶þ½øÖÆλ±êÖ¾µÄ±äÁ¿¡£¶ÔÕâЩ±ê־λµÄ½âÊÍÈçÏ£º
FS_CASE_IS_PRESERVED
ÎļþÃûµÄ´óСд¼Ç¼ÓÚÎļþϵͳ
FS_CASE_SENSITIVE
ÎļþÃûÒªÇø·Ö´óСд
FS_UNICODE_STORED_ON_DISK
ÎļþÃû±£´æΪUnicode¸ñʽ
FS_PERSISTANT_ACLS
Îļþϵͳ֧³ÖÎļþµÄ·ÃÎÊ¿ØÖÆÁÐ±í£¨ACL£©°²È«»úÖÆ
FS_FILE_COMPRESSION
Îļþϵͳ֧³ÖÖðÎļþµÄ½øÐÐÎļþѹËõ
FS_VOL_IS_COMPRESSED
Õû¸ö´ÅÅÌ¾í¶¼ÊÇѹËõµÄ

lpFileSystemNameBuffer - String£¬Ö¸¶¨Ò»¸ö»º³åÇø£¬ÓÃÓÚ×°ÔØÎļþϵͳµÄÃû³Æ£¨ÈçFAT£¬NTFSÒÔ¼°ÆäËû£©

nFileSystemNameSize - Long£¬lpFileSystemNameBuffer×Ö´®µÄ³¤¶È

[Sean918]

函数 GetVolumeInformation

实例：

Private 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 Long
Private Sub Form_Load()
Dim Serial As Long, VName As String, FSName As String
'Create buffers
VName = String$(255, Chr$(0))
FSName = String$(255, Chr$(0))
'Get the volume information
GetVolumeInformation "C:\", VName, 255, Serial, 0, 0, FSName, 255
'Strip the extra chr$(0)'s
VName = Left$(VName, InStr(1, VName, Chr$(0)) - 1)
FSName = Left$(FSName, InStr(1, FSName, Chr$(0)) - 1)
MsgBox "The Volume name of C:\ is '" + VName + "', the File system name of C:\ is '" + FSName + "' and the serial number of C:\ is '" + Trim(Str$(Serial)) + "'", vbInformation + vbOKOnly, App.Title
End Sub

[danaeli]

还可以用另外一个属性object.SerialNumber