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

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

32场!2013年360HTML5校园行首站告捷 移动周报:不做内容,只钻技术的快播 一周消息树:中国开源发展缓慢的“病因” 百度应用引擎BAE正式开放 新增支持Node.js CloudVelocity,下一个VMware? Buffer创始人谈开发:先验证,后编程! 谷歌可穿戴式产品再度来袭:会说话的鞋子 未来Chrome OS或取得Android般成功 云落地@北京,北京市北斗公共平台或开放API? GitHub再遭攻击 主要服务中断约一小时 移动开发者将有望拥有.app域名使用权 微信将推“游戏中心”?移动互联网入口圈地加剧 美国航空公司首次开放API 并举办“黑客马拉松”编程大赛 谷歌数据中心设计的10条“黄金法则” GitHub时代:为什么我们都在开源 VMware发布Horizon Suite 三款应用打包折扣低 TOP30+应用排行榜:二月份国内外综合榜单 开源是否意味着不需要负任何责任? 微软年度科技展 酷炫技术知多少 图解Hadoop生态系统 HTML5并不给力 微软IE10又默认启用Flash Oracle出新提案:Java正逼近iOS? TIOBE 2013年3月编程语言排行榜:厚积薄发 Ruby反超Perl 清华大学开源镜像站将被关闭 发表公开信 前Google资深研究员赵勇回国创业 专注计算机视觉/模式识别 开发者福音,微软开源Kinect源代码 日本很积极:富士通和NEC确认将推Tizen设备 10大支持移动“触摸操作”的JavaScript框架推荐 数据科学家的争夺及美分析学专业研究生院的建立 从开放走向封闭 Netflix宣布停止发布API key 《植物大战僵尸》神秘续作:可能是一款横版游戏 急救!子窗体问题!在线等待 如何把程序窗口显示在其他所有程序的前边 dbengine error: invalid blob length? 数据集打开问题 严重的问题???? 一个问题: 一个小问题,在线求助! 神秘的芭蕾舞鞋……¥%……·%·¥%·#¥%#·¥#@$%$#^% 无法进入系统,救救我吧 菜鸟问题,送分了!!! 得分小问题 小问题,请熟悉InterBase的大大进来看看。 做一个分布式的例子时的问题 大家帮我看下这几句问题到底出在哪里呀!!!!!!!谢谢 连接数据库的疑问,盼望解答!! 什么叫作实例? 菜鸟问题 十万火急:MDI的一个问题?????????在线等待!!!!!! 调查一下用汇编语言开发的工资如何?(深圳 ) 有关Builder版的兄弟定期进行网上技术交流的倡议书! 急!关系到我是否找到工作,请回答 如何根据Form的大小调整控件的大小 闪盘的另一个分区不能用了!!在线 连接数据库的疑问,盼望解答!! 急!急!急!请教一个共享的问题? 请问哪里有Class类和Method这两个类的说明呀!谢谢! 怎样打开CSDN电子版 请推荐一下有关于JAVA,JSP,JAVASCRIPT相关的好书 汽车与电脑谁重要(转) 转让 全新飞利普 820 彩屏手机一部(个人) 请问是否有可以统计数据的电子表格控件? 给点看法? 是不是来这里的人混得好的不多,搞得我都不敢跳槽了 倒霉就一个字,我只说一次。 一个关于Delphi的简单循环外提(编译优化)的测试,有兴趣进来看看 大家遇到这样的问题了吗? DTPicker的问题,急急急!!!! sun的ultra5启动时显示没有键盘设备,可能是键盘坏了,哪里能找到这种8芯的鬼键盘? softice调试时出现的有意思的问题 怎样终止一个函数? 关于j2ee的几个问题 谁有数值计算方法与c语言工程函数库的代码,急!!! 麻烦有项目开发经验的大虾进来看看,给项目估个价!谢谢! 急!!大问题!!求助!!发扬你们的美德吧! JAVA的配置问题 菊花在水里跳舞!!! 用什么来写啊!!!jdk还是jbuilder TP-LINK的RTL8029(AS)芯片的网卡怎么装? w32dasm怎么把程序中的中文字符串反汇编成指令了呢? 曾用B/S四层结构开发过OA的,请进!! sql语句的问题? 德国是日耳曼民族,希特勒为什么却称之为雅利安人?雅利安人不是北印度的一个部落吗? 蝉这篇文章中的宽恕是什么意思 高三生活作息回家开始做作业就8点了,做到10点半人实在是不行了,太累了想睡觉,于是我就睡了,然后三点半醒过来继续做作业,做到5点再睡到6点一刻起来,这两天都这样,我觉得这种生活可能会 Excuse me,may I use your computer?英译中求你了 Did she send you an email?中文 高三科学作息? 1936年的柏林,希特勒对12万观众宣布奥运会开始.他要借世人瞩目的奥运会,证明雅利安人种的优越.我来扮演一位德国观众,在“情绪昂扬”到“倏忽沉静”这段时间里,我会想:---------------------- 连词成句 1.lingling send email didn't an 2.we there in went may 3.was she ago a many years4.a sing can song you 5.can't them i carry all6.years wasn't doctor ten he ago a 7.did see him you8.could she read write and what has been down has been down成分分析 There is agirl under the tree,She's drawing pictures.合成一句话 Sam and Jim have a blanket(对a blanket提问) 高三了科学的作息是怎么样的,要详细一点哈 甲、乙两人各走14千米,甲比乙早半小时走完全程.已知甲与乙速度的比为8∶7,求两人的速度各是多少? send,to,dad,an email.连词成句 utter balls "It's utter balls to say he represents democracy," The android browser is utter balls.One day the HC forum servers won't suck utter balls 在36÷9 =4中,如果9乘8,要保持商不变,那么36应( ) ann eats eggs and milk in the morning 那个词错了 What has been buried has often been buried well.如题 求这两种吊灯灯泡型号 Ann eats eggs and milk in the morning.这句子有没有错. 高三怎么安排作息科学 小学四年级生活作息表.不加写作业! there are two books in my hand.(对划线部分提问)划线部分是two books 印度雅利安人和纳粹雅利安人是一个人种吗一个民族吗 孔雀东南飞中兰芝说“人贱物亦鄙”是什么意思 You'll have to spend ----writing your report here A.one day or two days B.one day or two C.a day or two .D.two days or one 为什么 雅利安人跟印度婆罗门是什么关系? 速度和时间是否成正比例?成什么比例?如果用四小时行完全程,每小时行多少千米? He’ll have to spend ____ writing hie report here.A.one day or two days; B.one day or two; C.a day or two days ; D.a day or two选D为什么不选A啊 I didn‘t have any breakfast _____________a cup of milk 是填 except for 还是except 理由. ----Excuse me,but I want to use your computer to type a report.----You________ have my computer if you don't take care of it.A.shan't B.might not C.needn't D.shouldn't 为什么不选B i will spend what i have to buy you a coat为什么不说i will spend what i have buying you a coat I have a cup of milk (改为复数形式的句子我超急的 what kind of 用法 you are planning to spend your money have fun this week,better ___ it-you've got some big bills coming.空格填什么,为什么呢 rest不是可数名词吗?为什么get some rest.后面不加s? excuse me ,but I want to use your computer to search for information.的答语 直径为d的圆形钢板,现需切割一个矩形钢材.问如何切割,矩形的面积最大?并求出最大面积? 当rest为名词时,I 当rest为动词时,I rest啥意思当rest为名词时,I rest啥意思 -Excuse me,but i wanna use ur computer 2 type a report.-You_have my computer if you don't take care of it.1shan't2won't答案是1我选2为什么不对p85 求一解答题:直径为d的圆形钢板,现需切割一个矩形钢料.问如何切割,矩形的面积最大?并求出最大面积? rest作为可数名词是什么意思 中国人是雅利安人吗? I eat lots of fruit and vegetable对吗?如果不对那要怎么改? rest的名词是什么 雅利安人种的起源? 直径为d的圆形钢板,现需切割一个矩形刚料.问如何切割的矩形面积最大求最大面积 甲乙两车分别从ab两地相向而行,出发时,甲乙的速度比是5:4相遇后甲的速度减少20%,这样当甲到达B地时,乙离A地还有10千米,那么AB两地的距离时多少千米? 雅利安人的英文是怎么拼的? I seldom eat fruit ()vegetable.A.and B.or 选什么? you should a___ have a glass of milk.根据提示填空, 一段路有6千米,甲用4/3小时走完乙用3/2小时走完.写出甲乙两人的速度比并化简我要式子. 直径为D的原形钢板,现需切割一个矩形钢料.问如何切割,矩形的面积最大?并求出面积? 陕西科技馆里面有什么?是陕西的哦- - 一段路程,甲行完全程需4小时,乙行完全程需6小时,甲、乙两人的速度比为()一段路程,甲行完全程需4小时,乙行完全程需6小时,甲比乙的速度快()%小明每天上学需走20分钟,今天迟出发4分钟, 《蝉》的文章主旨是什么7年级的小思写的.(不要教辅材料!) 急需~~~~~~! 参观陕西科技馆作文开头 a womem is a man,like fish is a bycicle只是单纯的字面意思么? 求 雪小蝉的文章 He likes making model planes.怎样改为否定句We like the same thing.变为否定句Ilike swimming.把主语变为He 美19岁学生欲徒步闯南极美国少女做小首饰赚大钱大姐109 二姐106 小妹99 英愿广州人爱下厨的传统代代相传擅用其形象 中企遭控告韩泡菜、日和食将入非遗BBC主播再曝性侵英一“大学”批准小狗入学 缴费即获硕证据表明艾滋病儿或可治愈日本进入“胖女时代” 专家称或因对瘦美好的心灵对话平台奥巴马医改核心举措因漏洞频出接受国会手机通信遭“窥视”? 默克尔向奥巴马中美艺术家作品展在芝加哥举办喷泉捡小钱 喜得大捐款仰光写字楼租金贵过新加坡纽约油价24日上涨默克尔亲自致电奥巴马讨说法马达加斯加过渡总统呼吁选民积极参加大少年玩假枪 警察开真枪澳洲山火祸起军演廉署去年接2652宗贪污投诉预算草案反对票近年最低两小贩售卖烟花被拘留“大肚断肠”历史欠账要还“跨境污染是否设特殊机构待商讨”吴龙贵:管住舌尖腐败也是保护公务员茶花娇贵月季清丽 年初一隔空来斗艳香港校巴为什么安全?如果你敢超载,司河北省组织开展礼敬道德模范活动遏制文山会海 减少程式化虚耗索契冬奥宣传日历 性感女郎演绎插画风深圳图书馆网络书香过大年省公安厅与各地公安机关签订禁赌责任书空姐:李娜看上去好酷 就像女王一样令逛仙湖有多条路可走许勤谈公车改革:望社会和公务员都接受我国将研究建立贫困县退出机制高速公路没想象中堵河北省督导检查公车使用管理情况 部分开阳县为新任村(居)干部“充电”国内+国际
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘