能读写任何XML配置文件，能实现用户层面的加解密，以下代码中的B64E函数为加密函数，B64D为解密函数，可以自己编写
生成的XML根节点为ZBS，可以替换为其它有意义的节点名称
Option Explicit
Public xmlDoc As DOMDocument
Public aNode As IXMLDOMElement '当前激活Node
Public xmlFilePath As String, ReadOnly As Boolean '保存路径,只读属性
Private sPassWd As String, sVer As Single
Private sChanged As Boolean
Public Property Get Changed() As Boolean '判断是否修改
Changed = sChanged
End Property
Public Property Let Changed(sValue As Boolean) '手工改动后要设置修改标志
sChanged = sValue
End Property
Public Property Let PassWd(ByVal sValue As String)
If sValue <> "" Then sValue = mG.B64E(sValue, , "32rv415")
If sValue = sPassWd Then Exit Property
Dim ddd As IXMLDOMNode, ddd1 As IXMLDOMNode, ddd2 As IXMLDOMAttribute, ddd3 As Boolean, ddd4 As String
For Each ddd In xmlDoc.selectNodes("//*")
Set ddd2 = ddd.Attributes.getNamedItem("Encode")
If ddd2 Is Nothing Then
ddd3 = True
Else
ddd3 = CBool(ddd2.Text)
End If
If ddd3 Then '需要加解密
For Each ddd1 In ddd.childNodes
If ddd1.nodeType = 3 Then
ddd4 = ddd1.Text
If sPassWd &
<?xml version="1.0" encoding="utf-8"?>
<userdata createuser="false">
<dataconnection>
<server>xml test</server>
<uid>sa</uid>
<pwd>sa</pwd>
</dataconnection> ......
当我们用WINDOWS搜索某包含某文字的文件时，可以在“包含文字”处填上搜索词。但是一些不常见的后缀名文件WINDOWS不会搜索，如：，.log、.dll、.js、.asp、.xml、.xsl、.hta、.css、.wsh、.cpp、.c 或 .h等及无后缀名的文件。对于我等程序爱好者来说实在太不方便了，虽然有“文本替换大师”等软件能做� ......
