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

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

中国电信天翼开放平台2012年度数据:API调用量破亿 iOS走向开放:UC浏览器iPhone版实现云下载 让Dreamweaver支持cshtml (MVC Razor环境) iOS付费榜首:日历应用Fantastical开发者专访 玩转AdMob移动广告:捕鱼达人的猎财之道 12306抢票插件拖垮GitHub 展望2013 jQuery核心团队成员谈其发展路线 Facebook社交视觉搜索分析:引入“竞价排名”? 移动广告现状5大问题解析 Google将于月底举行Google Glass开发者大赛 分享29个超赞的响应式Web设计 Facebook图谱搜索和谷歌搜索有何不同? Facebook向美国iPhone用户提供免费电话 VMware CTO Steve Herrod离职 加盟风险投资公司 维基百科基金会推出众包旅游项目Wikivoyage 最舒适程序员:工作外包给中国 自己却偷懒 Evernote正在与苹果联合开发硬件记忆工具,未来两年公司上市 Fusion-io发布ioScale 全闪存数据中心时代到来? Agent Dash游戏设计之美:如何用2D打造3D体验? 开源项目文档应规避的13处“硬伤” 李开复:Graph Search将可与谷歌搜索媲美 月成本3500美元 如何在AWS上实现BBVA信用卡低延时分析 外媒眼中的国内互联网巨头:服务器集群庞大但缺乏创新 Facebook主导通用主板+SoC ARM与Intel同台对抗 假如像招聘程序员那样租车…… CrowdStar:Windows Phone 8是开发者的下一片蓝海 腾讯云总经理陈磊透露流量变现计划 将比亚马逊AWS更专注 代码之美——Doom3源代码赏析 英特尔公布2012财年财报 Q4净利润同比下滑27% 谷歌CEO佩奇:创新重于竞争 关注非增量改进 再尝败绩 微软杀软AV-TEST反病毒认证失败 急需帮忙!!! 编程,怎能支持少数名组语言 到底在linux那里是用什么命令解压zip文档的?各位高手告诉我!! 已计算的子表单 DBGrid怎样实现0值不显示? 8月25日 0:23 论坛在线名单(462人)!好多人呀!不知道有在公司加班的吗? 在pb中 除了odbc和专有数据库连接 还有其他方式的连接方式吗 调查:你是共享软件作者吗........ 为什么总是提醒我“服务器繁忙,请稍候再试。”CSDN在搞什么鬼?今天遇到好多次了!:( 工作区中的一个简单的问题 picture控件是不是没有双击消息? msdn示例程序,你们是否都看得懂呢? 你用了Delphi7吗,感觉如何? 同学十一结婚,想做个flash之类的东东作礼物,哪位能指导一下,时间不多啦,帮帮忙 SCO UNIX认证好考吗?特别指UnixWare 7的系统管理员。知道情况的跟俺讲讲。 兼职做一个库存进销软件,大概能得多少钱 同学十一结婚,想做个flash之类的东东作礼物,哪位能指导一下,时间不多啦,帮帮忙 怎样刷新页面的某一部分,而不是全部刷新? 请问用2000Server做磁盘镜像是不是一定要求硬件有RAID功能? 个人编写软件,需要用到版本控制吗? 关于资源文件中的对话框。 APACHE出错 我的问题可能会让大家反感!!(在线等待) 请问用2000Server做磁盘镜像是不是一定要求硬件有RAID功能? 请问用2000Server做磁盘镜像是不是一定要求硬件有RAID功能? 如何接收 用 CreateObject 函数创建对象的事件 请问用2000Server做磁盘镜像是不是一定要求硬件有RAID功能? 编程的困惑 BCB_FANS(四大名捕之追杀令) 请进!送分! 请问用vb,vc,delpy,c++ buildle编写的知名软件各有哪些?(不包括for .NET) 国家四级与中程,孰难!! 请问用vb,vc,delpy,c++ buildle编写的知名软件各有哪些?(不包括for .NET) 调查:什么时候想准备结婚?(单超的也可发表意见) 这里有贵州考高程的人吗? 请问用vb,vc,delpy,c++ buildle编写的知名软件各有哪些?(不包括for .NET) 寻软件高手!现有一IP地址和网页、搜索栏关键词拦截程序需要编写,付酬!!! 没声问题 请问在SQL2000中使用中文字段名对性能影响有多大? 请问用vb,vc,delpy,c++ buildle编写的知名软件各有哪些?(不包括for .NET) 启动设置与连接??? 200分求解决用LQ-300K打印商场的收银单纸张设置的难题 请教! 启动用户密码忘了和设置启动项??? 新手上路---------大家是怎么学SQL server的 什么是pascal类的字符串?什么是以NULL结尾的字符串? 哪里有微软认证 MCSE7门课的官方原版教材(英文版)下载? 深夜了,看看CSDN的人气有多旺,在线的请你顶一下。 不买也看看,机会难得:4.5折贱卖9.9新书,本本经典,(编程宝典篇) 有谁能说一下注册水晶报表和发布到98下的具体过程吗? 有谁能说一下注册水晶报表和发布到98下的具体过程吗? vc编写网络程序中的头文件问题! 1.3克的氢氧化钠可用22摩尔0.5摩尔每升的硫酸完全中和,试计算氢氧化钠的纯度!咋算! 车内饰塑料被烤焦怎么处理 工地中,一般说 用几个工 几个工, 如图,一根电线杆AB直立于地面,拉线AC=6m,拉线底端C与电线杆底端B的距离为3m,求电线杆AB的高度. 汽车内饰塑料哪个地方是ABS塑料? 财务是什么定义?是杂工? 如图,一根电线杆AB直立于地面,拉线AC=6m,拉线底端C与电线杆底端B的距离为3m,求电线杆AB的高度. 如何分离汽车内饰的ABS塑料与面皮革? 冶炼金属银用还原剂法 错在哪里了2.油脂是小分子吗,是混合物吗?为什么 取2支试管,1号试管加2ml稀释的浆糊、2ml唾液,2号试管加2ml稀释的浆糊、2ml的清水,分别向两支试管中各滴加 高考,化学,将浓度为0.1mol/LHF溶液加水不断稀释,下列各量始终保持增大的是A c(H+) B c(F-)/ c(H+ ) 为什么不考虑水解,只考虑电离?为什么氢离子减小的幅度小于氟离子减小的幅度? 小功率电取暖器有哪些? 已知长方形的长为√6cm.宽为(√3-1)cm.则这个长方形的面积为多少cm² 我今天在百度看了,都说PP料是结晶型塑料,而结晶型塑料的物理性质就是不透明可是PP料做出来的制品是透明的啊,这不和结晶塑料的定义相反吗, 用一氧化碳还原剂冶炼金属 饱和脂肪酸容易让人发胖还是不饱和脂肪酸容易让人发胖? 注塑塑料的结晶和非结晶是什么意思塑料结晶是不是成型后,产品不透明啊,反之,则透明?高结晶又是什么意思呢,是不是成型快啊? 下列金属的冶炼中,通常是通过高温用还原剂来完成的是A,铁B.铝C汞D 镁 穷人蒲松龄 1、本文题为“穷人蒲松龄”,读完全文,说说蒲松龄的穷表现在哪些方面.2、文中画线句子引用郭沫若的话有何作用?3、作者说蒲松龄是不幸的,又说他是幸运的,这是否矛盾,为什么?4 出师表诸葛亮初三书里的那篇原文在哪啊 海龟是用什么呼吸的?能生活在水里,是两栖动物吗? 不饱和脂肪酸会胖么 4x+6(10-X)=46怎么解? 海龟在淡水里能生存吗 减肥不饱和脂肪酸 金属的冶炼原理,就是利用氧化还原反应原理,用还原剂在一定条件下将金属从矿石中还原出来冶炼金属时,必须加入一种物质作为还原剂对吗金属由化合态变为游离态,都是被还原对吗? 海龟生活在哪 自制的小礼物分别放在20个长30cm,宽15cm,高10cm的长方体盒子里,并用包装绳扎好,接头处用绳子26cm?这些盒子用30cm的绳子包扎好, 出师表的文章背景要详细的!拜托了~~! 一个圆锥形的小麦堆,底面周长是12.56米,现在把这些小麦放到圆柱形的梁屯中去,恰好占梁屯的80一个圆锥形的小麦堆,底面周长是12.56米,现在把这些小麦放到圆柱形的梁屯中去,恰好占梁屯的百 如图,在△ABC中,CD;BE分别是AB;AC边上的中线,延长CD到F,使FD=CD,延长BE到G,使EG=BE.(1):AF与AG有什么数量关系?证明你的结论.(2):F、A、G三点有怎么样的位置关系?证明你的结论. 将浓度为0.1mol/lHCN溶液加水不断稀释,下列各量始终保持增大的是A.C(H+) B.Ka(HF) C.C(F-)/C(H+) D.C(H+)/C(HF)C项是减小还是不变呢 一个圆锥形的小麦堆,底面积周长是12.56m,高是1.2m.把这些小麦装入一个底面直径2m的圆柱形粮屯里,求粮屯小麦的高? 长为50cm,宽为30cm,高为15cm长方体的盒子能放几个直径为6cm高为12cm的圆柱体 什么香烟是白烟嘴!我喜欢抽白烟嘴的烟、、 什么香烟是10元以下的,白烟嘴,混合 烤 的都行 价格要 10以下 最好在北京能买到! 一个圆锥形小麦堆,底面周长12.56米,2米,把这些小麦装入一个底面直径2米的圆柱形粮屯里,求粮屯里小麦的高? 一个长30cm,宽15cm,高10cm的长方体,四周用一根金丝带捆扎,接头处长25cm,捆扎这个盒子至少要多长的金丝 抽烟用烟嘴好处与坏处是什么? 0.02mol/l硫酸溶液怎么配制急用, 已知一个三角形的两边长分别为7cm、1cm,它的第三边为一个整数,求这个三角形的周长,并指出这个三角形的形状.(要详细的解答过程,不要单独一个答案) 碳酸氢盐都是无机物吗RT 0.05mol/l硫酸溶液怎么配制 塑料PT耐温度我买了个杯子,看一下杯底写着Ps 6.我想问下这杯可以装热水不? 碳酸盐,碳酸氢盐都是无机物吗? 取暖器功率太大,把插排线烧坏了,那我直接插墙上的插座可以吗 五斗米是什么意思 跪求解释这篆刻上的四个是虾米字? △ABC,AB=AC,G是△ABC的重心,GD⊥AB于D,GE⊥AC于E.(1)猜想:GD(=)GE.A (2)试对上面的猜想加以证 设计一个简单实验验证CO2与NaOH溶液反应生成的新物质 实验现象 实验结论 求大神指导,这虾米意思啊 如图,在△ABC中,AB=c,AC=b,G是重心;过G作GD∥AB,GE∥AC,分别交AC,AB于点D,E.求四边形ADGE的周长 为了证实CO2与NAOH溶液已反应,同学设计下列实验验证:1.取实验后的溶液,滴加(),现象为();2.取实验后的溶液,滴加(),现象为();《两种方法》 偶哈哟苦依吗死带 这是虾米意思? 对联:一日春工十日粮拜托各位了 3Q 把一段铁丝变为等边三角形和正方形.三角形的边长是(3分之1×a²+3分之1×b²+3)cm 正方形边长(2分之3×a+b-1)cm 求该铁丝长.分解因式(4a²+1)²-16a² 若集合A={X|0<X<根号2},B={X|1≤X≤2}则A∩B= A∪B= 窝了工, 浆糊怎么做? 强碱溶液加水稀释,氢离子浓度升高,其它降低 为什么我知道 是氢氧根浓度减小,k是定值 所以氢离子浓度增大但用越稀越电离怎么解释 工勤人员的定义?具体做什么工作?我想知道它的更通俗.百度上的解释我已知晓!
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘