VB简单实现防止文件被改写
在VB程序中，防止配置文件被改写的有效方法是在程序运行期间先打开文件并保持占用状态，使系统提示文件被占用而无法手动修改。同时，程序启动时检查文件是否存在，若不存在则自动创建并写入默认值。
最近在写一个小程序，遇到一个挺实际的问题：程序里有个配置文件，对整个程序来说至关重要。一旦被删除或者被人手欠改写了，程序要么直接跑不起来，要么跑起来关不掉。所以我就琢磨，怎么才能让手工没法改写这个文件呢？
先说“删除”这件事，其实挺好解决的。程序启动时检查一下配置文件的路径，如果文件不存在，就自动创建并给一套默认值。VB 里实现起来很直接：
FileName = App.Path + "CONFIG"
'如果文件不存在，则创建文件
If Dir(FileName) = "" Then
Open FileName For Output As #1 '打开顺序文件，我们可以使用Open语句
a = Encode("123") + vbCrLf + "10" + vbCrLf 'vbCrLf为回车
Print #1, a '写数据
Close #1 '关闭文件
End If
但“手工改写”这个问题，一开始确实没找到太好的办法。试过把文件隐藏掉，用 SetAttr FileName, vbSystem Or vbHidden 把文件属性设为系统+隐藏。不过说到底，这只是治标不治本——只要用户知道文件路径，照样能改。
后来又想到一个思路：修改配置文件的后缀名，让普通用户没法直接双击打开。但总归还是有办法打开的，比如用记事本、用命令行，拦不住。
最后绕了一圈，反而发现了一个最简单的办法：在程序运行期间，先把这个配置文件打开，保持占用状态。这样一来，手动操作的时候系统会提示“文件正在被使用”，自然就改不了了。VB 里只需一行代码：
Open FileName For Binary As #99
当然，有个小细节需要注意：程序需要在改配置文件的时候，先把打开的文件关闭掉，否则改写操作会失败。关闭也很简单：
Close #99 '关闭文件
总结一下，防止文件被改写，最直接有效的方式就是在程序启动时先打开文件，保持占用状态。这招简单、粗暴，而且够用。
正软商城本月促销专区，汇集办公、设计、安全、影音、系统工具及AI软件等正版软件优惠活动，提供限时折扣、特价授权和优惠购买信息，活动库存及价格以页面实时展示为准。
正软商城装机必备专区，精选办公、浏览器、安全防护、影音播放、压缩解压、设计创作和系统工具等电脑常用正版软件，帮助用户快速完成新电脑软件配置。
正软商城Windows软件专区，汇集适用于Windows电脑的办公、设计、安全防护、影音播放、开发工具和系统优化软件，提供软件介绍、系统要求、正版授权及购买下载服务。
正软商城macOS软件专区，精选适用于Mac电脑的办公、设计、影音、效率、开发和系统工具，提供软件功能介绍、macOS兼容版本、正版授权及购买下载服务。
正软商城iOS软件专区，精选适用于iPhone和iPad的办公、学习、影音、设计、效率及AI应用，提供功能介绍、适用设备、系统要求和正版获取方式等信息。
正软商城AI软件专区，汇集AI写作、AI绘画、AI视频、AI办公、AI编程、AI翻译、智能客服和数据分析等人工智能工具，提供功能介绍、适用平台、收费方式及正版购买信息。
正软商城PDF教程频道提供PDF编辑、转换、合并、拆分、压缩及格式处理方法，同时介绍常用PDF软件和工具的使用技巧。
赤友清理大师是一款为 Mac 设计的智能清理优化工具，可精准扫描垃圾、大文件、重复文件等，释放磁盘空间。做扫描整理、文字提取和表格转换时，它能把识别后的处理步骤接得更顺，资料录入这类场景会省下不少时间。
极度公式是一款跨平台专业LaTeX公式识别编辑软件，支持OCR公式识别和多平台编辑。和使用说明，避免使用，享受完整功能与稳定支持。做扫描整理、文字提取和表格转换时，它能把识别后的处理步骤接得更顺，资料录入这类场景会省下不少时间。
一款文字处理软件，一种订阅式的跨平台办公软件，基于云平台提供多种服务，通过将 Excel 和 Outlook 等应用与 OneDrive 和 Microsoft Teams 等强大的云服务相结合，Office 365 可让任何人使用任何设备随时随地创建和共享内容。
CodeExpander 是一款快捷短语输入增强工具，通过键入缩写自动展开为自定义文段，提升工作效率。任务管理和过程控制会更完整，持续下载、批量同步或需要稳定传输流程的场景会更适合它。
Mountain Duck 是一款能将多个网盘挂载到本地的工具，像本地磁盘一样使用网盘。清理链路的完整性会更好一些，做应用卸载、残留处理和空间整理时，通常能少走很多手动排查步骤。
极度公式是一款跨平台专业LaTeX公式识别编辑软件，支持OCR公式识别和多平台编辑。和使用说明，避免使用，享受完整功能与稳定支持。做扫描整理、文字提取和表格转换时，它能把识别后的处理步骤接得更顺，资料录入这类场景会省下不少时间。
一款文字处理软件，一种订阅式的跨平台办公软件，基于云平台提供多种服务，通过将 Excel 和 Outlook 等应用与 OneDrive 和 Microsoft Teams 等强大的云服务相结合，Office 365 可让任何人使用任何设备随时随地创建和共享内容。
Wise Folder Hider Pro 是一款专业级文件和文件夹隐藏加密软件，为私密数据添加多重保护。高频操作更强调就近处理，浏览、整理和跨目录移动文件时，来回切换和重复点击都会少很多。
CodeExpander 是一款快捷短语输入增强工具，通过键入缩写自动展开为自定义文段，提升工作效率。任务管理和过程控制会更完整，持续下载、批量同步或需要稳定传输流程的场景会更适合它。
Mountain Duck 是一款能将多个网盘挂载到本地的工具，像本地磁盘一样使用网盘。清理链路的完整性会更好一些，做应用卸载、残留处理和空间整理时，通常能少走很多手动排查步骤。
