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

对于手工改写配置文件，我一直无能为力，我试图在程序中把该文件隐藏掉。VB的示例代码如下：

SetAttr FileName, vbSystem Or vbHidden '隐藏文件

但终归来说是治标不治本，文件仍然会被改写的。然后我想到修改配置文件后缀法，让人手工没那么容易打开文件，但是总是有方法打开的。最终让我想到一个简单的解决方法是，在程序中先打开配置文件，之后手工就无法打开了。VB的示例代码如下：

Open FileName For Binary As #99

只是记得程序在改写该文件时要先关闭打开的文件，不然改写会失败的。VB的示例代码如下：

Close #99 '关闭文件

总结一下，防止文件被改写的简单实现方式就是在程序中先打开该文件。

以上所述就是本文的全部内容了，希望大家能够喜欢。

赞 (0)

相关推荐

  • VB实现的《QQ美女找茬游戏》作弊器实例

    本文实例讲述了VB实现的<QQ美女找茬游戏>作弊器.分享给大家供大家参考.具体如下: 比较无聊哈,原理很简单,用VB速度比较慢,但是实现很容易. Option Explicit Private Type sPOINT x As Long y As Long End Type Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long Private Declare Function Get

  • VB键盘鼠标无动作调用程序的尝试

    我想要实现的功能是,当键盘无输入.鼠标无移动或点击动作时调用程序.首先想到的是用钩子HOOK来获取键盘或者鼠标的动作,如果无动作时调用程序.我尝试的结果是HOOK来HOOK去总是有问题. 后来想到Windows的屏幕保护程序就是当键盘鼠标无动作时进入屏幕保护的,于是改变思路,想把程序做成这样的形式,键盘鼠标无动作,系统进入屏幕保护,然后检测系统是否运行屏幕保护程序,如果运行的话则调用程序.这种方式就是以屏幕保护程序作为中介,把检测键盘鼠标动作的工作交给屏幕保护程序来完成了.SystemParam

  • VB打开与保存txt文件的方法

    本文实例讲述了VB打开与保存txt文件的方法.分享给大家供大家参考.具体如下: Private Sub cmdsave_Click() Dim filelocation As String ' loads save as box commondialog1.ShowSave filelocation = commondialog1.FileName ' append saves over file if it assists Open filelocation For Append As #1

  • VB.NET获取文件默认图标的方法

    本文实例讲述了VB.NET获取文件默认图标的方法.分享给大家供大家参考.具体如下: 该段代码帮助你获取计算机上的任何文件的默认图标,使用Shell32.dll. Private Structure SHFILEINFO Public hIcon As IntPtr Public iIcon As Integer Public dwAttributes As Integer <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=260)> _ Public

  • VB获取文件大小的方法

    本文实例讲述了VB获取文件大小的方法.分享给大家供大家参考.具体实现方法如下: <% ' Copyright (c) 2009, reusablecode.blogspot.com; some rights reserved. ' ' This work is licensed under the Creative Commons Attribution License. To view ' send a letter to Creative Commons, 559 Nathan Abbott

  • VB使用ADO操作Access数据库

    这里只是个简单不能再简单的VB小程序实例,但它包含这几个关键字:VB6.0.ADO.Access 环境:visual basic 6.0 企业版(非精简版,不然会缺少必须的控件) 数据库:Access数据库,数据库是xs.mbd,内建表为xj 结果:vb使用ADO连接access数据库,查询xj表中的所有数据,然后把查询到的结果循环输出到窗口中. 代码: Private Sub Form_Click() Dim db As New ADODB.Connection, RS As New ADOD

  • VB实现按行读取文本文件的方法

    本文实例讲述了VB实现按行读取文本文件的方法.分享给大家供大家参考.具体如下: '(general declaration) Dim nFileNum As Integer, sText As String, sNextLine As String, lLineCount As Long '================================== Private Sub Command1_Click() ' Get a free file number nFileNum = Free

  • VB返回记录集结果到HTML表格的方法

    本文实例讲述了VB返回记录集结果到HTML表格的方法.分享给大家供大家参考.具体实现方法如下: function ReturnHTMLTable(query) set rs = cn.Execute(query) rs.MoveFirst response.Write "<table class=""data"" cols=""" & rs.Fields.Count & """

  • VB简单实现防止文件被改写

    最近在写的一个小程序中有个配置文件,这个文件对整个程序来说是至关重要的,如果它被删除或者改写的话,整个程序无法运行,或者运行后无法关闭.所以我一直在寻找如果让手工无法改写文件的方法. 对于"删除"来说是很容易解决的,程序中查找配置文件的路径,若为空则创建,并给些默认值.VB的示例代码如下: FileName = App.Path + "\CONFIG" '如果文件不存在,则创建文件 If Dir(FileName) = "" Then Open

  • 通过PHP简单实例介绍文件上传

    php文件上传的简单例子,获取文件名称.类型.大小等相关信息,完成文件的上传,供大家学习参考. 1.上传文件的代码: code <?php //判断临时文件存放路径是否包含用户上传的文件 if(is_uploaded_file($_FILES["uploadfile"]["tmp_name"])){ //为了更高效,将信息存放在变量中 $upfile=$_FILES["uploadfile"];//用一个数组类型的字符串存放上传文件的信息

  • C#简单写入xml文件的方法

    本文实例讲述了C#简单写入xml文件的方法.分享给大家供大家参考.具体实现方法如下: static void writeTree(XmlNode xmlElement, int level) { String levelDepth = ""; for(int i=0;i<level;i++) { levelDepth += " "; } Console.Write("\n{0}<{1}",levelDepth,xmlElement.N

  • java简单解析xls文件的方法示例【读取和写入】

    本文实例讲述了java简单解析xls文件的方法.分享给大家供大家参考,具体如下: 读取: import java.io.*; import jxl.*; import jxl.write.*; import jxl.format.*; class Aa{ public static void main(String args[]) { try{ Workbook workbook = null; try { workbook = Workbook.getWorkbook(new File("d:

  • java实现简单解析XML文件功能示例

    java实现简单解析XML文件功能示例

    本文实例讲述了java实现简单解析XML文件功能.分享给大家供大家参考,具体如下: package demo; import java.io.File; import java.io.IOException; import javax.xml.parsers.DocumentBuilder; import javax.xml.parsers.DocumentBuilderFactory; import javax.xml.parsers.ParserConfigurationException;

  • Python实现简单拆分PDF文件的方法

    本文实例讲述了Python实现简单拆分PDF文件的方法.分享给大家供大家参考.具体如下: 依赖pyPdf处理PDF文件 切分pdf文件 使用方法: 1)将要切分的文件放在input_dir目录下 2)在configure.txt文件中设置要切分的份数(如要切分4份,则设置part_num=4) 3)执行程序 4)切分后的文件保存在output_dir目录下 5)运行日志写在pp_log.txt中 P.S. 本程序可以批量切割多个pdf文件 from pyPdf import PdfFileWri

  • python简单读取大文件的方法

    本文实例讲述了python简单读取大文件的方法.分享给大家供大家参考,具体如下: Python读取大文件(GB级别)采用的办法很简单: with open(...) as f: for line in f: <do something with line> 例如: with open(filepath,'r') as infile: for line in infile: print line 一切都交给python解释器处理,读取效率很高,且占用资源少. stackoverflow参考链接:

  • asp.net简单生成XML文件的方法

    本文实例讲述了asp.net简单生成XML文件的方法.分享给大家供大家参考,具体如下: 方式一:直接使用DataSet SqlConnection conn = new SqlConnection(); conn.ConnectionString = "Server=127.0.0.1;User ID=sa;Password=sa;Database=northwind;Persist Security Info=True"; conn.Open(); SqlDataAdapter da

  • Thinkphp3.2简单解决多文件上传只上传一张的问题

    Thinkphp3.2简单解决多文件上传只上传一张的问题

    html简单页面: index.html代码: <form action="{:U('index/upload')}" method="post" enctype="multipart/form-data"> 文件上传:<input type="file" name = "test[]"> 文件上传:<input type="file" name = &qu

  • PHPExcel简单读取excel文件示例

    本文实例讲述了PHPExcel简单读取excel文件的方法.分享给大家供大家参考,具体如下: PHP Excel 2007 classes Project providing a set of classes for the PHP programming language, which allow you to write to and read from different file formats, like Excel 2007, PDF, HTML, ... This project

随机推荐