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

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

关闭所有的数据连接 -VB资料 关于数据报表的打印设置-VB资料 VB建立、改变及重构Access数据库-VB资料 结构化查询语言(SQL)详解之一-VB资料 利用VB使ACCESS数据库在网络使用中保持同步 返回 连接Data到多个表单-VB资料 列出 SQL Server 数据库中所有的存储过程-VB资料 列出MDB档当中所有table的名称-VB资料 您想知道有谁正在使用您的 Access 文件吗?(多人环境中)-VB资料 主题:浅谈Excel 的VB编程 巧用VB6的DataGrid实现通用电子表格 VB取得正确的 RecordCount 值 主題:如何动态新增、移除 ODBC DSN? -VB资料 VB如何将表中的数据导出到电子表格中 VB如何将文本文件转换为ACCESS数据库 VB如何將 Excel 的文件导入 Access文件? VB如何判断数据中是否存在某一表或查询 VB如何删除FoxPro数据库的数据? VB如何设置对VB数据库连接的动态路径 VB如何使用 ADO 來压缩或修复 Microsoft Access 文件 VB如何修改Foxpro数据库(不是用VB实现的,不过也可以看看) VB如何在 SQL 语句中使用日期? 返回 VB如何在表中保存单引号? VB如何抓出 Access 的 Table 欄位中的【敘述】部份呢? 实现Access数据库的Web查询-VB资料 使用Visual Basic访问数据库几个注意的问题 数据库查询-VB资料 数据约束控件和 RecordSet-VB资料 锁住数据库中的表 -VB资料 谈谈VB的数据库编程方式 为VB5辩解: VB处理数据库时求数据表记录总数的最佳方法 我用17"的顯示器設為1024*768顯示,但pb9開發工具的字體很小,怎麼設啊? 对于解决站点使用基本验证的自定义客户端验证界面的一篇有价值的文章 运行java3D后这样的提示,怎么回事????? 高分求 关于DLL程式异步通知,类示xmlhttp 组件的onreadystatechange事件 初学者请高手指点迷经? Form上没有缺省按钮,在控件上Enter按键时,喇叭老是响,怎样解决? 如何实现导入数据库中的数据--急,知道的请帮忙 有关dataset的问题?? 使用用户控件提示找不到许可证信息,刚才都是好好的 数据库问题:有什么好的解决办法。 请问如何避免client连接server端出现WSAENOTCONN的错误? 自动注册ODBC数据源问题 请大家注意:遇到有人骂你的时候请通知斑竹,不要回骂。 dbsrv7.exe为何长时间的占用我的CPU? 菜鸟问题,麻烦帮帮忙!!!!!!!!! 在delphi中如何做ocx,大家帮我介绍一下。最好是能放在浏览器中用的。 各位大哥,请教一个菜鸟问题!!! 我电脑里装的win2000使用的时候经常死机,就是突然鼠标,键盘都没反应,只能重起, 谁能帮我判断一下会是什么原因? 如何取得TextField的选择区域? 请问浙江有高程培训班吗? 昨天有人扎了我三针...... CallableStatement 问题 “ActiveX 不能创建对象, 错误号429”,请问谁这个问题,急切求助 为什么建立虚拟目录时这样不行? <Context path="/xuu27" debug="0" docBase="C:\jsp\xuu27" reloadable="true" crossContext="true"/> 问搞版主竞选的版主们: web服务服务器端设置 我的一个页面中有三个frame,请问如何在其中一个frame中点击连接,关闭窗口。然后整个页面就关闭了. 刚学sql语言,有点不懂 一个很弱的问题 有谁知道开书店的进书渠道吗? 我的一个页面中有三个frame,请问如何在其中一个frame中点击连接,关闭窗口。然后整个页面就关闭了. 动态链表。。。 VB,excel关于单元格的问题 谁能介绍一下mysql的数据表结构 急!急!有关Resource DLL的问题。 我想考程序员,请问该买些什么参考书看?哪个网站有这方面的资料? 用VB开发的软件,我想。。。。 寻求有关电子商务的英文文章$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 为什么该语句不正常了?? 我写的分页程序,很短,请教错误! 认为自己的【昵称】够个性的,欢迎进来。。。 想请高手指点一下! 你天看到一篇文章,感觉不错。贴上来供大家欣赏。 如何把Access中的图片显示在Webbrowser控件包含的Html文件中? 水晶报表中设置的参数无效? 请教Oracle错误:ORA-12560: TNS: 协议适配器错误 基础 xp共享 ADO怎样对视图进行查询 请教:如何使用c#生成动态gif和jpg文件? 升星了,多谢支持,没二话,散分。顺便问个问题....... 《人鬼情未了》英文简介翻译 “你不存在了,但生活还在.”赏析句子 天蓝色的彼岸 重婚罪可以判几年?怎么才可以算重婚罪? 2010年第5号热带风暴今年第4号热带风暴“电母 求《天蓝色的彼岸》中经典的句子! 那重婚罪要判多少年呀,我该怎么办呀?我真的会判重婚罪吗 2010年第2号热带风暴怎么还不来 求骈偶句的定义~~~(语文作业) 这个句子用不用加句号?现场调查笔录一份;身份证复印件一份;营业执照复印件一份就是上面那句 是填在在表格里的一句话是否需要加句号 梨花带雨不是诗是什么意思 甲与乙共谋共同杀丙但届时乙因生病而没有前往犯罪地点由甲一人杀死丙乙甲是否构成共同犯罪为什么 英语翻译Chunks:aim to doin despairshow offrecharge one's batteriesgive access toSetences:1.政府想把这个地区开发成下一个硅谷2.我们最后的搜索以绝望告终3.他在晚会上向大家炫耀他的结婚戒指4.园艺是一 毛泽东的《沁园春 长沙》的“怅寥廓,问苍茫大地,谁主沉浮”这一问题的回答是? 构成共同犯罪,主体必须是二人以上,包括二人吗? 小琼面前立着一副"米老鼠"的简笔画,她从来没学过绘画,竟然清晰 准确在桌面纸上画出米老鼠,请说明其中奥妙,并作图示意(乙种A点代表米老鼠) 关键是图2怎么画啊!告诉画法就OK@@ 梨花带雨.是什么意思? 讨论方程y=||x|-1|的性质,并描绘其曲线如题 求米奇的简笔画 f(x)=(a(x-1)^2+1)/(bx+c-b)(abc为N,f(2)=2,f(3) 骨瓷杯都含有什么成份 这是什么意思啊?哪个帮帮我吧? 如题,“前不着村, 外表很平静内心很澎湃什么意思 彭湃是什么意思 前不见村,后不着店. 澎湃激荡什么意思 太自我澎湃是什么意思 前()()(),后()()() 成语 如前不着村,后不着店 "胸中涌起澎湃"的成语解释火速 设函数f(x)为奇函数,且对任意x,y∈R都有f(x)-f(y)=f(x-y),当x0,f(1)=-5,求f(x)在[-2,2]的最大值如题 已知一个多边形的内角等于1440度,则过此多边形的一个顶点有几条对角线,把这个多边形分成几个三角形 我没脱衣服,但他上我身上了,他下身还不停地动.他是不是渴望我的身体? 设f(x)为奇函数,且对任意x,y∈R都有f(x)-f(y)=f(x-y) 当x0 f(1)=-5 求f(x)在【-2,2】上的最大值 梨花带雨是什么意识 重婚罪的定义是什么. 若函数g(X).f(X)都是奇函数,F(X)=a*g(x)+b*f(X)+2在(0,+∞ )上有最大值5,上有最大值5,则在(-∞,0)上,F(x)的最小值 梨花带雨什么意思 什么东西具有升值空间请说明具体的东西 你的电脑感染了病毒英语怎么说? 描写山水原野的成语 二次函数的关键要素是————,————. 米老鼠多少笔划 独坐敬亭山的主旨 老家 前几年,我曾诌过两句旧诗:“梦中每迷还乡路,愈知晚途念桑梓.”最近几天,又接连做这样的梦:要回家,总是不自由.请假不准,或是路途遥远.有时决心起程,单人独行,又总是在日已西斜 重婚罪能判几年 澎湃是什么意思? 来龙去脉 莫小米 送人,到底有多少笔划! 澎湃什么意思? 到目前为止,人类发现的行星、恒星和星系最大的各是什么 重婚罪一般判几年?为了写胡诌乱诌的政治话题有关的作文- - 谁有的英文影评?有急用先谢谢了 醋,水,米水,盐水浇花,哪朵花活得长? 夫子的意思是什么,快点告诉我吧! y=ax的平方+bx+c中,b和c变化会使图像形状发生的变化? 共同犯罪必须区分主从犯吗 米老鼠共几笔画 二次函数y=ax^2+bx+c的图像过(-1,4),(2,8)两点,且与二次函数y2x^2的图像开口方向相反形状一样,只是位置不求该二次函数表达式是过(2,-8)y2x^2改为y=2x^2 《绝顶》和《天蓝色的彼岸》中深刻的句子和好段(长一点).急其他描写生命的书都行,(写书名和作者)谢啦 犯重婚罪能判几年刑 叙利亚问题联合特使卜拉希米抵达大马士西班牙称监听行为无法接受 敦促美国提袁隆平:终极目标水稻亩产1200公斤曝福建闽侯抽调教师协助拆迁 官方称已多国对美国监听表达不满要求解释 研究西班牙称遭大规模监控难以接受 促美公尼泊尔政客涉嫌谋杀同党候选人 两印度尼泊尔政客涉嫌谋杀同党候选人 两印度叙利亚问题联合特使卜拉希米抵达大马士浙江一盗销柴油团伙五分钟能使满箱柴油拆东墙补西墙 浙江一男子非法集资14李克强会见德国友人多国对美国监听表达不满要求解释 研究突尼斯政治纷争致市政荒废 街头成“垃俄官员说中国是俄旅游领域主要战略伙伴四川南充男子驾中巴强冲交警队和法院 俄官员说中国是俄旅游领域主要战略伙伴张高丽会见美国能源部长莫尼兹外交部:国际社会应尽早制定网络空间行赵洪祝会见尼泊尔客人范长龙会见巴基斯坦陆军参谋长日本“不安”倍增:安倍支持率从75%台湾桃园杨梅集义祠普度 万斤白米猪吸香港零售额连跌 议员称若削减自由行损云南鲁甸地震见闻:再穷也是家 会让子中纪委:李崇禧金道铭等官员出问题因监中纪委:今年以来对委部机关240多名盗窃舒马赫病历嫌疑人自杀 牢房中上吊美国安部承包商称遭网络攻击 雇员信息罗杰斯杯:小德/瓦林卡男双出局 布莱淮北市行政事业性收费继续“减肥”普京禁止进口美国食品及欧洲果蔬 全面加沙地带一医院1周3婴儿死亡 孩子睡法媒:无惧“成长烦恼” 中国企业坚持潘基文吁巴以持久停火 促解决加沙冲突母爱37℃ 母乳妈妈的乐与累淮北市就业促进工程有序推进莫让废弃节能灯成环境“杀手”郭台铭送花低调庆6年婚 妻盼把福气分香港大学破解骨细胞发育之谜邓榕告诉“邓小平”饰演者:我爸爸走路潮流站逼迁纠纷已立案 已“正常营业”
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘