取得硬盘出厂ID的DLL,谁要?留下E-MAIL(内有广告,三日内给分)

Question

请给我一份，非常感谢：
[email protected]我以前已经在你的网站下载了大部分的源代码了 :)

Answer 1

可以给我一份吗?
[email protected]

Answer 2

大家好！！这儿就有：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()
    'KPD-Team 1998
    'URL: http://www.allapi.net/
    'E-Mail: [email protected]
    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

Answer 3

给我一个谢谢，我找了好长时间了  [email protected]

Answer 4

allan1031(岚月影)　你的信箱不对啊

Answer 5

我要一份！謝謝！
[email protected]

Answer 6

地址换了,是http://www.wzjcw.net/vbgood/taishan/index.html还有要的吗?

Answer 7

我也要一份，谢谢！
[email protected]

Answer 8

dbcontrols,我已经收到，但程序运行到如下处，VB就报非法错误，然后VB被关闭。
    strSerialNumber = Left$(lpBuffer, GetSerialNumber(0, lpBuffer))详细错误信息如下：VB6 在 0167:048411b7 的模块
 DISKSERIAL.DLL 中导致无效页错误。
Registers:
EAX=000001ff CS=0167 EIP=048411b7 EFLGS=00010293
EBX=00000008 SS=016f ESP=007fec70 EBP=007fec98
ECX=00000001 DS=016f ESI=00622804 FS=4c07
EDX=0000c100 ES=016f EDI=007ff284 GS=0000
Bytes at CS:EIP:
8a 42 05 24 0f 25 ff 00 00 00 85 c0 0f 85 25 01 
Stack dump:
007ff284 00622804 00000008 0484274f d0000fff 0000c0f8 00000400 007ff284 00620001 0000c100 007fecc0 04841404 04841000 007f01f7 007fecec d4e32f01 不知是我的系统问题还是
我的系统：PWIN98SE+VB6
其他网友是否也遇到过同样问题？