加密!用逻辑盘序列号加密!实现VBA专属代码的完全个性化定制
cac55 2024-11-03 12:30 13 浏览 0 评论
大家好，我们今日继续讲解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）。
在使用GetDrive方法返回一个Drive对象后，就可以使用其SerialNumber属性返回C盘的序列号。Drive对象对特定磁盘驱动器或网络共享的属性提供访问，而应用于Drive对象的SerialNumber属性用于唯一标识磁盘卷标的十进制序列号，语法如下：
object.SerialNumber
下面我们看下面的代码：
Sub MyDriveID()
Dim DriveID
Set DriveID = CreateObject("Scripting.FileSystemObject")
MsgBox "C盘的序列号是：" & DriveID.GetDrive("C").SerialNumber, 64
End Sub
代码解析：MyDriveID过程使用GetDrive方法取得电脑C盘的序列号。
运行MyDriveID过程将使用消息框显示电脑C盘的序列号。
我们再据此修正一下上一讲讲过的程序：
Private Sub Workbook_Open()
Dim myName As String
Dim DriveID
Set DriveID = CreateObject("Scripting.FileSystemObject")
myName= DriveID.GetDrive("C").SerialNumber
If myName <> "1859833767" Then
MsgBox "对不起您不是合法用户，文件将关闭!"
ThisWorkbook.Close
End If
End Sub
代码截图：
运行窗口：（略）
今日内容回向：
1 如何获得电脑C盘的序列号？
2 如何利用电脑C盘的序列号来定制程序？
3 用这种方法是否可以做到只为一台计算机定制程序？
相关推荐
- iphone6自定义铃声设置流程（iphone6怎么自定义来电铃声）
-
苹果iphone6自定义铃声如何设置，iphone6自定义铃声怎么设置，iphone6自定义铃声设置教程，下面小编给大家分享一下。设置自定义铃声首先要自己制作或者找到一个铃声音频。1、在电脑上面把已经...
- iphone手机三分钟更换铃声，无需电脑直接手机操作
-
iPhone怎么在手机上换铃声？无需电脑！1分钟教你给苹果手机换铃声众所周知，苹果手机的ios系统是比较封闭的，封闭系统就会给我们带来一些不便，这里要说的就是苹果手机更换个性化铃声就比较麻烦，因为io...
- iPhone手机个性铃声设置详细教程（iphone个性铃声怎么设置）
-
iPhone现在已成街机了。朋友聚在一起的时候，是不是总有种以为是自己手机响了的赶脚。那么，小编今天跟大家分享一下iPhone怎么换铃声?，让你轻松设置属于你的个性铃声。1:电脑端安装iTools，安...
- iPhone也能用自己喜欢的铃声了，2分钟包搞定!
-
听到超好听的铃声，怎样才能放进iPhone里？这貌似是一道千古难题。90%的iPhone小白：听到这么爽脆带感的iPhone铃声，我要用！我要用！我要用！视频然而打开iTunes发现，脑子一片空白……...
- 苹果iOS 26隐藏新铃声曝光:强调“玻璃质感”
-
IT之家6月20日消息，苹果在iOS26中隐藏了一个新的铃声，这是现有默认铃声“Reflection”的改版。“Reflection”自2017年iPhoneX问世以来一直是系...
- 苹果ios14充电提示音怎么设置 iPhone手机修改充电提示音教程
-
ios14充电提示音最近很火爆，大家都想要知道苹果设置充电提示音的方法，个性化的设置非常吸引大家，小编也会在这里教大家ios14苹果充电提示音的设置，操作的流程会直接分享在下方，各位玩家们都能一起来看...
- iPhone苹果16自定义来电铃声攻略（ios自定义铃声怎么设置）
-
在智能手机的个性化设置中，更改来电铃声是展现自我风格的一种方式。对于使用iPhone苹果16的用户来说，设置一个独特的来电铃声，不仅能提升接听体验，还能让日常生活更加多彩。以下是如何为iPhone苹果...
- 未越狱iPhone用户自定义来电铃声和短信铃声的教程
-
其实自定义来电铃声和短信铃声的过程没有什么区别，但要注意，来电铃声的播放时间不能超过40秒，短信铃声的播放时间不能超过30秒，这也就是说长度为30-40秒的仅在iPhone的来电铃声中出现，少于30秒...
- 苹果手机怎么设置闹钟铃声?更改为歌曲铃声，亲测有效
-
很不是有很多小伙伴每天早上都被苹果手机刺耳的“雷达”闹钟铃声给吵醒呢？想要更换一个舒缓的闹钟铃声，却发现自己鼓捣半天却无法更换喜欢的歌曲闹钟铃声。苹果手机怎么设置闹钟铃声？下面小编就来分享如何将苹果手...
- 独家教程:iPhone手机铃声制作与更换，一般人我不告诉他
-
今天刚好自己作铃声。。想到吧里好多人都会问怎么制作铃声。于是顺便截图发吧里。虽然百度一下铃声制作已经泛滥。但是还是会一直有小白问。所以这里会详细图文说明。先介绍小白式铃声制作。http://www....
- 苹果用户iTunes自制自定义铃声教程
-
怎么制作iphone6铃声，如何使用iTunes剪切音乐自制铃声，新版iTunes怎么自制铃声，相信很多苹果用户都想使用一些个性化铃声。那么就学习一下这个方法吧。1、在电脑上面打开iTunes，选择编...
- 轻松学会!苹果手机怎么设置铃声来电铃声(3个方法)
-
在日常生活中，手机的铃声扮演着非常重要的角色，不仅是接收来电的提示，更是展示个人品位和风格的方式之一。而对于苹果手机用户来说，定制来电铃声可以让手机更具个性化，并且让您在繁忙的环境中更容易识别重要的来...
- iPhone13怎么设置来电铃声?苹果13自定义铃声操作教程
-
我们知道，苹果iOS系统是相对封闭的，在很多功能设置上与安卓机大有不同。就如来电铃声，很多苹果用户就不喜欢使用默认的那些来电铃声，想要自定义铃声，却不知如何操作。最近，新购入iPhone13系列机型的...
- iPhone 免费铃声:iOS 26 终于让设置变得更简单
-
苹果终于开窍了——省去了最烦人的繁琐步骤。iOS26终结了多年来困扰iPhone用户的麻烦操作：现在无需通过GarageBand应用，仅需轻点几下就能设置自定义铃声。完全免费、直接操作且极...
欢迎 你 发表评论:
- 一周热门
- 最近发表
-
- iphone6自定义铃声设置流程（iphone6怎么自定义来电铃声）
- iphone手机三分钟更换铃声，无需电脑直接手机操作
- iPhone手机个性铃声设置详细教程（iphone个性铃声怎么设置）
- iPhone也能用自己喜欢的铃声了，2分钟包搞定!
- 苹果iOS 26隐藏新铃声曝光:强调“玻璃质感”
- 苹果ios14充电提示音怎么设置 iPhone手机修改充电提示音教程
- 苹果iphone手机直接设置铃声教程（ios怎么直接设置铃声）
- iPhone苹果16自定义来电铃声攻略（ios自定义铃声怎么设置）
- 未越狱iPhone用户自定义来电铃声和短信铃声的教程
- 苹果手机怎么设置闹钟铃声?更改为歌曲铃声，亲测有效
- 标签列表
-
- 如何绘制折线图 (52)
- javaabstract (48)
- 新浪微博头像 (53)
- grub4dos (66)
- s扫描器 (51)
- httpfile dll (48)
- ps实例教程 (55)
- taskmgr (51)
- s spline (61)
- vnc远程控制 (47)
- 数据丢失 (47)
- wbem (57)
- flac文件 (72)
- 网页制作基础教程 (53)
- 镜像文件刻录 (61)
- ug5 0软件免费下载 (78)
- debian下载 (53)
- ubuntu10 04 (60)
- web qq登录 (59)
- 笔记本变成无线路由 (52)
- flash player 11 4 (50)
- 右键菜单清理 (78)
- cuteftp 注册码 (57)
- ospf协议 (53)
- ms17 010 下载 (60)