乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 47|回复: 2

VB求助 急! 高手请进!

[复制链接]

5

主题

7

帖子

1

银币

初来乍到

Rank: 1

铜币
27
发表于 2005-6-15 09:56:00 | 显示全部楼层 |阅读模式
如何通过VB获得硬盘序列号?         请高手帮帮忙给个代码         感激不尽
回复

使用道具 举报

20

主题

115

帖子

5

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
195
发表于 2005-6-16 07:16:00 | 显示全部楼层
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
                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 功能 返回指定磁盘的序列号 语法 DriveSerial ( sDrv ) 参数 sDrv:字符串,代表盘符 返回值 长整数,序列号 样例                 Dim ds As Long
                ds = DriveSerial("C")
说明 盘符不必带":\",如C盘不必填上c:\,而直接用C就行
回复

使用道具 举报

5

主题

7

帖子

1

银币

初来乍到

Rank: 1

铜币
27
发表于 2005-6-16 10:31:00 | 显示全部楼层
我用上面的代码获得的一串数值。         还带负号的,怎么回事? 是否是数值进制问题?
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-7-4 02:02 , Processed in 0.695490 second(s), 59 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表