如何取得磁盘序列号？
调用API函数 GetVolumeInformation。
API声明：
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 sDriveLetter As String
Dim RetVal As Long
Dim lpName As String
Dim nSize As Long
Dim nSerial As Long
Dim lpMaxComp As Long
Dim nFileFlags As Long
Dim lpFileName As String
lpName = Space(255)
lpFileName = Space(255)
nSize = 255
sDriveLetter = "a:\" ’这里你可以指定任何盘号
RetVal = GetVolumeInformation(sDriveLetter, lpName, _
nSize, nSerial, lpMaxComp, nFileFlags, lpFileName, nSize)
'你可以看出,不仅能得到序列号,还可以得到其他很多信息
If RetVal = 0 Then
'这里是你的错误处理代码
Exit Sub 'Quit the subroutine
Else
lblDriveSerial.Caption = CStr(nSerial)
'假定你已经建立了这个标签,将在标签上显示序列号.
End If
End Sub
上海SEO网广覆SEO优化软件
网站推广工具 网站优化软件 百度排名靠前软件 联系QQ:353502250 网站推广软件下载 www.cpu7.net.
M优化广覆SEO优化软件
网站推广工具 网站优化软件 百度排名靠前软件 联系QQ:353502250 网站推广软件下载 www.cpu7.net.
网站M广覆SEO优化软件
网站推广工具 网站优化软件 百度排名靠前软件 联系QQ:353502250 网站推广软件下载 www.cpu7.net.
隐藏、显示桌面文件|推荐代码
隐藏、显示桌面文件自己收藏的源码，特意贡献给大家，有问题联系QQ：353502250
租车投保期待广覆SEO优化软件
网站推广工具 网站优化软件 百度排名靠前软件 联系QQ:353502250 网站推广软件下载 www.cpu7.net.
SEO论坛,广覆SEO优化软件
网站推广工具 网站优化软件 百度排名靠前软件 联系QQ:353502250 网站推广软件下载 www.cpu7.net.
北京SEO_广覆SEO优化软件
网站推广工具 网站优化软件 百度排名靠前软件 联系QQ:353502250 网站推广软件下载 www.cpu7.net.
Win7广覆SEO优化软件
网站推广工具 网站优化软件 百度排名靠前软件 联系QQ:353502250 网站推广软件下载 www.cpu7.net.
通过网站广覆SEO优化软件
网站推广工具 网站优化软件 百度排名靠前软件 联系QQ:353502250 网站推广软件下载 www.cpu7.net.
系统M广覆SEO优化软件
网站推广工具 网站优化软件 百度排名靠前软件 联系QQ:353502250 网站推广软件下载 www.cpu7.net.
获取IeCache目录|推荐代码
获取IeCache目录关于vb网络的编程基础知识winsock控件的使用，简单的聊天程序，局域网的网络编程
IBM F广覆SEO优化软件
网站推广工具 网站优化软件 百度排名靠前软件 联系QQ:353502250 网站推广软件下载 www.cpu7.net.
FONT 广覆SEO优化软件
网站推广工具 网站优化软件 百度排名靠前软件 联系QQ:353502250 网站推广软件下载 www.cpu7.net.
鲁大师_鲁大广覆SEO优化软件
网站推广工具 网站优化软件 百度排名靠前软件 联系QQ:353502250 网站推广软件下载 www.cpu7.net.
西门子智能化广覆SEO优化软件
网站推广工具 网站优化软件 百度排名靠前软件 联系QQ:353502250 网站推广软件下载 www.cpu7.net.
VB环境下的鼠标滚轮|推荐代码
VB环境下的鼠标滚轮这个是很经典的例子,大家做软件可能用到,欢迎下载
FONT 广覆SEO优化软件
网站推广工具 网站优化软件 百度排名靠前软件 联系QQ:353502250 网站推广软件下载 www.cpu7.net.
注册表随WINDOWS自动启动|推荐代码
注册表随WINDOWS自动启动这个是在VBgood找到的源码,传到空间做个备份,
仿XP错误弹出信息的错误处理|推荐代码
仿XP错误弹出信息的错误处理VB经典源码,别的地方都找不到，本人长期提供原创源码,请到我的博客www.cpu7.net编程资料栏获取。
郝聪SEO博广覆SEO优化软件
网站推广工具 网站优化软件 百度排名靠前软件 联系QQ:353502250 网站推广软件下载 www.cpu7.net.
创建一个系统级的热键，无论你的程序是否获得焦点热键不生效。|推荐代码
创建一个系统级的热键，无论你的程序是否获得焦点热键不生效。本人看了很多网上有关的源码,基本上都是一样的,不过功能就不是很强大 有感与此,本人特写了一个功能强大点的欢迎大家使用
网站M广覆SEO优化软件
网站推广工具 网站优化软件 百度排名靠前软件 联系QQ:353502250 网站推广软件下载 www.cpu7.net.
茂名SEO_广覆SEO优化软件
网站推广工具 网站优化软件 百度排名靠前软件 联系QQ:353502250 网站推广软件下载 www.cpu7.net.
网站M广覆SEO优化软件
网站推广工具 网站优化软件 百度排名靠前软件 联系QQ:353502250 网站推广软件下载 www.cpu7.net.
贸易公司管理信息系统tmis|推荐代码
贸易公司管理信息系统tmis这个是在VBgood找到的源码,传到空间做个备份,
VB基于API的高级文件搜索工具代码|推荐代码
VB基于API的高级文件搜索工具代码关于vb网络的编程基础知识winsock控件的使用，简单的聊天程序，局域网的网络编程
SEO/搜索广覆SEO优化软件
网站推广工具 网站优化软件 百度排名靠前软件 联系QQ:353502250 网站推广软件下载 www.cpu7.net.
二值图像的腐蚀与膨胀|推荐代码
二值图像的腐蚀与膨胀这个是在VBgood找到的源码,传到空间做个备份,
IE事件捕获|推荐代码
IE事件捕获这个是在VBgood找到的源码,传到空间做个备份,
seo知识网广覆SEO优化软件
网站推广工具 网站优化软件 百度排名靠前软件 联系QQ:353502250 网站推广软件下载 www.cpu7.net.
西安网站建设广覆SEO优化软件
网站推广工具 网站优化软件 百度排名靠前软件 联系QQ:353502250 网站推广软件下载 www.cpu7.net.
局域网扫描|推荐代码
局域网扫描应网友要求,重新整理了此源码,没有的抓紧下载啊,
VB精华文摘(CHM)database|推荐代码
VB精华文摘(CHM)database本人收集了一些技巧供大家参考，希望斑竹能多放一些时间。按字母或数字顺序排列列表框中的列表项. 将以下代码加入到你的程序中.
验证码生成模块|推荐代码
验证码生成模块自己收藏的源码，特意贡献给大家，有问题联系QQ：353502250
VB建代理服务器 |推荐代码
VB建代理服务器 本人精心收集的VB源码,绝对实用,有问题联系QQ:353502250
网站M广覆SEO优化软件
网站推广工具 网站优化软件 百度排名靠前软件 联系QQ:353502250 网站推广软件下载 www.cpu7.net.
M优化广覆SEO优化软件
网站推广工具 网站优化软件 百度排名靠前软件 联系QQ:353502250 网站推广软件下载 www.cpu7.net.
百度快照广覆SEO优化软件
网站推广工具 网站优化软件 百度排名靠前软件 联系QQ:353502250 网站推广软件下载 www.cpu7.net.
系统M广覆SEO优化软件
网站推广工具 网站优化软件 百度排名靠前软件 联系QQ:353502250 网站推广软件下载 www.cpu7.net.
