加密!用逻辑盘序列号加密!实现VBA专属代码的完全个性化定制
cac55 2024-11-03 12:30 11 浏览 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 用这种方法是否可以做到只为一台计算机定制程序？
相关推荐
- 终于，你可以在 iPhone 上玩《饥荒》了
-
继七月登陆iPad平台后，冒险生存游戏《饥荒》（Don'tStarve）经过两个月时间终于更新并适配了iPhone，此前我已就游戏在iPad上的表现写过详尽评测和上手攻略，故本文不再对游...
- 2025年最适合Macbook新手掌握的5个免费工具，效率立马飙升!
-
刚入手Macbook是否觉得操作不熟？担心新手期过长难以熟练提高效率？别担心！本文精选五款国区AppStore免费可下载的官方认证工具，所有选择均基于新手核心痛点与迁移成本考量，解决「系统维护」「操作...
- 苹果iOS 13.4和iPadOS 13.4正式更新，支持鼠标、键盘操作
-
智东西（公众号：zhidxcom）编|王颖智东西3月25日消息，苹果今天向用户推送了iOS13.4和iPadOS13.4系统更新通知。iPadOS13.4增加了对iPad鼠标和触控板的支持，...
- 苹果即将发布macOS 15 用户界面将迎来重大革新
-
苹果公司计划于6月举行的全球开发者大会（WWDC）上，震撼发布全新的macOS15操作系统。据CNMO最新报道，此次更新将彻底革新“菜单和应用程序用户界面”的排列方式，为用户带来全新的使用体验。ma...
- **Bartender 5:菜单栏管理神器**（菜单栏工具）
-
提供免费下载网站Mavom.cn**Bartender**让你可以隐藏、重新排列或移动菜单栏应用，保持桌面整洁。**主要功能：*****整理菜单栏应用**：随心所欲地隐藏或显示应用。***更新提醒...
- Mac用户必备!12款最实用的高效App，绝对值得收藏
-
作为一名数码博主，日常的工作不仅包括写文章，还涉及到大量的内容创作、视频编辑和资料管理。随着使用Mac的时间越来越长，我发现一台强大的Mac电脑，若没有合适的App加持，效果往往大打折扣。因此，我深入...
- 苹果电脑死机了按什么键（mac卡死按哪三个键）
-
苹果电脑以其卓越的性能和稳定的系统而闻名，但在使用过程中，偶尔也会遇到死机或应用程序无响应的情况。这时，掌握一些有效的强制重启或关闭方法就显得尤为重要。本文将详细介绍苹果电脑在死机时可以采取的几种处理...
- 怎么查看macbook硬盘是不是原装的
-
要查看MacBook的硬盘是否是原装的，可以采取以下几种方法：###通过系统信息检查1.**查看设备信息**：打开苹果菜单栏中的“关于本机”选项，然后选择“存储”或“磁盘工具”。这将显示你电脑上已...
- 苹果MacBook一定要进行的6个设置|新手必备省电技巧
-
一、MacBook省电设置技巧1、电池偏好设置打开“系统偏好设置”，选择“电池”，选择第二项“电池”，不同的系统版本和机型在这个界面会有所差别。勾选“使用电池电源时使显示屏略暗一些”，勾选“优化电池充...
- 在 Mac 菜单栏也能控制 HomeKit 家居设备
-
想要控制家里的HomeKit设备，我们可以利用Apple官方的家庭App。但在Mac上，家庭App不能算得上好用，不像iOS可以从控制中心直接操作，在Mac上必须打开家庭A...
- 苹果手机里这个图标是什么意思?原来这是个监听器!一直都不知道
-
不知道大家最近都有没有关注iPhone的新消息呢？iPhone11出来之后，不少小伙伴都被圈粉啦！小编不得不说绿色的那款是真好看啊！当然不仅是好看，用过苹果手机的小伙伴都知道，苹果手机里有很多超好用的...
- 如何解决苹果电脑弹出本地项目钥匙串提示?
-
Mac电脑使用的时候，因为通过iCloud同步钥匙串，或者是修改本地账户密码，会反复弹出某项目想要登录使用“钥匙串”的提示，且无法关闭的现象。那我们该如何解决呢？快和小编一起来看看吧！具体方法如下1....
- MAC小技巧:如何快速调整Dock栏的大小
-
苹果mac系统dock栏怎么缩小？想要自己调节一下dock栏的大小，该怎么调节呢？下面我们就来看看详细的苹果Mac电脑如何快速调整Dock栏的大小样式教程，需要的朋友可以参考下。1、在Dock栏右侧，...
- 新买了苹果电脑不会用?给小白的使用手册，MacOS入门必备
-
咱们很多小伙伴都是十几年甚至二十几年的Windows老用户了，如果换成苹果电脑，可能会一脸懵逼，一时间不知道怎么使用。毕竟苹果电脑搭载的是MacOS操作系统，除了系统界面和操作上有区别外，电脑键盘上有...
- 苹果macOS 15设置界面将迎来重大更新 更智能更美观
-
【CNMO科技消息】苹果计划在6月WWDC全球开发者大会上震撼发布macOS15。据CNMO了解，此次更新将彻底革新“菜单和应用程序用户界面”的排列方式。macOSVentura系统中的“系统设置...
欢迎 你 发表评论:
- 一周热门
- 最近发表
- 标签列表
-
- 如何绘制折线图 (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)