文章探索:   分类:    关键字:  
  + 栏目导航
  + 相关文章
文本框中光标位置的获得
用VB导入导出你的IE收藏夹
VB应用程序访问SQL Server方法探讨
VB访问SQL Server数据库技术全揭密
自动上网抓数据的机器人
自己的IE——用VB制作浏览器
VB中如何保存Webbrowser中的整个页面..
在VB中该如何控制其它程序的弹出窗口..
保存webbrowser中的HTML内容
破译动网验证码的简单方法
轻松获取QQ密码
VB.NET获取硬盘序列号的方法
WEBBROWSER 技巧一(收藏)
VB自动登陆网络站点详解(二):Inet..
获取webbrowser控件网页的源码
WebBrowser控件说明
关于用VB做更漂亮的窗体的思考
VB中访问存储过程的几种办法
VB6中改变屏幕的分辨率和刷新频率
VB编写一个能显示百分比的自定义进度..
公农历转换VB类
VB.NET窗口渐淡关闭
使用VB实现邮箱自动注册(二):修改..
VB.NET轻松实现任务栏程序
VB.NET启动外部程序
利用vb实现图片上传
VB实现局域网内的文件传输
VB 一个Function传回多个值
在VB中实现多线程
VB 手机号码编码程序


技术教程 -> VB教程 ->  
VB.NET获取硬盘序列号的方法
来源:转载   人气:2508   录入时间:2007-11-8
    先 Imports System.Runtime.InteropServices
   
   然后创建包装类
   
   Class LIBWARP
   <DllImport("Kernel32.dll")> _
   Friend Shared Function GetVolumeInformation(ByVal strRoot As [String], ByVal strVolumeName As System.Text.StringBuilder, ByVal nSizeName As Integer, ByRef serial As Integer, ByRef maxComponentLength As Integer, ByRef nFSOptions As Integer, ByVal strFileSystemName As System.Text.StringBuilder, ByVal nFSNameSize As Integer) As Boolean
   End Function
   End Class
   
   最后测试
   
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
   Dim bufName As New System.Text.StringBuilder(1024)
   Dim bufFS As New System.Text.StringBuilder(1024)
   Dim size As Integer = bufName.Capacity
   Dim n As Integer = 0
   Dim serial As Integer = 0
   LIBWARP.GetVolumeInformation("C:\\", bufName, size, serial, n, n, bufFS, size)
   MsgBox(Convert.ToString(serial, 16))
   End Sub
   
   
   End Class
   




Copyright(C)2007-2021 广州市佳沛数码科技有限公司 版权所有
公司地址: 广州市荔湾区东漖北路560号511室
电话:020-81803473 传真:020-81544987