vba 修改加密表格（用逻辑盘序列号加密）

大家好，我们今日继续讲解VBA代码解决方案的第74讲内容：如何取得逻辑盘序列号，为电脑定制程序。在上一讲中我们讲了使用Environ函数返回电脑的名称，使程序只能在某一特定的电脑中使用，完成为某台电脑量身定做程序的效果，但这里有个不足，电脑的名称是可以修改的，而且可以多台电脑命名为同样的名字，这时上面的程序就会和我们最初的期望是不符的，达不到我们的目的。有没有更好的方法呢？有！更好的方法是程序开始时检查电脑的逻辑盘序列号是否是指定的序列号。

为了预先得知测得电脑上的C盘序列号，可以1.在“附件”中打开 “命令提示符”；(若为win7系统，右键点“命令提示符”，选“以管理员身份运行”) 2.输入“fsutil fsinfo volumeinfo c:”回车，查看C盘序列号。特别注意返回值的意义，不一定是十进制的数字。

当然，取得逻辑盘序列号也可以采用下面应用于FileSystemObject对象的GetDrive方法，此方法返回一个与指定路径中的驱动器相对应的Drive对象。

语法如下： object.GetDrive drivespec

参数a) object是必须的， FileSystemObject对象的名字。

b) Drivespec参数是必须的，可以是一个驱动器字符（c）、一个驱动器字符加一个冒号（c:）、一个驱动器字符加冒号和路径分隔符（c:\）或任何网络共享的说明（\\computer2\share1）。

运行窗口：（略）

今日内容回向：

1 如何获得电脑C盘的序列号？

2 如何利用电脑C盘的序列号来定制程序？

3 用这种方法是否可以做到只为一台计算机定制程序？