njws55 发表于 2005-6-15 09:56:00

VB求助 急！ 高手请进！

如何通过VB获得硬盘序列号？       请高手帮帮忙给个代码       感激不尽

zhuxuhong 发表于 2005-6-16 07:16:00

<TABLE width="100%" border=0>
<TBODY>
<TR bgColor=#ffffe8>
<TD class=bigfont bgColor=#f4f4f4>Private Declare Function GetVolumeInformation&amp; Lib "kernel32" _<BR>Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, _<BR>ByVal pVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, _<BR>lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, _<BR>lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, _<BR>ByVal nFileSystemNameSize As Long)<BR>Private Const MAX_FILENAME_LEN = 256



Public Function DriveSerial(ByVal sDrv As String) As Long<BR>                Dim RetVal As Long<BR>                Dim str As String * MAX_FILENAME_LEN<BR>                Dim str2 As String * MAX_FILENAME_LEN<BR>                Dim a As Long<BR>                Dim b As Long<BR>                GetVolumeInformation sDrv &amp; ":\", str, MAX_FILENAME_LEN, RetVal, _<BR>                a, b, str2, MAX_FILENAME_LEN<BR>                DriveSerial = RetVal<BR>End Function

</TD></TR>
<TR bgColor=#ffffe8>
<TD class=TopLighNav1 align=left height=22><B>功能 </B></TD></TR>
<TR bgColor=#ffffe8>
<TD bgColor=#f4f4f4>返回指定磁盘的序列号 </TD></TR>
<TR bgColor=#ffffe8>
<TD class=TopLighNav1 align=left height=22><B>语法 </B></TD></TR>
<TR bgColor=#ffffe8>
<TD bgColor=#f4f4f4>DriveSerial ( sDrv ) </TD></TR>
<TR bgColor=#ffffe8>
<TD class=TopLighNav1 align=left height=22><B>参数 </B></TD></TR>
<TR bgColor=#ffffe8>
<TD bgColor=#f4f4f4>sDrv:字符串，代表盘符 </TD></TR>
<TR bgColor=#ffffe8>
<TD class=TopLighNav1 align=left height=22><B>返回值 </B></TD></TR>
<TR bgColor=#ffffe8>
<TD bgColor=#f4f4f4>长整数，序列号 </TD></TR>
<TR bgColor=#ffffe8>
<TD class=TopLighNav1 align=left height=22><B>样例 </B></TD></TR>
<TR bgColor=#ffffe8>
<TD bgColor=#f4f4f4>                Dim ds As Long<BR>                ds = DriveSerial("C")<BR></TD></TR>
<TR bgColor=#ffffe8>
<TD class=TopLighNav1 align=left height=22><B>说明 </B></TD></TR>
<TR bgColor=#ffffe8>
<TD bgColor=#f4f4f4>盘符不必带":\"，如C盘不必填上c:\，而直接用C就行 </TD></TR></TBODY></TABLE>

njws55 发表于 2005-6-16 10:31:00

我用上面的代码获得的一串数值。       还带负号的，怎么回事？ 是否是数值进制问题？
页: [1]
查看完整版本: VB求助 急！ 高手请进！