说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

VB如何取得磁盘序列号?

HTML文档下载 WORD文档下载 PDF文档下载
VB如何取得磁盘序列号?


调用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

安全专家王清将揭秘“大数据时代的大安全” BrainSpace:跟传统搜索说再见 艾普网络的OpenStack实践 移动周报:无需编程,分秒钟DIY一个移动网站 抢占先机:豌豆荚发布视频搜索产品 Cloud-Connect大会Day1:OCP与SwiftStack 云智能手机,将会很快威胁到Android和iPhone? 直接拿来用!超实用的Java数组技巧攻略 腾讯云俱乐部上海站:电商如何利用云提高核心竞争力 iOS开发者必备:六大图片、图标处理类工具 腾讯向搜狗注资4.48亿美金持股36.5% 推荐五款流行的JavaScript模板引擎 为何人人都将成为程序员?看32位美国顶尖精英的说法! MySQL再度失势:继维基百科之后,Google也迁移到了MariaDB Werner Vogels:亚马逊热爱艺术的CTO Jolla宣布Sailfish OS兼容Android手机硬件和应用 为什么项目估算偏差如此之大? Cloud Connect大会Day2:开源与云数据中心 CTO俱乐部第110期下午茶:利用麦肯锡7S模型构建管理框架 跨平台打造移动原生应用的10大武器 iOS与Android本地数据库新选择:使用Objective-C和Java编写 Cloud Connect大会day3:Intel的大数据与Metacloud私有云 农民也玩数据挖掘:基于物联网的高端种菜模式 前谷歌Android开源项目主管Queru加盟雅虎 Windows 8.1售价出来了!分别是119.99美元、199.99美元 对AngularJS进行性能调优的7个建议 为什么说UX设计师的黄金时代已来临? 豌豆荚:“应用内搜索”是打通移动互联网最具竞争力的入口 苹果发布会后的冷思考,64位芯片为开发者带来了什么? 中兴Geek评测:高性价比的英特尔处理器智能机 SAE的资源、安全隔离与Container 请问各位高手,怎么去掉链接下面的下划线?怎么样把网页的“后退”屏蔽掉! 有沒有人用過MaxQ作web測試? 小弟长角了,散分! 请问FTP服务器端响应LIST命令的数据格式是什么? 有关CFont,CharFormat,LOGFONT的使用问题 关于PB的精确打印问题 在rh9.0下编译2.5.30版内核遇到的问题。 模板的设计是隐藏的,如何修改!!! 挂载fat显示中文 关于“冲击波”问题~~小弟好久不来了 兄弟连明明只有十集,为什么中央电视台的预报是14集,怎么多出了四集? 各位!指点下我这个新手吧~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 我写的字符串批量修改器下载,各位大虾给我提点建议啊 SQL问题:烦请高手帮忙看一看:谢了!! 请问如何用一条查询语句 查2张表并且排序? 请问显示本机操作系统和硬件配置的API是哪个?? 毕业随想!!! 我在使用ASP.NET+C#操作数据库遇到点问题,HELP 请问MDI窗口的子窗口一次只能打开一个,怎样设置??? 关于C++书籍的出版社问题 讨论关于GDI+中图象处理的问题 大哥大姐们帮忙分析一下?小弟先谢了! 可以介绍一下eclipse吗? 关于oracle的基本问题,请大家帮帮我 从软件角度来讲是不是Windows更好? 关于麦克风的问题? 看这个求和的问题,怎么做才好? 请问windows xp 上面是不是没有java虚拟机啊! 基于对话框的程序,怎样做托盘的效果? fread 读文件问题 VB6.0在XP下修改字体出现的停止响应问题 《数据库系统概论》的中文电子版哪有下载? 一个有挑战性的问题, 做个实验! 硬盘少了7G 怎样在DBGrid中实现数据编辑(添加、修改、删除) Help! 请问回掉函数市什么意思? 关于多行文本框的问题 MSFlexGrid 如何绑定数据源 请教程序员的硬件试题 要求把系统管理和软件操作系统使用合并。 dialog的显示问题 Sql Server 2000下,如何定时执行一条SQL语句 刚写的Asp代码变成了乱码,我该怎么办? 高分求助 sql 查询 D3D全屏状态下如何使用系统的中文输入法? 请问通过JDBC-ODBC桥,读入中文字段乱码的问题 急,在线等待!!! 如何调用保存对话框? Email如何申请 婕字换偏旁部首组成新字,再组词还有融 哪位朋友能用“婕”和“云”组一个词语呢,婚礼上用的那种.想选个词语来婚礼上用的,哪个字在前都可以的.比如我有个朋友两口子分别是“娜”和“杰”,就用的娜样杰出的爱恋,感觉挺好 含有 婕妤 诗词,以及婕除了婕妤还可以组成什么词? 英语翻译  《贝多芬百年祭》现有周珏良译的垃圾翻译,简直不堪入目,开头就臃肿得没法读:  “一百年前,一位虽还听得见雷声但已聋得听不见大型交响乐队演奏自己的乐曲的五十七岁 三顾茅庐白话文xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 英文原文 萧伯纳的话“家是世界上唯一隐藏人类缺点与失败的地方,它同时隐藏着甜蜜的爱.”求萧伯纳对于词句话的原文,我要的是萧伯纳的原文哦,最好附带上出处, 三顾茅庐全文(白话文)急用 萧伯纳的话 英文原文此时此刻在地球上,约有两万个人适合当你的人生伴侣,就看你先遇到哪一个,如果在第二个理想伴侣出现之前,你已经跟前一个人发展出相知相惜、互相信赖的深层关系,那 三顾茅庐要短一点的 急用!白话文的 这是那一种野草莓 北京自住房摇号选房将出细则 京市户籍广东省应急委成员调整 朱小丹任主任\"不计划生育连饭碗都不给了?\"—(今日海外言论10月29日)军事手段欧洲西部多国遭飓风袭击 已致至少13摩洛哥举办中国电影周 《搜索》等7部美国华人不满ABC道歉 或采取更大规安倍出访土耳其 称海底隧道是日土友好澳维持禁止华为参与宽带网络项目 华为第二届世界浙商大会青田分会举行 共谋重读佛教经典 中国40位法师聚浙江杭男子潜入商务楼盗窃 偷累后倒地睡着被与半裸超模的一天:衣服都要掉下来了也冻产协议支撑高油价,中国油价不得不涨女子败光78万遗产 染病后生下女儿择业必读!未来哪些黄金行业最适合你?欧美范简洁的春装,人手必备的基础款!你知道吗?这个国家的婆婆才是媳妇们的\"三大油效率低\":正努力消除纵向高中食堂划线男女分开 校长称防男女相综述:步行者送小牛5连败 德罗赞38重磅数据来袭,下周原油将群雄并起,战带着成都回三国兼职巨星超级响马系统混乱无限英雄联盟:异界召唤师绝对选项我是血法师极品修真在都市斗战齐天你若来我便在火影之主神系统望乡台瀑布旅游土地岩瀑布旅游水口寺瀑布旅游南山森林公园旅游龙华古镇旅游沐川竹海旅游宋庆龄汉口旧居旅游东交民巷天主堂旅游无锡影视基地旅游白云人家旅游毛主席下榻处旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘